Nächste Freie Zelle auswählen

Forumthread: Nächste Freie Zelle auswählen

01.10.2007 18:04:44

Weber

Hallo Leute, hab mal wieder ein kleines Problem. Ich arbeite an einer Dartauswertungstabelle und bräuchte mal eure Hilfe.
Ich hab ne'n Spaltenbereich D5 bis D31 und möchte via Makrobutton in die jeweils erste LEERE Zelle von oben springen. Soll heißen, wenn die Zellen D5 bis D9 mit einem Wert belegt sind, soll der Cursor in D10 landen. Ich hab nur keinen Plan wie ich's anstellen soll. Danke für eure Hilfe.
PS: Hab natürlich auch schon auf der CD und in der Online Suche nachgeschaut, aber nix gefunden.
Danke im voraus !!!
mfg. Eddy

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Nächste Freie Zelle auswählen

01.10.2007 18:22:44

Original
AW: Nächste Freie Zelle auswählen

01.10.2007 18:27:00

Jan3
Nächste Freie Zelle auswählen o.VBA

01.10.2007 21:57:00

Christian

AW: Nächste Freie Zelle auswählen

01.10.2007 18:22:44

Original

Hi,
Range("D5").End(xlDown).Offset(0, 1).Select
mfg Kurt

AW: Nächste Freie Zelle auswählen

01.10.2007 18:27:00

Jan3

Hi,
Diesen Code in ein Modul und einer Schaltfläche zuweisen.
Sub auswählen() anz = ActiveSheet.Range("D31").End(xlUp).Row Range("D" & anz + 1).Select End Sub

Jan

Nächste Freie Zelle auswählen o.VBA

01.10.2007 21:57:00

Christian

Hallo Eddy,
mal ohne VBA:
Tabelle3

	D	E	F
3			Eintrag
4
5	12
6	13
7	14
8	15
9	16
10	17
11	18
12	19
13	20
14	21
15

Formeln der Tabelle

Zelle	Formel
F3	=HYPERLINK("#"&"D"&WENN(ISTNV(VERWEIS(2;1/(D5:D31<>""); ZEILE(D5:D31))); 5;MIN(31;VERWEIS(2;1/(D5:D31<>""); ZEILE(D5:D31))+1)); "Eintrag")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
MfG Christian

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die nächste freie Zelle in einem bestimmten Bereich in Excel auszuwählen, kannst Du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung, die Dir zeigt, wie Du das umsetzen kannst:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke im Menü auf Einfügen und wähle Modul aus.

Füge den folgenden Code in das Modul ein:

Sub auswählen()
    Dim anz As Long
    anz = ActiveSheet.Range("D31").End(xlUp).Row
    Range("D" & anz + 1).Select
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Füge eine Schaltfläche hinzu und weise das Makro auswählen zu.
Klicke auf die Schaltfläche, um zur nächsten freien Zelle in der Spalte D zu springen.

Häufige Fehler und Lösungen

Fehler: Das Makro funktioniert nicht.
- Lösung: Stelle sicher, dass Du das Makro korrekt zugewiesen hast und die Sicherheitsstufe für Makros in den Excel-Optionen auf „Aktivieren“ gesetzt ist.
Fehler: Der Cursor springt nicht zur richtigen Zelle.
- Lösung: Überprüfe, ob sich in der Spalte D tatsächlich leere Zellen befinden. Der Code berücksichtigt nur die letzten belegten Zellen.

Alternative Methoden

Falls Du keine Makros verwenden möchtest, gibt es auch eine Möglichkeit, die nächste freie Zelle ohne VBA auszuwählen:

Klicke auf die Zelle D5.
Drücke STRG + Pfeil nach unten, um zur letzten belegten Zelle in der Spalte D zu springen.
Drücke Pfeil nach unten, um zur nächsten freien Zelle zu gelangen.

Diese Methode ist schnell und erfordert keine Programmierkenntnisse.

Praktische Beispiele

Beispiel 1: Wenn Du eine Dartauswertungstabelle führst und die Werte in D5 bis D9 belegt sind, wird der Cursor beim Ausführen des Makros in D10 landen.

Beispiel 2: Wenn Du in D5 bis D15 Werte hast und D16 leer ist, wird das Makro den Cursor ebenfalls in D16 setzen.

Tipps für Profis

Überlege, ob Du den Code erweitern möchtest, um mehrere Bereiche gleichzeitig zu überprüfen.
Nutze Application.GoTo statt Range.Select, um den Code effizienter zu gestalten.

Hier ist ein Beispiel für eine erweiterte Funktion:

Sub nächsteFreieZelle()
    Dim anz As Long
    anz = ActiveSheet.Range("D5:D31").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("D" & anz + 1).Select
End Sub

Diese Version sucht nach der letzten belegten Zelle im Bereich D5 bis D31 und springt dann zur nächsten freien Zelle.

FAQ: Häufige Fragen

1. Wie kann ich das Makro für andere Spalten anpassen?
Du kannst die Spaltenbezeichnung im Code ändern, z. B. Range("E" & anz + 1).Select für Spalte E.

2. Funktioniert das auch in Excel Online?
Leider kann VBA in Excel Online nicht verwendet werden. Du musst eine Desktop-Version von Excel verwenden, um Makros auszuführen.

Beliebteste Forumthreads (12 Monate)