Herbers Excel-Forum - das Archiv

Cursor soll zur nächsten leeren Zelle springen

Bild

Betrifft: Cursor soll zur nächsten leeren Zelle springen
von: Dine

Geschrieben am: 22.02.2005 08:37:32
Hallo,
vielleicht kann mir jemand helfen! Ich möchte ein Makro erstellen.
Es soll in einer Spalte mit Zahlen zur nächsten freien Zelle springen (ohne Eintrag) und eine von mir vorgegebene gewünschte Zahl einfügen. Bei dem nächsten Klick auf das Makro, soll der Cursor wieder zur nächsten freien Zelle in dieser Spalte springen und meine Zahl wieder einsetzten. Ich möchte nicht, das die Zahl, welche ich vorher eingefügt habe, überschrieben wird.
Mir fehlt der Befehl: "Cursor soll zur nächsten freien Zelle am Ende meiner Spalte springen!"
Bild

Betrifft: AW: Cursor soll zur nächsten leeren Zelle springen
von: UweD
Geschrieben am: 22.02.2005 09:13:07
Hallo Dine

hier mal ein Beispiel für dich
https://www.herber.de/bbs/user/18491.xls
Gruß UWED
Bild

Betrifft: AW: Cursor soll zur nächsten leeren Zelle springen
von: Luc

Geschrieben am: 22.02.2005 09:24:44
Hallo Dine,
so einen Befehl gibt es m.W. nicht. Du wirst wohl eine auf die momentan ausgewählte Zelle bezogene Abfrageschleife (For [Each... In] ... Next oder Do While ... Loop) schreiben müssen, in der alle bzw die Folgezellen innerhalb der zugehörigen Spalte auf ihren Inhalt überprüft werden (Endzelle für Schleife oder maximale Zellenanzahl im Spaltenbereich definieren!). Mit der Select-Methode wählst du dabei die Zellen (bzw erst die ermittelte Zelle) und setzt dann Selection.Value = deineZahl.
Viel Erfolg, Luc
Bild

Betrifft: AW: Cursor soll zur nächsten leeren Zelle springen
von: bst

Geschrieben am: 22.02.2005 09:44:16
Morgen auch,
dieses sollte innerhalb von UsedRange funktionieren:
Sub BlankRechts_1()
On Error Resume Next
Range(ActiveCell.Offset(0, 1), Cells(ActiveCell.Row, Columns.Count)).SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select
End Sub

Ansonsten wohl mit Schleife.
Sub BlankRechts_2()
Dim r As Range
On Error GoTo No_Blank
Set r = ActiveCell.Offset(0, 1)
While r.Value <> ""
Set r = r.Offset(0, 1)
Wend
r.Select
No_Blank:
End Sub

cu, Bernd
 Bild
Excel-Beispiele zum Thema "Cursor soll zur nächsten leeren Zelle springen"
Die Druckseite drucken, in der sich der Cursor befindet Cursorposition in der Entwicklungsumgebung auslesen
Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen Bis zur 12. Zeile Cursor nach unten, dann nächste Spalte ansetzen
Cursor in bestimmtem Zellbereich in Eieruhr verwandeln Zeile mit Cursor farblich hervorheben
UserForm starten, wenn Cursor in Zeile 5 Wenn Zelle A7 ausgewählt wird, Cursor auf A15
Cursor-Position rechts und links markieren Feste Fenster- und Cursorpositionen bei Blattwechsel