Office: Nächste Freie Zeile

Swax · 7. Mai 2014

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

EarlFred · 7. Mai 2014

Hallo Swax,

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

Dim vRet As Variant
Dim lngFirstFree As Long
vRet = Evaluate("=Match("""",Übersicht!B3:B10&"""",0)")
If Not IsError(vRet) Then lngFirstFree = CLng(vRet) + 2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

chris-kaiser · 7. Mai 2014

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:

Sub lastFree()
'ab Zeile 3 und Spalte 3
Dim lngLastRow As Long, NextFreeRow As Long, myRow As Long
With Sheets("Übersicht")
If .Cells(3, 3).Value = "" Then
myRow = 3
ElseIf .Cells(4, 3).Value = "" Then
myRow = 4
Else
lngLastRow = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
NextFreeRow = .Cells(3, 3).End(xlDown).Row
myRow = IIf(NextFreeRow = Rows.Count, lngLastRow, NextFreeRow + 1)
End If
End With
MsgBox myRow
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser · 7. Mai 2014

Hallo Earlfred,

^^ schön!

Swax · 7. Mai 2014

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

chris-kaiser · 8. Mai 2014

Hi,

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

Sub lastFree()
'ab Zeile 3 und Spalte 3
Dim lngLastRow As Long, NextFreeRow As Long, myRow As Long
With Sheets("Übersicht")
If .Cells(3, 3).Value = "" Then
myRow = 3
ElseIf .Cells(4, 3).Value = "" Then
myRow = 4
Else
myRow = .Cells(3, 3).End(xlDown).Row + 1
End If
End With
MsgBox myRow
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Nächste Freie Zeile

Nächste Freie Zeile

Nächste Freie Zeile

Nächste Freie Zeile

Nächste Freie Zeile - Similar Threads - Zeile

VBA-Code überspringt einzelne Zeilen

Nur sichtbare Zeilen zählen

Zeile Einfügen mit Bedingung Farbe der letzten Beschriebenen Zeile

VBA in einer Zeile zu lang

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Buchsatz mit Word: untere Zeile der Seiten immer auf der gleichen Höhe

leere Zelle in Zeile finden