Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Variabler Seitenumbruch in VBA?

Variabler Seitenumbruch in VBA?
23.11.2016 12:15:40
Adrian
Hallo,
ich arbeite seit kurzem mit VBA, bin noch ein Neuling, und habe ein Problem bei dem ich nicht weiterkomme.
Die Liste mit der ich mich beschäftige sieht so aus:
Spalte A Kundenauftrag
33403
33403
33403
33403
33404
Spalte B Kundenauftrags Position
10010
10020
20010
20020
10010
Die Anforderung ist: Per VBA soll automatisch ein Seitenumbruch eingefügt werden sobald der Kundenauftrag gleich ist aber die Position von 10000 auf 20000 springt und sobald sich der Kundenauftrag selbst ändert.
Ich habe schon ein wenig geforscht, komme aber nicht weiter.
Könnte mir bitte jemand helfen?
Danke!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variabler Seitenumbruch in VBA?
23.11.2016 12:59:34
UweD
Hallo
so ?
Sub Striche()
    Dim RR As Long
    Dim i As Long
    With ActiveSheet
        .ResetAllPageBreaks
        RR = .Cells.SpecialCells(xlCellTypeLastCell).Row
        For i = 2 To RR
            If .Cells(i + 1, 1) <> .Cells(i, 1) Then
                .HPageBreaks.Add Before:=Rows(i + 1)
            Else
                If Left(.Cells(i + 1, 2), 1) <> Left(.Cells(i, 2), 1) Then
                    .HPageBreaks.Add Before:=Rows(i + 1)
                End If
            End If
        Next
    End With
End Sub

LG UweD
Anzeige
AW: Variabler Seitenumbruch in VBA?
23.11.2016 14:00:16
Adrian
Hallo UweD,
vielen Dank!! Das war genau das was ich gebraucht habe!
Danke Dir!
gern geschehen owT
23.11.2016 14:26:01
UweD

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige