Office: (Office 365) Hilfe beim Makro

Hallo alle!

Kennt sich jemand von euch beim Thema Makros aus und könnte mir bei meiner Angelegenheit helfen?
Ich habe unten eine Datei angehängt.
Ich habe dort 2 Register: Einmal "Reinkopieren" und einmal "Einfügen".
Ich kopiere mir aus einem externen Programm folgende Infos und füge diese in die Registerkarte "Reinkopieren" ein:
"Tour Datum LocationId Lieferort PLZ Ort"
Darunter stehen dann bei Tour verschiedene Touren (z.B. Tour 1 mit 7 verschiedenen Stopps, dann kommt Tour 2 mit 3 verschiedenen Stopps, usw.).
Diese werden dann automatisch in die nebenstehende Registerkarte eingefügt.
Ich hätte dann allerdings gerne per Makro, dass pro Tour eine Seite belegt wird (zum Ausdrucken) und pro Seite der gleiche Header zu sehen ist (+ grün hinterlegten Tabellenfelder).
Dafür habe ich mir daneben schon Hilfsfelder erstellt.
Kann mir jemand das nötige Script schreiben, damit ich es in meine richtige Datei kopieren kann?

Einen Makro habe ich mir schon erstellt, dieser löscht automatisch Felder, die einen gewissen Text haben raus. Diese benötige ich nämlich nicht.

Danke an alle!

 

Kopf auf allen Seiten.
Seitenlauit, Pfeil bei Seite einrichten, Blatt, Wiederholungszeilken oben.
Füge nach jeder Tour einen Seitembruch ein. Excel hat auch einen Makrorecorder.

 

Danke für deine Nachricht.

Problem ist nur, dass die Touren nicht immer gleich lang sind und ich gerne per Makro automatisch einen Seitenumbruch hätte und nicht jedes Mal den Seitenumbruch händisch umstellen muss (bei etwa 40 Touren täglich...)

 

Ich bin davon ausagegangen das Du VBA auskennst.
Du hast ja schon eine Schleife gemacht.
Mache jetzt eine Schleife für die Tour.

<a href="Homeseite - Hajo's Excelseiten" target="_blank" title="Hajo&#039;s Excelseiten">Gruß Hajo</a>

 

Ich bin eher ein Anfänger, Makro aufzeichnen hilft leider nicht, da wie gesagt jede Tour nicht gleich lang ist. Habe dazu eine vlt bessere Version hochgeladen..

Meinst du dein kurzes Script einfach in das bestehende reinkopieren? Überlege heute schon den ganzen Tag da rum.. Tabelle basteln war leicht aber das so hinzubekommen, wie ich es mir vorstelle schaffe ich leider nicht..

 

Tour konnte ich nicht finden, also anpassen.

Code:

Option Explicit

Sub Setenumbruch()
    Dim LoZeile As Long
    Dim LoI As Long
    LoZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    For LoI = 5 To LoZeile
        If Cells(LoI, 3) <> Cells(LoI + 1, 3) Then
            ActiveSheet.HPageBreaks.Add Before:=Rows(LoI + 1)
        End If
    Next LoI
End Sub

Gruß Hajo

 

Danke für die Hilfe,

habe unten ein Bild angehängt: Tour steht ganz links. Tour 1 soll eine Seite haben, Tour 2 soll auf eine neue Seite, Tour 3 usw. Jeweils natürlich mit den Feldern die bei entsprechender Tour daneben stehen.
Bekomme ich das mit deinem Code hin?
Wenn die Tour nicht mehr als "1" hinterlegt ist sondern als z.B. "1001", Tour "2" z.B. als "1002" funktioniert der Code auch?

Funktioniert der Code auch wenn es z.B. 50 verschiedene Touren gibt?
Vielen lieben Dank bis jetzt! :)

 

mit Bilder kann Excel nichts anfangen.
Ändere 3 Spalte C in 1 Spalte A.
Ja

Gruß Hajo

 

Ich habe das Bild hochgeladen, damit ich dir besser erklären kann wo ein Seitenumbruch hingehört. :-)
Also nach den ganzen 1er Touren soll ein Umbruch, nach den ganzen 2er Touren ein Umbruch, usw.
Was muss ich an deinem Code modifizieren, dass ich das hinbekomme + dass immer der Header auf der neuen Seite steht?
Bin echt den ganzen Tag schon dran und will, dass das endlich funktioniert. :-)

 

Gut ich bin dann raus, Wie schon geschrieben kann Excel nichts mit Bildern anfangen. Bilder sehe ich mir darum auch nicht an.
Viel Erfolg noch.

Gruß Hajo

 

Hallo,

im allgemeinen Codemodul "Modul1" habe ich deinen bestehenden Code wie folgt ergänzt:

Code:

Option Explicit

Sub ZeileLöschen1()
   Dim rZelle As Range
  
   For Each rZelle In Selection
      If rZelle = "Stopxy" Then Rows(rZelle.Row).Delete
   Next rZelle
  
   For Each rZelle In Selection
      If rZelle = "Stopxyz" Then Rows(rZelle.Row).Delete
   Next rZelle
  
   Call BedingteSeitenumbrueche
  
End Sub

Sub BedingteSeitenumbrueche()
    Dim Zeile As Long, LztZeile As Long
  
    With ActiveSheet
      With .UsedRange
          LztZeile = .Row + .Rows.Count
      End With
      For Zeile = 5 To LztZeile
         'Wenn in Spalte A die erste Leerzelle gefunden wird, beende die Schleife
          If IsEmpty(.Cells(Zeile, 1).Value) Then Exit For
          If .Cells(Zeile, 1).Value <> .Cells(Zeile + 1, 1).Value Then
             .HPageBreaks.Add Before:=.Rows(Zeile + 1)
          End If
      Next Zeile
    End With
End Sub

Ich habe deinen Button "Zellen löschen" verknüpft mit dem Makro "ZeileLöschen1", wobei dieses Makro am Ende das Makro "BedingteSeitenumbrueche" aufruft, sodass zwischen allen Zeilen, in denen in Spalte A ein Wechsel der Tour-Nummer erfolgt, ein Seitenumbruch eingefügt wird. Sobald dieses Makro in Spalte A auf die erste leere Zelle trifft, wird es beendet.

Datei liegt bei.

 

Zur Info:
VBA-Forum - Das Forum zu Microsoft VBA