Aug 24, 2010

5242

Nächste, leere Zeile finden - nur in Bereich

Hallo!

Ich habe ein kleines Programm geschrieben, das eine nächste leere Zeile sucht.

....
...
With Worksheets("Mitarbeiter")  
            lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
            
            If lngZeile = 1 Then
                If Not IsEmpty(.Cells(1, 1)) Then lngZeile = lngZeile + 1
            ElseIf lngZeile < .Rows.Count And IsEmpty(.Cells(.Rows.Count, 1)) Then
                lngZeile = lngZeile + 1
            Else
                MsgBox "VOLL!":  Exit Sub  
            End If
...
...

Nun ist dieser Code jedoch so, dass die gesamte Spalte kontrolliert wird, wo der letzte Inhalt steht.
Wie kann ich diesen Suchberich nun auf einen Bereich (A2:A30) begrenzen?

Lg mike

Please also mark the comments that contributed to the solution of the article

Content-Key: 149621

Url: https://administrator.de/contentid/149621

Printed on: April 19, 2024 at 15:04 o'clock

14 Comments

Latest comment

Hallo xaumichi!

Ungetestet etwa so:

With Worksheets("Mitarbeiter")  
            Voll = True
            For lngZeile = 2 To 30
                If IsEmpty(.Cells(lngZeile,"A")) Then  
                    Voll = False
                    lngZeileFrei = lngZeile
                    Exit For
                End If
            Next
            If Voll Then
                MsgBox "VOLL!":  Exit Sub  
            Else
                MsgBox "Frei: A" & lngZeileFrei  
            End If
End With

Grüße
bastla

Hallo Mike, Hallo bastla!

Code entfernt. Funktioniert leider nicht, wenn alle Zeilen leer sind

Gruß Dieter

@Dieter: Hybsch

Grüße
bastla

Zitat von @bastla:
@Dieter: Hybsch

Danke

Funktioniert aber nicht so wie gedacht (siehe letzte Antwort)

Gruß Dieter

@Dieter: Hätte mir aber trotzdem gut gefallen ...

- außerdem soll es ja in Zeile 1 offensichtlich eine Überschrift geben - daher also einfach den Bereich um diese Zeile erweitern ...

Grüße
bastla

@bastla

Zitat von @bastla:
@Dieter: Hätte mir aber trotzdem gut gefallen ...

- außerdem soll es ja in Zeile 1 offensichtlich eine
Überschrift geben - daher also einfach den Bereich um diese Zeile erweitern ...

Stimmt, in diesem Fall würde es funktionieren

Aber bei anderen Gegebenheiten funktioniert's dann leider nicht korrekt. Von Daher gesehen keine gute Lösung

Gruß Dieter

Hm...dürfte doch nicht ganz so einfach sein!
Hätte jetzt auch ein bisschen herum probiert, hab aber auch leider nichts funktionstüchtiges zusammengebracht....

Lg Mike

Hallo xaumichi!

Habe inzwischen meinen Ansatz getestet - bei mir funktioniert das ...

Grüße
bastla

Hallo zusammen!

Yepp, dem stimme ich zu. Bastlas Ansatz funktioniert

, wobei man allerdings die überflüssige Variable lngZeileFrei und Voll noch entfernen könnte, da der Zähler lngZeile ja schon das Ergebnis nach dem Schleifenabbruch beinhaltet bzw. bei Voll den ungültigen Wert 31 enthält. Also sollte ein Test mit

If lngZeile > 30 Then MsgBox "Voll": Exit Sub  

nach der For-Schleife ausreichend sein

Es geht zwar auch über die .Cells(...).End(xlUp).Row-Methode, wobei anstatt Rows.Count der Wert der letzen Range-Zeile angegeben wird. Aber im Endeffekt ist diese Funktion etwas aufwendiger, weil bei dieser Methode, die letzte Zeile (Rows.Count oder sonstige Zeilenangabe) leer sein muss, ansonsten wird die Zeilennummer zurückgegeben, die sich aufwärts vor der nächsten Leerzeile befindet. D.h. wenn die letzte Zeile nicht leer ist und in Zeile 1 eine Überschrift steht, dann wird die Zeile 1 zurückgegeben. Deswegen sollte man diese Methode auch nur mit Rows.Count (Maxzeile) und der Sicherheit, das die allerletzte Zeile (bei mir 65536) leer ist, verwenden.

Gruß Dieter

Jup, hat geklappt!

Danke schön!

Lg Mike

@Dieter
Was "lngZeileFrei" anlangt hast Du natürlich Recht ...

Bei den wenigen Zeilen, um die es hier geht, wird der Sprung aus der Schleife wohl nicht wesentlich zu einer Verbesserung der Laufzeit beitragen

- bei einem größeren Bereich dürfte es aber sinnvoll sein, nicht alle Zeilen durchlaufen zu müssen ...

Grüße
bastla

Hallo bastla!

Zitat von @bastla:
Bei den wenigen Zeilen, um die es hier geht, wird der Sprung aus der Schleife wohl nicht wesentlich zu einer Verbesserung der
Laufzeit beitragen

- bei einem größeren Bereich dürfte es aber sinnvoll sein, nicht alle Zeilen durchlaufen zu
müssen ...

Der Vorteil des Schleifenabbruchs liegt ja gerade darin, die Zeilennummer ohne größeren Aufwand zu ermitteln:

With Sheets("Mitarbeiter")  
    For lngZeile = 2 To 30
        If IsEmpty(.Cells(lngZeile, 1)) Then Exit For
    Next
        
    If lngZeile > 30 Then MsgBox "Voll!":  Exit Sub  
    
   '.....  
End With