Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.10.2025 20:14:37
Ich suche einfach erstmal nach einer Idee oder ein Demo
06.10.2025 19:15:29
Mit Uhrzeit rechnen
06.10.2025 18:25:16
Einträge einer Tabelle über Userform ändern
06.10.2025 17:03:04
Makro csv-Datei laden und Int.Tabelle anlegen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Freie Zelle suchen von bis

Forumthread: 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

Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige