Überprüfen ob Worksheet vorhanden
03.08.2016 11:54:30
Nermin
ich hatte schonmal eine Frage gehabt zu diesem Thema, da wurde mir wunderbar geholfen. Jetzt ists ein bisschen abgeändert und ich habe irgendwie das Gefühl ich habe einen Denkfehler und seh den Wald vor lauter Bäumen nicht ;).
Geht um folgendes:
Der Code soll zunächst überprüfen ob ein bestimmtes Worksheet vorhanden ist bevor die Prozedur fortgeführt werden soll. Also Vorhanden = ja, dann fortsetzen, Vorhanden = nein, dann MsgBox "Achtung Worksheet soundso nicht vorhanden!" und exit sub.
Letztes mal musste ich auch überprüfen ob ein Worksheet vorhanden ist, da war es aber andersrum, sprich vorhanden = MsgBox "achtung vorhanden!" und exit sub, nicht vorhanden = fortsetzen.
wurde so gelöst:
Sub prozedur()
Dim BoVorhanden As Boolean
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
If WsTabelle.Name = "Materialbedarf" Then
BoVorhanden = True
Exit For
End If
Next WsTabelle
If BoVorhanden Then
If MsgBox(prompt:="Materialbedarf wurde bereits ermittelt. Ermittelte Daten werden ü _
berschrieben!", Buttons:=vbOKCancel, Title:="Achtung!") = vbCancel Then
Exit Sub
Else
Application.DisplayAlerts = False
Worksheets("Materialbedarf").Delete
Application.DisplayAlerts = True
End If
Else
GoTo Prozedur
End If
Prozedur:
' weiterer Code
End Sub
Vielen Dank im Voraus!!
Lieben Gruß,
Nermin