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

Beiträge aus den Excel-Beispielen zum Thema "Cursor soll zur nächsten leeren Zelle springen"