Hier die Aufgabe:
In einem bestehenden Makro soll gesucht werden, ob eine Tabelle mit dem Namen "Start" existiert.
Sinngemäß also so:
If Sheets("Start") existiert then Range ("a1") else Range ("a2")
End If
Garantierte Rückmeldung
Danke
Alex
Sub TabAuswahl()
Dim Sh As Worksheet
Dim sName$
sName = InputBox("Bitte Tabellenname eingeben!")
For Each Sh In Worksheets
If InStr(Sh.Name, sName) > 0 Then
Sh.Select
Exit Sub
End If
Next Sh
Beep
MsgBox "Kein Blatt gefunden!"
End Sub
Sub SheetVorhanden()
Dim sh As Worksheet
Set sh = Nothing
On Error Resume Next
Set sh = Sheets("Start")
On Error GoTo 0
If sh Is Nothing Then
MsgBox "Sheet nicht vorhanden"
Else
MsgBox "Sheet vorhanden"
End If
End Sub
Gruß, Daniel