Nächste leere Zelle in SpalteC finden

Question

Hallo Excelfreunde,
kann man eine leere Zelle (Spalte C) finden, wenn oben in der Mitte und unten der Tabelle Einträge vorhanden sind. Wie kann man die (Nr. 7) auswählen.
Tabellenaufbau:

1 Eintrag1 Range("C1:C65536").End(xlDown).Offset(1, 0).Select ( Nr.3 )
2 Eintrag2
3
4
5 Eintrag5
6 Eintrag6
7
8
9 Eintrag9 Range("C65536").End(xlUp).Offset(1, 0).Select (Nr. 11)
10 Eintrag10
11
12

Ich hoffe ich konnte es richtig erklären, und ihr habt eine Idee dazu.

Gruß
fedjo

Answer 1

Zeile nicht aber Zelle.

Option Explicit

Sub naechste_leere_Zelle()
Dim RaFound As Range
' Spalte A
Set RaFound = Range("A1:A" & Rows.Count).Find("", , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
MsgBox RaFound.Address
End If
Set RaFound = Nothing
End Sub

Gruß Hajo

Answer 2

Hallo Hajo,
danke für die schnelle Antwort.
Dein Makro zeigt mir die leere Zelle A3 an, ich wollte aber A7 auswählen, gibt es dazu noch eine andere Möglichkeit?

Gruß
fedjo

Answer 3

Hallo Fedjo,

da wirst Du wohl oder übel noch ein Kriterium benennen müssen, denn Excel kann ja nicht raten :-)

Gruß
Rainer

Answer 4

Hallo Rainer,
mein Gedanke war eigentlich A3 auswählen mit (Range("A1:A65536").End(xlDown).Offset(1, 0).Select ) und mit der ActivenCell die nächste belegte Zelle (A5) zur leeren Zelle (A7).

Gruß
fedjo

Answer 5

bei mir wird A3 anzeigt. Ich vermurte A3 und A4 sind nicht leer.

Gruß Hajo

Answer 6

bei mir wird auch A3 angezeigt.

Dein Makro zeigt mir die leere Zelle A3 an, ich wollte aber A7 auswählen

Gruß
fedjo

Answer 7

Du hast geschrieben die nächste leere. Für A7 hast Du noch nicht die Bedingung geschrieben obwohl Rainer schon darauf hingewiesen hat.

Gruß Hajo

Answer 8

Hallo Fedjo,

da kann ich leider nicht helfen, da ich auch den wahren Hintergrund Deines Vorhabens nicht kenne.

Ich würde mir evtl. mit einer Hilfsspalte helfen, in welcher ich per Formel bestimmte Kriterien auswerte und diese dan im Makro verwende.

Dazu müsste man aber das Original besitzen, was Du wahrscheinlich aus verständlichen Gründen nicht preisgeben kannst.

Gruß
Rainer

Answer 9

Hallo Rainer,
der eigentliche Grund für die leeren Zellen ist, das gleichzeitig drei Personen in die Tabelle auf einer freigegebenen Datei auf den Server eintragen. Ich hatte schon so eine Ahnung das so nicht funktioniert.

Vielleicht git es mit SpecialCells(xlCellTypeBlanks).Select noch eine Möglichkeit.

Gruß
fedjo

Answer 10

Hallo Fedjo,

ich befürchte, auch dabei geht es nicht ohne weiteres Kriterium.

Gruß
Rainer