Excel 2000 leerzeilen einfügen

[Lion88]

Hallo!

Ich habe folgendes Problem:
Ich habe aus einer Excel tabelle eine Spalte rauskopiert und in eine neue Excel tabelle ingefügt. jetzt müssen zwischen jede Zeile der kopierten Spalte 2 Leerzeilen, also dass immer eine geschriebene zeile kommt, dann 2 leerzeilen, dann wieder ne geschrieben Zeile. ich hab ein Makro erstellt, dass mir immer 2 Leerzeilen einfügt, aber dann muss ich immer noch jedesmal 3 Zeilen anch unte gehen und Strg+d (makro) drücken. Das ist bei 1000 Einträgen nicht sehr spaßig, also würd ich das gerne automatisieren. Wie könnte ich die Makro denn umschreiben? Atm sieht sie so aus:

Sub Makro4()
'
' Makro4 Makro
' Makro am 26.9.2007 von xxx aufgezeichnet
'
' Tastenkombination: Strg+d
'
Selection.EntireRow.Insert
Selection.EntireRow.Insert
End Sub

Hätte da jemand ne Idee? Bräuchte möglichst schell Hilfe dazu!

EDIT: Sryfür Tippfehler im Header.....

 

[bare242]

AW: Excel 2000 lerrzeilen einfügen

Nicht besonders elegant, aber so sollte es gehen:

Sub Makro4()
'
i = 1
While Cells(i, 1) <> ""
    Rows(i).Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    i = i + 3
Wend
End Sub

i ist die Zeile, die "1" bei Cells() ist die Nummer der Spalte. Die Schleife läuft solange bis eine leere Zelle gefunden wird.

 

[Lion88]

AW: Excel 2000 lerrzeilen einfügen

P E R F E K T !

Vielen Dank, hat super funktioniert! :-)

EDIT:
Mist, hab noch was vergessen... Die Zeilen, die Text enthalten, sollen farbig hinterlegt sein... Wenn ich sie färbe, bevor ich das Makro anwende, wird alles geld, und danach müsste ich es wieder manuell machen... Kannst du das noch irgendwie einfügen? :-)

PUSH: hilfe, kann mir da keiner helfen? :-/

 

[CHaos.Gentle]

stichwort: "bedingte formatierung"

suchen kannst selber...

 

[bare242]

Vielleicht wieder nicht sehr elegant, aber mit folgendem Makro sollte es klappen:

Sub Makro4()
'
i = 1
While Cells(i, 1) <> ""
    Rows(i).Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Rows(i).Interior.ColorIndex = xlNone
    Rows(i + 1).Interior.ColorIndex = xlNone
    i = i + 3
Wend
End Sub

 

[Lion88]

Sry, ich bin einfach ein totaler Excel Noob...

Wo muss ich die Farbe eintragen, wenn ich als farbe zum Beispiel Hellgelb will?

Ok, bin echt zu dumm.. Es hat funktionert, vielen Dank nochmal :-)

 

[bare242]

Weil ich nicht wusste, welche Farbe du haben willst (und welche Nummer die intern bei Excel hat), dachte ich mir, es ist besser, du färbst wie gehabt selbst erstmal ein, und das Makro fügt dann farblose Zeilen ein. Hätte ich vielleicht gleich dazuschreiben können. Aber du hast es ja auch so rausgefunden.

 

[DragonIce]

@ Lion88 -- Zeichne doch ein Makro auf. Er nimmt dann alles in VBA auf was du machst wie Rahmen, Färben, Markieren, Selektieren usw.
Musst nur noch das unwichtige raustrennen und das Ganze in deine Schleife setzen und dann hast du es

 

[Lion88]

Jo, das hatte ich auch so vor. Ich hab nur leider keine Ahnung, wie ich ne Schleife in Excel schreibe. ich habs versucht, aber er is immer an der gleichen zeile hängen geblieben :-/
Naja, jetzt funktioniert es ja! :-)

 

[DragonIce]

Es kommt immer drauf an was für eine Schleife du brauchst.
Und so viele Varianten gibts ja nicht

• kopfgesteuert
• fußgesteuert
• Zählschleife

Das teilt sich unter folgenden auf. Was wozu gehört erkennst du vllt.
Do - Loop // Do - While // While - Wend // For - Next

Zur Not hier gucken --> Schleife (Programmierung)