Freie Zelle suchen - dringend

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


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

Beiträge aus den Excel-Beispielen zum Thema "Freie Zelle suchen - dringend"