Durchführung des Moduls wenn Sheet existiert

Forumthread: Durchführung des Moduls wenn Sheet existiert
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Durchführung des Moduls wenn Sheet existiert

04.07.2014 13:29:23

Han2883

Hallo Gemeinde,
ich habe eine Arbeitsmappe mit mehreren Sheets. Ich möchte ein Modul erstellen, das überprüft,wenn eine Tabelle mit dem Name "Tabelle1" existiert, wird "Makro1" durchgeführt. Wenn diese Tabelle nicht existiert, wird "Makro2" durchgeführt.
Könnte mir jemand zeigen wie der Code aussieht?
Danke im voraus! :)
Gruß Han2883

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Durchführung des Moduls wenn Sheet existiert

04.07.2014 13:34:38

Hajo_Zi
AW: Durchführung des Moduls wenn Sheet existiert

04.07.2014 13:53:44

ransi
AW: Durchführung des Moduls wenn Sheet existiert

04.07.2014 15:26:55

Han2883

AW: Durchführung des Moduls wenn Sheet existiert

04.07.2014 13:34:38

Hajo_Zi


Option Explicit
Sub TabAuswahl()
Dim BoVorhanden As Boolean
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
If WsTabelle.Name = "Tabelle1" Then
BoVorhanden = True
Exit For
End If
Next WsTabelle
If BoVorhanden = True Then
'Makro1
Else
'Makro2
End If
End Sub

AW: Durchführung des Moduls wenn Sheet existiert

04.07.2014 13:53:44

ransi

Hallo Han
Alternativ auch was "schleifenfreies".

Option Explicit

Sub Aufruf()
If sheet_exists("Tabelle1") = True Then
    Call Makro1
    Else:
    Call Makro2
End If
End Sub


Function sheet_exists(strBlattname As String)
Dim objSh As Object
On Error GoTo errorhandler
Set objSh = Sheets(strBlattname)
errorhandler:
sheet_exists = Err = 0
End Function



Sub Makro1()
MsgBox "Ich bin Makro1"
End Sub


Sub Makro2()
MsgBox "Ich bin Makro2"
End Sub