Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
560to564
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
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeile nach Bedingung

Leerzeile nach Bedingung
08.02.2005 11:49:15
Hermann
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

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

Betreff
Datum
Anwender
Anzeige
AW: Leerzeile nach Bedingung
XYZ
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
...kleine Korrektur
XYZ 

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

AW: ...kleine Korrektur
08.02.2005 12:41:07
Hermann
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
Anzeige
AW: ...kleine Korrektur
XYZ
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

AW: ...kleine Korrektur
08.02.2005 12:53:27
Hermann
SUPER!!!! DANKE!!!!
Und das ganze noch soooooo schnell! Ich bin echt begeistert!!!
1000000 Dankeschön
Hermann

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige