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
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
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
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
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
falsch war net deine ideen ,nur anders :))
gruss nighty