Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

erste leere zelle einer spalte suchen (vba)





Frage

hallo, ich möchte aus einer liste in einer spalte die erste zeile auswählen, die leer ist, um einen neuen eintrag hinzuzufügen. gibt es was weniger aufwendigeres als eine schleife: count = 1 do if cells(count,spalte).value = "" then leerzeile = count end if count = count +1 loop until leerzeile <> "" hat da jemand ne idee? danke und gruß janu

Antwort 1 von nighty

hi janu :)

wie gewünscht :)

gruss nighty

Sub makro01()
Rem letzte zeile eines sheets
Cells(1, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

Rem letze spalte eines sheets
Cells(2, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

Rem letzte zeile einer spalte
Cells(3, 1) = ActiveSheet.Range("D65536").End(xlUp).Row + 1

Rem letzte spalte einer zeile
Cells(4, 1) = ActiveSheet.Range("3:3").End(xlUp).Row + 1
End Sub

Antwort 2 von janu

danke nighty! :)

genau das was ich brauche!

(p.s. mein code wär sogar falsch: loop until = "")

gruß
janu

Antwort 3 von janu

danke nighty! :)

genau das was ich brauche!
jetzt kann ich mir endlich verschachtelte schleifen sparen ;)

(p.s. mein code wär sogar falsch: loop until = "")

gruß
janu

Antwort 4 von janu

oops doppelpost. sry :/

Antwort 5 von fedjo

Hallo janu,
vesuchs doch mal mit einem ganz einfachen Cote:

Sub LeerZelle()

[A:A].SpecialCells(xlBlanks).Cells(1).Select

End Sub

Gruß
fedjo

Antwort 6 von nighty

hi janu :)

falsch war net deine ideen ,nur anders :))

gruss nighty