Kann mir jemand sagen was in diesem Makro falsch ist.
Möchte das VBA-Projekt mit einem Kennwortschützen, gleichzeitig aber einen Code einfügen.
Danke für eure Hilfe.
https://www.herber.de/bbs/user/58718.xls
Private Sub workbook.Open()
Worksheets("Tabelle1").ScrollArea = "A1:A10"
Worksheets("Tabelle2").ScrollArea = "A1:A10"
Worksheets("Tabelle3").ScrollArea = "A1:A10"
End Sub
Die gleiche Anweisung kannst du setzen, nachdem du eine neue Tabelle eingefügt hast
Gruss Rainer
Private Sub workbook.Open()
Worksheets("Tabelle1").ScrollArea = "A1:A10"
Worksheets("Tabelle2").ScrollArea = "A1:A10"
Worksheets("Tabelle3").ScrollArea = "A1:A10"
End Sub
Danke und Gruß Markus
Private Sub Workbook_Open()
Dim myTab As Worksheet
For Each myTab In Worksheets
If myTab.Name "Start" And myTab.Name "Vorgaben" Then
myTab.ScrollArea = "A1:A10"
End If
Next myTab
End Sub
Gruß Tino