76 Aufrufe
Gefragt in Tabellenkalkulation von revanchist Mitglied (216 Punkte)
Hallo
bin wieder einmal fast am Verzweifeln mit einem Excel-VBA-Befehl.
.
Die Ausgangssituation: mit:
Range("B24").Select
Selection.End(xlDown).Select

springt der Cursor – egal wo er sich vor dem Befehl im Tabellenblatt befindet – also z.B. in Zelle ID38 – in die letzte befüllte Zelle in Spalte B.
Ich möchte den obigen Befehl erweitern, dass der Cursor exakt 1 Zelle tiefer als die letzte gefüllte Zelle in Spalte B springt. Wenn die letzte befüllte Zelle B68 wäre, soll der Cursor in B69 gleich eine Eingabe ermöglichen ohne noch einmal händisch von B68 eine runter manövrieren zu müssen.

Ich habe es versucht mit
With ActiveCell           ‘(welche ja immer irgendwo in meinem Beispiel in Spalte B sein kann)
Range(.Offset(1, 0), .Offset(1, 0)).Select
End With

aber ohne Erfolg.  Auch ein Lösungsvorschlag von Mr. K. aus dem Februar 2016 brachte bei mir, nicht den gewünschten Erfolg.
Vlt. ist es nur eine kleine Ergänzung die fehlt – oder der Zusatz ist völliger Quatsch.
Wer hat einen Tipp für mich?

LG der Revanchist

2 Antworten

0 Punkte
Beantwortet von beverly_ Experte (3.4k Punkte)

Hi,

z.B. so:

    Dim lngLetzte As Long
    lngLetzte = Columns(2).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Cells(lngLetzte + 1, 2).Select

Bis später, Karin

0 Punkte
Beantwortet von revanchist Mitglied (216 Punkte)

Hallo Karin

funktioniert einwandfrei - ich kann mich nur verneigen,
wie du das immer so schnell hinbekommst.yes

Ciao der Revanchist
 

...