Zum letzten Eintrag in einer Zeile springen

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

nach dem ich mit den gefundenen Google-Makros nicht erfolgreich war, möchte ich euch die Frage stellen, mit welchem Makro es gelingt, zur letzten (räumlich gemeint) beschriebenen Zelle von zB Zeile 6 zu gelangen.

Weiß jemand eine Lösung?

Freundliche Grüße

Jorge

2

mit welchem Makro es gelingt, zur letzten (räumlich gemeint)
beschriebenen Zelle von zB Zeile 6 zu gelangen.

Hallo Jorge

Versuche es mal mit folgendem nicht sehr professionellem Makro

Sub LetzteZelle()
sp = 1: ssp = 1
iZeile = InputBox("Welche Zeile?", "Letzte Zelle", 6)

While sp 0 Then ssp = sp
 sp = sp + 1
Wend
ActiveSheet.Cells(iZeile, ssp).Select
End Sub

Grüsse Niclaus

3

welchem Makro es gelingt, zur letzten (räumlich gemeint)
beschriebenen Zelle von zB Zeile 6 zu gelangen.

Hallo Jorge,

Cells(6, Columns.Count).End(xlToLeft).Select

Gruß
Reinhard

4

Hallo Reinhard
Ohne Dich würden wir steinzeitmässig rumbasteln, wie wenn wir aus einem vergangenen Jahrtausend stammen würden!
Mit Makro-Aufzeichnung bin ich zwar auch auf xlToLeft gestossen, das dann richtig in das Makro einbauen, das kann nur der Fachmann.
Danke
Niclaus

5

und doch so schön.

Hallo Reinhard,

schön mal wieder von dir zu lesen.

Vielen Dank

Jorge

6

Hallo Niclaus,

ich hab mich für Reinhards Lösung entschieden, werde aber deinen Vorschlag unter „Interessante Makros“ abspeichern.
Vielen Dank für deine Mühe.

Grüße

Jorge