Herbers Excel-Forum - das Archiv

Freie Zelle suchen - dringend



Excel-Version: 8xl
nach unten

Betrifft: Freie Zelle suchen - dringend
von: Veronika


Geschrieben am: 03.05.2002 - 10:12:44

Ich habe ein Problem. Wie kann ich innerhalb eines bestimmten Bereiches die nächste freie Zeile finden (z.B. erste freie Zeile 7 - gesteckter Bereich B2-K100. Zudem soll der Wert der freien Zeile in einer Variablen abgelegt werden.
Gruss und Danke

nach oben   nach unten

Re: Freie Zelle suchen - dringend
von: Alfred


Geschrieben am: 03.05.2002 - 10:37:51

Hallo Veronika!

versuch's mal so:

Option Explicit
Sub Leerzeile()
Dim Bereich As Range
Dim zeile As Range
Dim z As Range
Dim leer As Boolean
Dim lz As Long

lz = 0 ' Nummer der Leerzeile

Set Bereich = Range("B2:K100")
For Each zeile In Bereich.Rows
leer = True
For Each z In zeile.Cells
If Not IsEmpty(z.Value) Then
leer = False
Exit For
End If
Next z
If leer Then
lz = zeile.Row
Exit For
End If
Next
End Sub

Gruß
Alfred

nach oben   nach unten

Re: Freie Zelle suchen - dringend
von: WernerB.
Geschrieben am: 03.05.2002 - 11:09:21

Hallo Veronika,

was hältst Du hiervon:

Viel Erfolg wünscht
WernerB.

 nach oben

Excel-Beispiele zum Thema "Freie Zelle suchen - dringend"
Zellinhalt suchen und Zelle auswählen Suchbegriff über mehrere Tabellenblätter suchen.
Suchen und weitersuchen Zahl +/- 1 suchen
Ein Zeichen in einer Formel suchen Datum suchen und Wert eintragen
Wert in Tabelle suchen und in UserForm ausgeben Letzte Zelle mit Inhalt suchen
Textdatei nach Begriff durchsuchen und Fundzeile importieren Wert in Array suchen, ohne jedes Datenfeld abzufragen