Ziel für Makro bestimmen
07.11.2018 14:45:22
Michael
Ich habe hier im Forum einen funktionierenden Code bekommen, habe aber trotzdem ein Problem damit.
Egal was ich mit meinen bescheidenen Kenntnissen versuche, der Code läuft nur auf dem aktiviertem Reiter.
Habe versucht: "With Worksheets("Tabelle1") und End With" dazu zu schreiben. Das wird aber schlicht übergangen.
Es gibt auch keinerlei Fehlermeldungen. Ist Tabelle3 aktiviert, läuft er dort durch, aber nicht auf Tabelle1.
Was mache ich falsch? Das fett geschriebene ist von mir dazu gedichtet worden.
Sub Seitenzahlen_Tabelle1()
Dim z, i
With Worksheets("Tabelle1")
For z = 1 To 1000 'ggf ändern
If Cells(z, 7) = "Seite" Then
i = i + 1
Cells(z, 8) = i
End If
Next z
End With
End Sub