Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
476to480
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
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Leerzeile einfügen

Leerzeile einfügen
31.08.2004 15:31:02
Fabienne
Hallo!
Ich möchte gerne dass mein Makro immer nach der Zeile 'other data' eine Leerzeile einfügt. Da die Zeilen mit 'other data' nicht in regelmässigen Abständen vorkommen funktioniert mein Code nicht.
Kann mir jemand sagen wie ich ihn abändern muss? Danke schon im Voraus!

Sub Abstandszeile_einfügen()
For k = 1 To 500
k = k + 95
Range("A" & k).Select
Selection.EntireRow.Insert
Next k
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeile einfügen
31.08.2004 15:50:09
Roland
Hallo Fabienne,
sobald in Spalte A other data auftaucht, gibts eine Leerzeile:

Sub Abstandszeile_einfügen()
Dim k As Integer
For k = 1 To Range("A65536").End(xlUp).Row
If Range("A" & k).Value = "other data" Then Rows(k + 1).Insert
Next k
End Sub

Gruß
Roland
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige