Tipp 0340 Blatt/Blattname in Arbeitsmappe vorhanden?
Autor/Einsender:
Datum:
  Angie
15.06.2003
Entwicklungsumgebung:   Excel 97
Es können verschiedene Situationen auftreten, die es erforderlich machen zunächst zu überprüfen, ob ein Blatt/Blattname in einer Arbeitsmappe vorhanden ist, sei es weil man ein bestimmtes Blatt bearbeiten will, oder aber weil man ein neues Blatt mit selbstdefiniertem Namen hinzufügen will.
Da in einer Arbeitsmappe sowohl Tabellen- (Worksheets) als auch Diagrammblätter (Charts) enthalten sein können, müssen alle Blätter in der Arbeitsmappe auf den Blattnamen hin überprüft werden.
Es nützt allerdings nicht viel, nur festzustellen, ob ein Blattname bereits verwendet wird oder nicht, falls das Blatt weiter bearbeitet werden soll. Hier ist vielmehr auch der Typ des Blatts relevant, da es zu Laufzeitfehlern kommen kann, wenn man z. B. Tabellenblatt-Methoden/-Eigenschaften auf ein Diagrammblatt anwendet, oder aber auch umgekehrt, Methoden/Eigenschaften des Chart-Objekts auf ein Tabellenblatt.
Die folgende Beispiel-Funktion gibt den Blatt-Typ zurück, wenn ein Blatt mit dem angegebenen Namen in der Arbeitsmappe vorhanden ist, bzw. ein Leerstring, wenn das Blatt nicht vorhanden ist.
 
Public Function GetSheetTypeName(ByVal objWkb As Workbook, _
      ByVal vsSheetName As String) As String

  On Error GoTo err_GetSheet
  If Len(objWkb.Sheets(vsSheetName).Name) > 0 Then
      GetSheetTypeName = TypeName(objWkb.Sheets(vsSheetName))
      Exit Function
  End If

err_GetSheet:
End Function
 
Beispiel-Aufruf
 
Public Sub Demo_Start()
  Dim strSheetName As String
  Dim strTypeName As String

  strSheetName = "Tabelle2"
  strTypeName = GetSheetTypeName(ActiveWorkbook, strSheetName)

  If Len(strTypeName) > 0 Then
      MsgBox "Blattname: " & strSheetName & vbCrLf & _
            "Blatt-Typ:  " & strTypeName, vbInformation

  Else
      MsgBox "In der Arbeitsmappe ist kein Blatt namens '" & _
             strSheetName & "' vorhanden !", vbInformation
  End If
End Sub
 
Hinweis
Die im Download befindliche *.bas-Datei kann in Excel im VB-Editor importiert werden.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
Excel-Version
95
97
2000
2002 (XP)
2003
2007
2010


Download  (1,4 kB) Downloads bisher: [ 836 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 24. Juli 2011