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

Eine leere Zeile einfügen nach

Eine leere Zeile einfügen nach
27.05.2003 08:43:05
Frank
jeder Zeile, in der ein Eintrag steht...

Hallo,

ist das einfacher möglich als immer mit "Zeile einfügen" zu arbeiten? Ich habe z.B. eine Tabelle mit 1000 Einträgen von A1-A1000, möchte, dass unter jedem Eintrag eine Leerzeile ist. D.h. die fertige Tabelle geht dann von A1-A2000, wobei in A2, A4, A6 etc. eine Leerzeile ist.

Vielen Dank im Voraus,
Gruß
Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Eine leere Zeile einfügen nach
27.05.2003 09:00:55
MarcoW

Hallo,

eine Möglichkeit:

- B1 = 1
- B2 = B1+2
- Formel aus B2 bis nach B1000 kopieren
- B1001 = B1+1
- Formel aus B1001 bis nach B2000 kopieren
- Spalte B markieren, Kopieren und Inhalte einfügen Werte
- Spalte A + B markieren und nach Spalte B aufsteigend sortieren
- Spalte B löschen

Gruß MarcoW

Re: Eine leere Zeile einfügen nach
27.05.2003 09:16:39
Mac4

Hallo Frank,

mit folgendem Makro kommst Du auch zum Ziel:

Sub test()
Dim zl, i
zl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = zl To 1 Step -1
If Range("A" & i).Value <> "" Then
Range("A" & i + 1).EntireRow.Select
Selection.Insert shift:=xlDown
End If
Next
End Sub

Anzeige
noch eine Variante
27.05.2003 09:19:48
RAnton

Hätte ich noch eine Variante

Sub Leereinfügen()

Dim i As Integer
Dim wks As Worksheet

Set wks = Worksheets("Tabelle1")

For i = 2 To rRange.End(xlDown).Row - 1
wks.Rows(i).Insert Shift:=xlDown
i = i + 1
Next

End Sub

Gruß
RAnton

Re: Eine leere Zeile einfügen nach
27.05.2003 09:24:14
Frank

Hallo,

vielen Dank für Eure Antworten!
Hat geklappt, obwohl ich mich Makros nicht auskenne.
Das ist ja ein Super-Forum hier.

Beste Grüße
Frank

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige