Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Finde nächste nicht leere (Eingabe-) Zelle!!!

Finde nächste nicht leere (Eingabe-) Zelle!!!
Harald
Hallo zusammen,
in einem bestimmten Zellbereichs ("CC31:CJ486") sind bis auf einige (Eingabe-) Zellen alle Zellen gesperrt und nicht leer.
Gibt es einen Code der (analog Tab- oder Pfeil Rechts- Taste) den Cursor von der aktuellen Zelle aus automatisch in die nächste Eingabezelle springen lässt?
Wenn diese bereits einen Wert hat, Code wiederholen, sonst Code beenden.
Der Makrorecorder zeichnet die Tab- Taste oder Pfeil Rechts- Taste leider nicht auf.
Vielleicht einfacherer Lösungsansatz:
Da außer den Eingabezellen, alle Zellen des Bereichs einen Wert haben, kann der Code auch lauten:
Finde von der aktuellen Zelle aus, die nächste leere Zelle.
Ich benötige einen einfachen schnellen Code, da der Bereich sehr groß ist.
Es handelt sich um die Eingabe von Bundesliga- Spielergebnissen.
Deshalb ist die nächste Eingabezelle nie weit von der aktuellen Zelle entfernt.
Außerdem wichtig: Die Bildschirmanzeige sollte sich durch den Code nicht verändern (also nicht gescrollt werden), deshalb sollte der Code immer ab der aktuellen Zelle suchen.
Vielen Dank.
Gruß, Harald.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Finde nächste nicht leere (Eingabe-) Zelle!!!
08.01.2011 12:35:18
Tino
Hallo,
könnte in etwa so funktionieren.
Sub Find_Next_Cell()
Dim rng As Range, NextZelle As Range
Set rng = Range("CC31:CJ486")
Set NextZelle = rng.Find("", ActiveCell)
Do While NextZelle.Locked
Set NextZelle = rng.FindNext(NextZelle)
Loop
NextZelle.Select
End Sub
Diesen Code eine Tastenkombination zuweisen.
Gruß Tino
AW: Finde nächste nicht leere (Eingabe-) Zelle!!!
08.01.2011 13:09:26
Harald
Hallo Tino,
danke für Deinen Lösungsansatz.
Aber leider funktioniert es noch nicht ganz so wie ich es brauche.
In einigen (Eingabe-) Zellen ist eine Formel enthalten, deren Ergebnis = "" (leer) ist.
Diese Zellen werden von Deinem Code aber leider nicht erkannt und somit ignoriert.
Gruß, Harald
Anzeige
AW: Finde nächste nicht leere (Eingabe-) Zelle!!!
08.01.2011 13:17:31
Tino
Hallo,
versuch es mal so, habe noch ein bar Änderungen eingebaut sollte
sich der Cursor mal nicht im Bereich befindet.
Ich gehe mal davon aus, dass vor Ausführung die richtige Tabelle aktiv ist.
Sub Find_Next_Cell()
Dim NextZelle As Range
With Range("CC31:CJ486") 'Zellebereich anpassen
Set NextZelle = ActiveCell
If Intersect(NextZelle, .Cells) Is Nothing Then
Set NextZelle = .Cells(.Rows.Count, .Columns.Count)
End If
Set NextZelle = .Find(What:="", After:=NextZelle, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, SearchFormat:=False)
Do While NextZelle.Locked Or Not NextZelle = Empty
Set NextZelle = .FindNext(NextZelle)
Loop
End With
NextZelle.Select
End Sub

Gruß Tino
Anzeige
AW: Hallo Tino: Funktioniert super! Vielen Dank!
08.01.2011 16:23:33
Harald
Hallo Tino,
funktioniert super!
Vielen Dank für Deine Mühe und Grüße aus Köln,
Harald G.

314 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Leere Zelle finden und darüber Kopieren
SebastianSchelb

Hallo, ich habe noch ein Problem.
Tabelle:
Tür(A1)
Fenster(A2)
Haus(A3)
Buch(A5)
Zelt(A6)
Zelle A4 ist leer. Ich will jetzt das er die leere zelle automatisch findet und dann alle darunterbefindlichen Wörter um diese leere zelle nach oben Kopiert. Sollte dann so auss...
07.10.2008 11:28:54
Thread-ID: 1014663
3 Beiträge
Anzeige
erste numerische Zelle finden
marcl

Moin zusammen,
ich möchte im gesamten Blatt die erste numerische Zelle finden.
Ich dachte dabei an Find+IsNumeric, komme damit aber nicht weiter. Kann mir jemand helfen?
Danke
Gruß
marcl
05.11.2008 10:37:00
Thread-ID: 1021787
16 Beiträge
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Die erste belgte Zelle in Spalte F finden
Kurt

Guten Abend,
ich möchte die 1. belegt Zelle in der Spalte F finden angefangen ab Zeile 3.
Dann möchte ich den Bereich von Spalte A bis Spalte H ab Zeile6 bis zu der 1.
belegten Zelle selectieren unm dann zu kopieren,
gruß mfg Kurt
20.11.2008 20:24:39
Thread-ID: 1026539
8 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
2
2
2
15
9
7
4
2
7
3
3
1
7
3
2
8
3
19
2
7
5
3
1