VBA IF Anweisung

Hallo, ich schaffe es einfach nicht eine IF Schleife in mein Makro einzubauen.
In Kurzform: Ich habe per Makro eine Liste erstellt die sich auf Daten aus anderen Tabellenblättern bezieht. Soweit - so gut. Diese neue Liste kann in der Zeilenanzahl variabel sein(bis max. 500 Zeilen)
Was ich erreiche möchte ist das in dieser Liste "Briefköpfe" an bestimmten Stellen eingefügt werden, damit beim ausdrucken auf jeder Seite ein Briefkopf vorhanden ist.
In einfachen Worten stelle ich mir das so vor:
Prüfung in Tabelle2
(Zeilen 1-48 brauchen nicht geprüft werden)Hier steht fertiger Text
Wenn Zeile 49, Spalte A = NICHTLEER
Dann 3 Zeilen (3:5) aus Tabelle1 einfügen (Kopierte Zeilen einfügen)
Sonst Nichts machen
Danach
Wenn Zellen eingefügt wurden
Dann Prüfung in Tabelle2
Wenn Zeile 97, Spalte A = NICHTLEER
Dann 3 Zeilen (3:5) aus Tabelle1 einfügen (Kopierte Zeilen einfügen)
Sonst Nichts machen
Danach
Wenn Zellen eingefügt wurden
Dann Prüfung in Tabelle2
Wenn Zeile 145, Spalte A = NICHTLEER
Dann 3 Zeilen (3:5) aus Tabelle1 einfügen (Kopierte Zeilen einfügen)
Sonst Nichts machen
Danach
Wenn Zellen eingefügt wurden
Dann Prüfung in Tabelle2
Wenn Zeile 193, Spalte A = NICHTLEER
Dann 3 Zeilen (3:5) aus Tabelle1 einfügen (Kopierte Zeilen einfügen)
Sonst Nichts machen
Das sollte natürlich alle 48 Zeilen(incl. eingefügtem Briefkopf)so weiter gehen bis das Makro eine leere Zeile findet.
Hoffe das mir jemand Helfen kann, und freue mich schon auf eure Antworten.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Habe eine Beispielmappe beigefügt. Leider ist es doch eine .xlsm geworden. Habe sie aber in eine .zip gepackt. Hoffe das das geht. Wenn nicht muss ich es nochmals anders versuchen.
https://www.herber.de/bbs/user/121833.zip
@Werner
Was meinst du mit eingefügt?
"Kopierte Zellen einfügen" bedeutet das nachfolgende Zeilen nach unten verschoben werden
-sollen 3 neue Zeilen eingefügt werden, so dass die nachfolgenden Zeilen nach unten verschoben werden?
Nicht 3 neue leere Zeilen; sondern 3 Bestimmte aus einem anderen Reiter
-oder sollen 3 Zeilen im Blatt 2 überschreiben werden?
NEIN
-wenn eingefügt werden soll, wo oberhalb zB A97 oder unterhalb?
Zeile 97 und folgende werden nach unten verschoben damit eine Druckseiten länge von 48Zeilen erreicht wird. "Alte" Zeile 97 ist dann Zeile 100
Was soll passieren mit z.B. Zelle A97 (wenn dort ein Wert vorhanden ist)
-soll dieser Wert überschreiben werden?
Nein, nach unten verschieben

Public Sub Briefkopf_einfügen() Dim loStart As Long Application.ScreenUpdating = False With Worksheets("NOM_LS") loStart = 49 Do If loStart > 49 Then loStart = loStart + 3 Worksheets("Köpfe").Rows("3:5").Copy .Rows(loStart).Insert Application.CutCopyMode = False loStart = loStart + 48 Loop While .Cells(loStart, 1) "" End With Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA IF Anweisung

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread