title image


Smiley Seitenwechsel per Makro , mir fehlt noch ein Befehl


Hallo,



wie bekomme ich den Spaltenwechsel der bei diesem Makro auf

auf Spalte G

Das Makro funktioniert soweit ganz leidlich .

''ActiveSheet.ResetAllrowBreaks Diesen Befehl gibts wohl so nicht

Es wäre nett wenn mir jemand auf die "Sprünge " helfen kann .





Gruss Wolf









Sub SeitenWechselNeuAufbauen()



Dim MaxZeile As Integer

Dim lLetzteZ As Integer

Dim x As Integer

'--

Sheets("D_in").Select



ActiveSheet.ResetAllPageBreaks 'loeschen aller Seitenwechsel

''ActiveSheet.ResetAllrowsBreaks ??



'-- letzte Zeile festlegen- Prüfung Spalte A

ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Activate '

lLetzteZ = ActiveCell.Row

'-- letzte belegte Spalte festlegen

MaxZeile = lLetzteZ + 12

'-- Seitenwechsel neu festlegen

For x = 55 To MaxZeile Step 55

ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Cells(x + 1, 1)



Next x







End Sub
Auch aus Steinen, die dir in den Weg gelegt werden, kannst du etwas Schönes bauen.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: