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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen