Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1028to1032
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jede 2.Zeile eine Zeile einfügen

Jede 2.Zeile eine Zeile einfügen
02.12.2008 17:48:00
Andre´
Hallo alle zusammen,
ich möchte gern beginnend ab der Zeile 5 der Spalte A in jede 2. Zeile eine Zeile einfügen.
So sieht es jetzt aus:
ist

 ABC
5Teil Beschreibung
61 a
72 b
83 c
94 d
105 e
116 f
127 g
138 h


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
So soll es aussehen:
soll

 ABC
5Teil Beschreibung
61 a
72 b
8   
93 c
104 d
11   
125 e
136 f
14   
157 g
168 h


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Kann mir bitte jemand mit einem Makro weiter helfen.
Vielen Dank im Voraus!
MFG Andre

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jede 2.Zeile eine Zeile einfügen
02.12.2008 18:42:45
firmus
Hi Andre,
so sollte es klappen,
Option Explicit
Sub Testinsert() Dim xanzze, i As Long Sheets("meinBlatt").Select xanzze = ActiveSheet.UsedRange.Rows.Count For i = (xanzze - 1) To 2 Step -2 Rows(i).Select Selection.Insert Shift:=xlDown Next i End Sub


Gruß
Firmus

AW: Jede 2.Zeile eine Zeile einfügen
02.12.2008 18:51:00
robert
hi,
kleine korrektur
gruß

Sub Testinsert()
Dim xanzze, i As Long
Sheets("Tabelle1").Select
xanzze = ActiveSheet.UsedRange.Rows.Count + 4
For i = (xanzze - 1) To 7 Step -2
Rows(i).Select
Selection.Insert Shift:=xlDown
Next i
End Sub


Anzeige
AW: Jede 2.Zeile eine Zeile einfügen
02.12.2008 20:36:00
Andre´
Hallo,
Erstmals Danke für die Meldung.
Da auch in der Zeile B etwas stehen kann, gibt es Probleme mit dem Beginn der xanzze
Auch wenn z.B. 9 Zeilen beginnend ab Zeile 6 vorhanden sind, dann sieht es wie folgt aus:
test

 ABC
5Teil Beschreibung
61 a
7   
82 b
93 c
10   
114 d
125 e
13   
146 f
157 g
16   
178 h
189 i


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Ich möchte gern, dass die leere Zeile nach der 7. die nächste nach 9. die nächste nach der 11. u.s.w...eingefügt wird solange bis in der Spalte A nichts mehr steht.
MFG Andre
Anzeige
AW: Jede 2.Zeile eine Zeile einfügen
02.12.2008 21:45:00
Andre´
Hallo alle zusammen,
habe es wie folgt gelöst:

Sub Mak()
Dim i As Integer
Range("A8").Select
err:
If ActiveCell.Offset(0, 0) > "" Then
Selection.EntireRow.Insert
ActiveCell.Offset(3, 0).Select
GoTo err
Else: Exit Sub
End If
End Sub


MFG Andre

AW: Jede 2.Zeile eine Zeile einfügen
02.12.2008 22:03:00
Daniel
Hi
hier ein Makro zum einfügen von Leerzeilen über Sortieren (keine Angst, die originalsortierung wird nicht verändert). das ist wesentlich schneller, als die Zeilen per Insert einzufügen.

Sub ZeilenEinfügen()
Dim Abstand As Long
Dim KopfZeilen As Long
Dim Zeilen As Long
KopfZeilen = 6
Abstand = 2
Zeilen = Cells(Rows.Count, 1).End(xlUp).Row
Columns(1).Insert
Cells(1, 1).Resize(Zeilen).Formula = "=Row()"
Cells(Zeilen + 1, 1).Resize(Zeilen / Abstand).Formula = _
"=(Row()-" & Zeilen & ")*" & Abstand & "+" & KopfZeilen
Columns(1).Formula = Columns(1).Value
Cells(1, 1).CurrentRegion.Sort key1:=Cells(1, 1), order1:=xlAscending, header:=xlNo
Columns(1).Delete
End Sub


die Startzeile, ab der die leerzeilen eingefügt werden und den Abstand der Leerzeilen kannst du am Markoanfang bei den Variablen eingeben.
Gruß, Daniel

Anzeige

112 Forumthreads zu ähnlichen Themen

Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
Anzeige
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 Beiträge
Anzeige
Jede zweite Zeile ausblenden
kleinerfinger

Guten Morgen, ich hoffe das Wetter bei euch ist etwas besser als bei mir !
Ich möchte per VBA über einen Button von der Zeile 8 bis zur Zeile 1000 jede zweite Zeile ausblenden und über einen anderen Button wieder einblenden.
Wie lautet der Code dafür?
Danke für eure Bemühungen im Vo...
27.10.2009 08:18:15
Thread-ID: 1112393
3 Beiträge
Makro zum löschen jeder 2. Zeile
philG

Hallo liebe Herber-Gemeinde,
ich habe ein Problem: elend Lange Tabelle, wo ich die 1., 3., 5. Zeile usw. löschen muss.
Kann mir jemand mit einem VB-Befehl aushelfen, der jede 2. Zeile der Tabelle löscht?
Ich wäre suuperhappy! Habt vielen Dank im Voraus! :-)
05.01.2010 10:26:46
Thread-ID: 1127199
4 Beiträge
Makro: jede zweite Zeile andersfarbig
Holger

Hallo,
aus diesem Forum habe ich unten stehendes Makro gefischt.
Funktioniert soweit alles, nur sobald durch AutoFilter die Auswahl verändert wird,
gerät natürlich alles durcheinander. Mit einer bedingten Formatierung möchte ich es ungern
lösen, mir ist eine reine VBA Lösung li...
07.05.2010 16:37:55
Thread-ID: 1156123
4 Beiträge
Innerhalb Markierung jede 2. Zeile löschen
Henning

Hallo zusammen,
ich habe schon gesucht, aber irgendwie keine Lösung gefunden.
Das Problem: Beim Einfügen von Daten aus einem anderen Programm übernehme ich Zeilen, die ich nicht brauche. Da ich die Daten immer wieder an anderen Stellen einfüge, suche ich nach einer Funktion, die mir in...
10.06.2010 16:54:13
Thread-ID: 1161292
3 Beiträge
Leerzeile nach jeder Zeile
Tom

Hallo
ich suche eine Möglichkeit mit der nach jeder 2.Zeile automatisch eine Leerzeile eingefügt wird.
Zeile 1=Inhalt Zeile2=leer Zeile3=Inhalt Zeile4=leer usw.
Danke vorab
TOM
05.09.2010 15:43:41
Thread-ID: 1175831
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
5
4
2
3
3
2
1
8
3
3
6
3
7
3
6
3
1
10
3
4
4
3