Leerzeile nach Bedingung

Bild

Betrifft: Leerzeile nach Bedingung von: Hermann
Geschrieben am: 08.02.2005 11:49:15

Hallo!

Ich hab folgendes Problem:

Ich hab ein Excel-sheet für eine Schirennen Auswertung gemacht. Es gibt meherer Gruppen. Ich habs schon hingebracht, das wenn ne neue Gruppe beginnt automatisch der Platz wieder 1 ist und dann weitergezählt wird. Jetzt möchte ich wegen der Übersicht vor jedem 1. Platz ne Leerzeile einfügen.
Die Plätze sind in Spalte A. Also wenn A=1 dann vorher ne Leerzeile.
Ich hock schon 3 Stunden da und find nichts.

Bitte helft mir!

Hermann

Bild


Betrifft: AW: Leerzeile nach Bedingung von: XYZ
Geschrieben am: 08.02.2005 12:11:15

Teste mal:

Sub einfuegen()
For each zelle in Range("A:A")
If Zelle = 1 then
Rows(zelle.Row.select
Selection.Insert Shift:=xlDown
End if
Next
End Sub


XYZ


Bild


Betrifft: ...kleine Korrektur von: XYZ
Geschrieben am: 08.02.2005 12:14:49

Sub einfuegen()
For each zelle in Range("A:A")
If Zelle = 1 then
Rows(zelle.Row).select
Selection.Insert Shift:=xlDown
End if
Next
End Sub



Bild


Betrifft: AW: ...kleine Korrektur von: Hermann
Geschrieben am: 08.02.2005 12:41:07

Habs reinbekommen! Er fügt aber endlos viele Leerzeilen ein! Wahrscheinlich weil ja der 1er immer noch dasteht! Den müsste mann nach dem einfügen überspringen und zum nächsten gehen!
Vielleicht kannst du mir noch weiter helfen?

Trotzdem schonmal danke

Hermann


Bild


Betrifft: AW: ...kleine Korrektur von: XYZ
Geschrieben am: 08.02.2005 12:50:15

Du hast recht, sorry!

Damit sollte es besser klappen:

Sub einfügen()
For Z = 1 To 1000 '<- Zeilenazahl anpassen
If Cells(Z, 1) = 1 Then
Rows(Z).Select
Selection.Insert Shift:=xlDown
Z = Z + 1
End If
Next
End Sub



Bild


Betrifft: AW: ...kleine Korrektur von: Hermann
Geschrieben am: 08.02.2005 12:53:27

SUPER!!!! DANKE!!!!
Und das ganze noch soooooo schnell! Ich bin echt begeistert!!!

1000000 Dankeschön

Hermann


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Leerzeile nach Bedingung"