Beitrag aus dem Excel-Forumsarchiv
Home Zur Übersicht    
Thema: Loop

Betrifft: Loop
von: chrissey
Geschrieben am: 27.05.2009 18:12:59

Hallo Leut,

brauch nen Loop der mir z.B. die Spalte a nach der ersten leeren Zelle absucht und
dann die Zeilennummer in einer Variablen, sagen wir mal z speichert.

Danke schon mal im Voraus und Grüze mit Z ;)))))

  

Betrifft: AW:Wieso Loop - SPECIALCELLS geht auch:
von: Daniel
Geschrieben am: 27.05.2009 18:20:48

Hi

Z = Columns(1).SpecialCells(xlcelltypeblanks)(1).row


bei dieser Variante können aber Fehler auftauchen, wenn ein geschlossener Zellblock ohne Leerzellen dazwischen vorliegt.
Excel ignoriert in diesem Fall die leeren Zellen am Ende nicht, deswegen läuft die Funktion auf einen Fehler.

dem kann man aber so begebnen:

Z = Cells(rows.count,1).end(xlup).row +1
on Error resume Next
Z = Columns(1).SpecialCells(xlcelltypeblanks)(1).row
on Error Goto 0



Gruß, Daniel


  

Betrifft: oder so
von: Jens
Geschrieben am: 28.05.2009 00:04:39

Hi

z = Range("A:A").End(xlDown).Row + 1

Gruß aus dem Sauerland

Jens


  

Betrifft: AW: Loop
von: robert
Geschrieben am: 27.05.2009 18:22:14

hi,

das sollte es sein

gruß
robert

z=cells(rows.count,1).end(xlup).row+1