Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen mit Makro einfügen

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige