Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Freie Zelle suchen - dringend

Freie Zelle suchen - dringend
03.05.2002 10:12:44
Veronika
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Freie Zelle suchen - dringend
03.05.2002 10:37:51
Alfred
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

Anzeige
Re: Freie Zelle suchen - dringend
03.05.2002 11:09:21
WernerB.
Hallo Veronika,

was hältst Du hiervon:

Viel Erfolg wünscht
WernerB.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige