habe mal Gegoogelt aber nicht das Richtige gefunden.
Ich möchte in der Zeile 1 die letzte belegte Zelle ermitteln und dort
soll die Zelle aktiviert werden.
Hinweis: esind nicht alle Zellen in der Zeile Beschriftet.
gruß
kurt k
Sub LetzteZelleInZeile()
Dim loletzte As Long
loletzte = Cells(1, Columns.Count).End(xlToLeft).Column
'dient zum selektieren der Zelle ist aber meist nicht nötig
Cells(1, loletzte).Select
End Sub
Matze
Ich möchte in der Zeile 1 die letzte belegte Zelle ermitteln und dort
soll die Zelle aktiviert werden.
Wenn du die hier nicht einstellen kannst, sende die Datei an Machtnix21@gmx.de
Sub LetzteZelleInZeile()
Dim loletzte As Long
loletzte = Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox loletzte 'dient zum selektieren der Zelle ist aber meist nicht nötig
Cells(1, loletzte).Select
End Sub
und sag mal was die Msgbox anzeigt.
Sub Daniel()
On Error Resume Next
ActiveSheet.Rows(1).Find(what:="*", lookat:=xlWhole, LookIn:=xlFormulas, searchdirection:= _
xlPrevious).Activate
End Sub
So kannst Du dann auch die letzte Zelle der Zeile(1) benutzen.
dim rngLetzeZelle as Range
Set rngLetzteZelle = Rows(1).Find(What:="*", Lookat:=xlwhole, Lookin:=xlformulas, _
Searchdirection:=xlprevious)
If Not rngLetzteZelle is Nothing then rngLetzteZelle.activate