Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen mit Makro einfügen

Zeilen mit Makro einfügen
10.09.2003 08:21:12
Stefan
ich brauche heute morgen mal hilfe

in meiner spalte a stehen zahlen von 1 bis 9, die zeilenanzahl ist variabel.
jetzt möchte ich nach jedem zahlenwechsel eine leerzeile einfügen.
z.b.
1
2
3
3
1
und jetzt möchte ich

1

2

3
3

1

vielen dank für die hilfe

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen einfügen
10.09.2003 09:07:39
MRP
Hallo Stefan,
mal so aus dem Bauch raus, ohne es getestet zu haben:
Autofilter setzen nach 1 bzw. 2 bzw. 3 usw. filtern, Spalte markieren, Bearbeiten/Gehe zu/Inhalte... nur sichtbare Zellen, Einfügen/Zeilen.
Bin nicht so gut in VBA, aber wenn du dir das einmalig mit dem Makrorecorder aufzeichnest, und dann so ne Art Schleife bastelst, für 1 bis 9 könnte es evtl. funzen.
Wie gesagt, habs net getestet, viel Erfolg beim ausprobieren.
Ciao
Manuele Rocco Parrino
AW: Zeilen mit Makro einfügen
10.09.2003 10:40:59
Alexandra
Bei mir hats funktioniert.

Public SpaA%,BAnf%,VG1$,VG2$

Sub desd()
BAnf = 1
SpaA = 1
VG1 = Cells(BAnf, SpaA).Value
VG2 = Cells(BAnf + 1, SpaA).Value
Do While VG2 <> ""
If VG1 <> VG2 Then
Rows(BAnf + 1).Insert
BAnf = BAnf + 1
End If
BAnf = BAnf + 1
VG1 = Cells(BAnf, SpaA).Value
VG2 = Cells(BAnf + 1, SpaA).Value
Loop
End Sub

Anzeige
Super es geht! Danke
10.09.2003 11:15:08
Stefan
Danke
AW: Zeilen mit Makro einfügen
10.09.2003 11:28:04
BerndE
Hallo Stefan,

noch eine (kürzere) Lösung:

For Zeile = 2 To ActiveSheet.UsedRange.Rows.Count
MsgBox (Cells(Zeile, 1).Value & vbLf & IsEmpty(Cells(Zeile, 1)))
If Cells(Zeile, 1).Value <> Cells(Zeile - 1, 1).Value And _
IsEmpty(Cells(Zeile - 1, 1)) = False Then Rows(Zeile).Insert Shift:=xlDown
Next

Gruß
Bernd

www.bernds.page.de.vu

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige