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"