title image


Smiley Re: Hier mal ein Makro zum Testen
Hi,



ja dann hab ich ncoh was. Füge doch einfach nach jedem "Wechsel" ein Seitenwechsel ein.



bzw. ergänze mein voriges Makro um diesen Code.

Dann vielleicht noch die Seitenbreite einstellen.









      

Dim hpb As HPageBreak

s3.Activate

    s3.Columns("A:L").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _

        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _

        False, Orientation:=xlTopToBottom



lastRow = s3.Cells(Rows.Count, 1).End(xlUp).Row



    ActiveWindow.View = xlPageBreakPreview

    ActiveWindow.Zoom = 100





For Each hpb In s3.HPageBreaks

    hpb.Delete

Next hpb



For i1 = 2 To lastRow

    If s3.Cells(i1, 1).Value <> s3.Cells(i1 - 1, 1).Value Or s3.Cells(i1, 2).Value <> s3.Cells(i1 - 1, 2).Value Then

        s3.HPageBreaks.Add s3.Cells(i1, 1)

    End If

Next i1

 



Code eingefügt mit Syntaxhighlighter 3.0







Und schon haben wir wieder eine Gute Tat vollbracht.


Gruss Klapperstorch
----------------------------------------------------
Aus Felern lernt man oder...
Edjucashon isnt woerking

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: