Excel VBA mehrere Tabellenblätter ausschließen

Question

Halo zusammen,

ich hab ein Großteil schon selbst hinbekommen, aber jetzt hänge ich. Ich habe ein Makro, dass automatisch einen Kalender öffnet wenn man in eine Zelle klickt. Dabei ist ein Tabellenblatt (Datenbank) ausgenommen. Wie bekomme ich es nun hin noch ein zweites Tabellenblatt auszunehmen?

Hier ist der Code, wie muss ich diesen erweitern, dass auch Tabelle2 ausgenommen ist?

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D2:D400,I2:W400")) Is Nothing And Sh.Name <> "Datenbank" Then
Target.Value = Format(DateValue(Date), "dd.mm.YYYY")
Cancel = True
End If

End Sub

Gruß Chris

Answer 1

Hallo Chris,

du musst nur die Abfrage mit And erweitern

If Not Intersect(Target, Range("D2:D400,I2:W400")) Is Nothing And Sh.Name <> "Datenbank" And Sh.Name <> "Tabelle1" Then

Gruß

M.O.

Answer 2

hi all ^^

noch zwei varianten :-)

gruss nighty

index abfrage

If ActiveSheet.Index Like "[1,3]" = True Then

oder
namen abfrage

If ActiveSheet.Index Like "[Tabelle1,Tabelle3]" = True Then

Answer 3

Vielen Dank,

die Antwort lag wohl so nah, dass ich sie nicht gesehen habe :D

Gruß Chris