Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1504to1508
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
in letzte spalte + 1
29.07.2016 09:50:55
tom
Hey Leute,
eigentlich eine einfache Sache, bekomme es aber nicht hin:
Möchte von P12 die letzte Spalte suchen und dann in die daneben was reinschreiben:
Sub Schaltfläche94_Klicken()
Range("P12").Select
Range(Selection, Selection.End(xlToRight)).Select
End Sub
das hab ich, fehlt nur noch die plus 1...wohin oder wie lößt man das?
VG
Tom

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mit OffSet
29.07.2016 09:56:32
Rudi
Hallo,
Range(Selection, Selection.End(xlToRight).OffSet(, 1)).Select
wobei Select i.d.R. überflüssig ist.
Gruß
Rudi
AW: mit OffSet
29.07.2016 10:02:09
tom
Hi, danke,
und wie kann ich die letzte Zelle dann auswählen,
bzw von dort drei zeilen nach unten navigieren und diese Zelle auswählen?
Also so das der Teil vorher nicht markiert wird?
VG
Tom
AW: mit OffSet
29.07.2016 10:14:35
Rudi
Hallo,
Range("P12").end(xltoright).Offset(3,1).select
Gruß
Rudi
AW: in letzte spalte + 1
29.07.2016 09:56:44
baschti007
LastS = Worksheets("Tabelle1").Cells(12, 256).End(xlToLeft).Column + 1
Worksheets("Tabelle1").Cells(12, LastS) = "bla"
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige