Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1816to1820
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
Inhaltsverzeichnis

Freie Zelle suchen von bis

Freie Zelle suchen von bis
04.03.2021 08:21:18
bis
Guten Morgen zusammen,
gibt es eine Möglichkeit eine freie Zelle auch nur in einem bestimmten Bereich suchen zu lassen?
Set rngBereich = Range("E2:E40")
With Worksheets("Nummernkreis")
lastrow = rngBereich.End(xlDown).Row
rng = Cells(lastrow, "A")
FreieNR = rng + 1
End With
Jetzt spuckt er mir aber als nächste freie Zelle E60 aus.
Jemand einen Tipp?
Gruß Lars

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

Betreff
Datum
Anwender
Anzeige
AW: Freie Zelle suchen von bis
04.03.2021 09:00:29
bis
Einfacher wie gedacht.
rngStart = 2
rngEnd = 41
With Worksheets("Nummernkreis")
lastrow = Cells(rngStart, "E").End(xlDown).Row
If lastrow 


AW: Freie Zelle suchen von bis
04.03.2021 09:04:04
bis
Hallo Lars,
hier mein mein Versuch (der klappt):

Sub test1()
Dim rngBereich As Range, rngBlank As Range
Set rngBereich = Range("E2:E40")
On Error Resume Next
Set rngBlank = rngBereich.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rngBlank Is Nothing Then
MsgBox "1. leere Zelle im Bereich: " & rngBlank.Cells(1).Address
Else
MsgBox "Sorry, keine leere Zelle im Bereich!"
End If
Set rngBereich = Nothing: Set rngBlank = Nothing
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige