Tabellenblatt abfragen u. entspr. Aktion ausführen
Ina
ich habe eine Tabelle mit 6 Tabellenblättern und möchte per VBA den Namen des aktiven Tabellenblatts abfragen und je nach Tabellenblatt eine andere Aktion ausführen.
Ich habe einen (natürlich nicht funktionierenden) Codeschnipsel gebastelt.
Vielleicht kann jemand von euch daraus einen funktionierenden Code zurechtbasteln? Danke!
Sub Test()
If ActiveSheet.Name = "Tabelle1" Or ActiveSheet.Name = "Tabelle2" Then
MsgBox "Tabelle 1/2"
If ActiveSheet.Name = "Tabelle3" Or ActiveSheet.Name = "Tabelle4" Then
MsgBox "Tabelle 3/4"
If ActiveSheet.Name = "Tabelle5" Or ActiveSheet.Name = "Tabelle6" Then
MsgBox "Tabelle 5/6"
End If
End If
End If
End Sub