Office - Word, Excel und Co. 9.738 Themen, 41.365 Beiträge

Excel/VBA: Prüfen ob ein Sheet vorhanden ist

martinschneider / 1 Antworten / Flachansicht Nickles

Bin ich so blöd, dass ich den Befehl nicht finde? Wie kann ich in VBA-Code prüfen ob in einer Mappe "xy" ein Tabellenblatt "123abc" existiert?

bei Antwort benachrichtigen
Uli M martinschneider „Excel/VBA: Prüfen ob ein Sheet vorhanden ist“
Optionen

mal davon ausgehend, dass die Mappe geöffnet und aktiviert ist:
Entweder (unschön) über Try & Error:
Dim oBlatt As Worksheet
On Error Resume Next
Set oBlatt = ActiveWorkbook.Sheets("123abc")
If Err 0 Then
MsgBox "123abc existiert nicht"
Err.Clear
On Error Resume Next
End If

Oder mit Durchlaufen der Sheets-Auflistung:
Dim oBlatt As Worksheet, I As Integer
For I = 1 To ActiveWorkbook.Sheets.Count
If Sheets(I).Name = "123abc" Then
Set oBlatt = Sheets(I)
Exit For
End If
Next I
If Not oBlatt Is Nothing Then ...

bei Antwort benachrichtigen