Seitenwechsel automatisch
05.09.2005 11:14:25
virgilio
habe unteres Makro im Forum gefunden.
Das Makro macht folgendes:
sucht in Spalte A nach "wechsel" und setzt dort überall einen Seitenwechsel.
Wie kann ich Makro ändern, dass es mir in Spalte M sucht anstatt A und dann den Seitenwechsel macht?
Danke
gio
Sub seitenwechsel()
Dim zaehler
For zaehler = 1 To 1000 'Wobei '65536' die maximale Tabellengröße ist
If Cells(zaehler, 1) = 1 Then
Cells(zaehler, 1).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next zaehler
End Sub
Anzeige