Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1020to1024
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

Zweite Zeile Einfügen bis letztem Wert

Zweite Zeile Einfügen bis letztem Wert
05.11.2008 08:07:54
Andreas
Hallo Zusammen
Das nachstehende Makro habe ich im Forum gefunden. Funktioniert einwandfrei. Nun möchte ich einfach, dass die jeweils zweite Zeile nur bis zum letzten Wert in Spalte R eingefügt wird.
Kann mir jemand helfen?
Vielen Dank
Andreas

Sub ZweiteZeilenEinfuegen()
Dim I%
For I = 1 To 200
Cells(3 + I * 2, 1).EntireRow.Insert Shift:=xlDown
Next I
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zweite Zeile Einfügen bis letztem Wert
05.11.2008 08:30:00
Beverly
Hi Andreas,

Sub ZweiteZeilenEinfuegen()
Dim I%
For I = 1 To 200
Range(Cells(3 + I * 2, 1), Cells(3 + I * 2, 18)).Insert Shift:=xlDown
Next I
End Sub




AW: Zweite Zeile Einfügen bis letztem Wert
24.11.2008 16:59:00
Andreas
hallo karin
vielen dank :-)
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige