AW: Tabellenblatt existiert
22.04.2005 10:14:16
jan-und-jana
Hallo Christian,
Hier deine Prozedur:
Sub existTabellenBlatt(strTabellenblattName As String)
Dim objWorksheet As Worksheet
For each objWorksheet In ThisWorkbook.Worksheets
If objWorksheet.Name = strTabellenblatt THen
'das Tabellen Blatt esistiert, tu was du willst
Else
'das Tabellen blatt existiert nicht, tu was du willst
End If
Next objWorksheet
Set objWorksheet = Nothing'Speicher aufräumen
End Sub
Zur Info die Worksheets-Eigenschaft entspricht einer Collection mit allen Worksheet Objekten. diese wird iterativ durchlaufen und man referenziert bei idem Schleifen-Durchlauf das nächste Worksheet-Objekt.
Ich würde die oben gezeigte Prozedur etwas anpassen, so dass sie öffters verwendbar ist.
Function existTabellenBlatt(strTabellenblattName As String) As Boolean
Dim boolRetrun As Boolean
Dim objWorksheet As Worksheet
boolReturn = false
For each objWorksheet In ThisWorkbook.Worksheets
If objWorksheet.Name = strTabellenblatt THen
'das Tabellen Blatt esistiert, tu was du willst
boolReturn = true
Exit For
End If
Next objWorksheet
existTabellenBlatt = boolReturn
Set objWorksheet = Nothing 'Speicher aufräumen
End Function
Na ja das kannst du halten wie du willst.
Gruß, jan-und-jana