Office: Leere Zeilen überspringen

Hi
Ich möchte 5 Zellen gruppieren und Leer-Zeilen überspringen.
(Da die erste Spalte eine Zeilen-Nummer ist, soll die Prüfung in Spalte 2 erfolgen)

Ich hatte dies so versucht:

Dim a As Integer
For a= 1 to 100
ActiveCell.Offset (0,1). Activate

If Cells (1,1) ="" Then
ActiveCell.Offset (1,-1).Activate

Else
ActiveCell. Offset (0,-1). Activate
ActiveCell. Rows ("1:5"). Entire Row. Select
Selection.Rows.Group
ActiveCell.Offset (6,0). Activate

End If

Next a

Leider springt er nie zur Else Routine,
auch wenn die Zelle nicht leer sind?!

Was läuft falsch?

Vielen Dank im Voraus,
Schumi

:)

 

Hallo,

mit der Zeile Code:

fragst du immer die gleiche Zelle (A1) ab, da ändert sich also nichts ...

 

Aha. Was empfiehlst Du anstatt, um zu prüfen, ob die aktive Zelle leer ist?

 

Na ja, da ich die Datei nicht sehe bleibt nur ein Schuss in's Blaue: Code:

-> a ist der Zähler, 2 ist die Spalte B, die du ja wohl überprüfen willst.

Ansonsten: Stelle eine Datei ein, dann sehen wir weiter ...

 

Ich habe die Lösung gefunden.
Lag eigentlich ganz nah...
Statt
If Cell (1,1) =""
muss die Zeile lauten:
If ActiveCell =""

dann funktioniert der Ablauf und die Verzweigung