Tabellenblatt mit Makro kopieren
Peter
ich habe folgendes Problem. Ich habe ein Tabellenblatt als Masterblatt, in dem ich per Makros leere Zeilen ausblenden und einblenden kann. Diese beiden Makros habe ich Schaltflächen zugewiesen. Wenn ich nun das Tabellenblatt kopiere, möchte ich, dass die Makros sich auf das neue Tabellenblatt beziehen und nicht auf das Masterblatt. Wie kann ich das erreichen?
Hier mein Code (steht bei mir im Tabellenblatt):
Sub AusblendenProjekte()
Application.ScreenUpdating = False
Dim iSpalte As Integer
Dim lZeile As Long
iSpalte = 7
For lZeile = 11 To 500
If Cells(lZeile, iSpalte) = 0 Then
Rows(lZeile).EntireRow.Hidden = True
End If
Next lZeile
Application.ScreenUpdating = True
End Sub
Sub EinblendenProjekte()
Application.ScreenUpdating = False
Rows("11:500").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
Danke vielmals für eure Tipps und Hilfe!
Beste Grüße,
Peter
Anzeige