Office: Nächste Freie Zeile

Hey Chris,

also entweder bin ich zu doof, oder da stimmt was nicht. auch in deiner Datei ist es immer die 4. selbst wenn ich in C4 was reinschreibe bleibt es bei 4.

Swax

 

Hallo Swax,

da Dir mein erster Vorschlag offenbar nicht gefällt, gibt's halt noch 'nen weiteren von mir:
Code:

Grüße
EarlFred

 

Hi,

schon klar....
bei diesem End(xldown) müsste die nächsten Zellen ab Zeile 3 gefüllt sein! (Zeile3 und 4)
Jetzt verstehe ich auch das Post von EarlFred ^^

Du kannst natürlich mit Find arbeiten oder

Code:

 

Hallo Earlfred,

^^ schön!

 

Ich danke euch beiden für eure Antworten.
Ja ich hab mich für die Variante von Chris entschieden, da ich diese halbwegs verstehe *Smilie)

Hier der angepasste Code

Sheets("Überblick").Select
With ActiveSheet
lngLastRow = .Cells(Rows.Count, 3).End(xlUp).Row + 1
NextFreeRow = .Cells(3, 3).End(xlDown).Row
myRow = IIf(NextFreeRow = Rows.Count, lngLastRow, NextFreeRow + 1)
Debug.Print myRow
End With
Sheets("Eingabe").Select

Hab jez auch den Fehler in deiner Datei gefunden *Smilie da ist ne 2 statt ner 3 *hihi* und mein Fehler war dass er das im Eingabe Blatt (wo auch der Button ist) gemacht hat und nicht im Überblick Blatt.

Liebe Grüße

Swax

 

Hi,

wenn die ersten beiden Eingabezellen geprüft werden, reicht es dies zu nehmen
Code: