Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1960to1964
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 im Bereich

Freie Zelle im Bereich
29.01.2024 09:36:13
Bend2r
Hallo Excel Community,

ich möchte einen VBA Code schreiben, der, wie schon so oft gefragt die erste freie Zelle innerhalb einer Spalte sucht. Dafür habe ich bereits einen passenden Code gefunden

last = Cells(Rows.Count, 1).End(xlUp).Row + 1

Nun möchte ich allerdings, dass die Suche der freien Zelle nur innerhalb eines Bereichs erfolgt z.B. A5 - A10.

Wenn also A5 und A6 befüllt sind, soll das Makro die Zelle A7 als erste freie Zelle erkennen.

Über eine Antwort würde ich mich sehr freuen.

Vielen Dank!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Freie Zelle im Bereich
29.01.2024 10:30:53
hary
Moin
Versuch es mal damit:
Dim freie As Long

If Application.CountBlank(Range("A5:A10")) > 0 Then
freie = Range("A5:A10").SpecialCells(xlCellTypeBlanks).Cells(1).Row
Else
MsgBox "Bereich ist voll"
End If

gruss hary
AW: Freie Zelle im Bereich
29.01.2024 10:50:00
UweD
Hallo

noch eine Möglichkeit.

    Dim EZ

EZ = Evaluate("=MIN(IF(A5:A10="""",ROW(5:10)))") 'Erste Lücke in Spalte


LG UweD
AW: Freie Zelle im Bereich
29.01.2024 11:04:07
Bend2r
Hallo UweD,

deine Variante funktioniert auch wie gewollt, vielen Danke an euch beide!!!! :)

LG Bend2r
Anzeige
AW: Freie Zelle im Bereich
29.01.2024 10:49:53
Bend2r
Hey hary,

danke für deine Mühe. Leider macht der Code bei mir garnichts :(

AW: Freie Zelle im Bereich
29.01.2024 10:58:58
Bend2r
Hey hary, vergiss was ich gesagt habe, funktioniert bestens.

Ich habe mir nur nicht die freie Zeile ausgeben lassen und dachte dass es nicht funktioniert :)

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige