Nächste leere Zeile bestimmen (VBA) GEHT NICHT!!!

Question

Hallo zusammen!

Ich werde hier echt gleich WAHNSINNIG!!!

Bitte, bitte, bitte kann mir jemand sagen was ich falsch mache???
Mit diesem mini-VBA-Code (siehe Muster-Datei) sollte doch in die
Variable t1 die nächste freie Zeile der Spalte B eingetragen werden.

Das Ergebnis sollte eigentlich 10 sein.
Excel/VAB trägt aber immer 7 ein !!!!

Was mache och denn falsch???

Bitte helft mir ;....(

Hier die Datei:
www.file-upload.net/download-4164323/bsp.xlsm.html

Answer 1

Warum muß ich eine Datei runterladen um den Code zu sehen. Dazu ist der Beitrag da.
Ich setze keine Knackprogramme zum knacken von Passwörtern ein.

Gruß Hajo

Answer 2

@ Hajo

Entschuldigung, da habe ich mit der Passwort-Funktion rumgespielt
und wohl vergessen es raus zu machen.

Hier ist es noch einmal OHNE PAsswort:
www.file-upload.net/download-4164363/bsp.xlsm.html

Und warum ich diese Datei bereitstelle?
Na ich dachte, dass es für die Helfer so einfacher ist zu verstehen :-(

Zumal die Helfer doch nachvollziehen müssen, wieso da ein Wert "7"
zustande kommt. Dafür müsst ihr doch sehen wie die Datei aussieht
dachte ich...

Hatte wirklich nix mit Faulheit zu tun oder so.
Aber gerne hier nur den VBA-Code:

Sub Test()

Dim t1 As Variant

t1 = Sheets("Testseite").Cells(1, 2).End(xlDown).Row


For i = 8 To t1
'Anweisung
Next

End Sub

Und auf dieser "Testseite" steht eben was bis in Zeile 10
geschrieben...

Vielleicht hat dich die Lust zum helfen ja noch nicht verlassen.
Und sorry- wollte es eigentlich nur für die Helfer vereinfachen :-(

Answer 3

gehe in B1 und drücke Strg und Pfeil nach unten und bekommst das gleiche Ergebnis wie VBA. Falls Du die erste leere Zelle Haben willst mußt Du Find benutzen nach ""


Gruß hajo

Answer 4

strg pfeil nacch unten ist falsch. Mir fällt aber gerade die Tastenkombination ein. Mit Strg Pfeil nach unten kommst Du nur zum nächsten Wert nach einer Leeerzelle, aber irgendwann auch zum ende de´r Spalte, was Du festgestellt hast.

Gruß hajo

Answer 5

@ hajo

Erstmal danke für deine Mühe und Geduld!
Leider verstehe ich nicht ganz was du meinst :-/

Aber eine Sache fällt mir auf:
Du sagst, dass ich von OBEN nach unten gehen soll. Das stimmt,
dann kommt 7 raus.

Aber ich dachte diese Formel geht von UNTEN los!
Denn das wäre eigentlich was ich brauche...!

Gibt es da eine Lösung?

Was auch gehen würde:
Das eben doch von OBEN angefangen wird zu schauen wo die erste
freie Zeile kommt, ABER erst ab einer bestimmten Zeile angefangen
wird zu schauen... Verstehst du/ihr was ich meine? Also VBA kann
ruhig von oben anfangen zu schauen, aber erst ab Zeile 7 damit
anfangen...

Schon mal Danke für deine/eure Hilfe!

Answer 6

GOTT stand ich auf der Leitung...!!!

Ich muss aus

Cells(1, 2)

natürlich einfach

Cells(7, 2)

machen.

Aber vielen vielen Dank hajo, du hast mich auf die Spur gebracht!!
Dir einen schönen Sonntag!

Answer 7

Du hasrt zu meiner Feststellung
"Falls Du die erste leere Zelle Haben willst mußt Du Find benutzen nach "" " nichts geschrieben. Man könnte jetzt vermuten Du willst die erste leere haben?

Sub naechste_leere_Zelle()
'**************************************************
'* H. Ziplies *
'* 14.11.08 *
'* erstellt von HajoZiplies *
'* http://Hajo-Excel.de *
'**************************************************
Dim RaFound As Range
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Set RaFound = Range("A1:A" & LoLetzte).Find("", Range("A" & LoLetzte), , xlPart, , xlNext)
If Not RaFound Is Nothing Then
MsgBox RaFound.Address
End If
Set RaFound = Nothing
End Sub

Gruß hajo