ich möchte gern die letzte beschriebene Spalte in einem Bereich
ab Zeile 4 ermitteln !
gruß
walter b
Option Explicit
Sub LetzteSpalteAb_3()
Dim rng As Range, lCol As Long, lRow As Long
lCol = Cells.Columns.Count
lRow = 999 'Letzte Daten-Zeile, bei Bedarf auf ca.-Wert anpassen
Set rng = Range(Cells(3, 1), Cells(lRow, lCol))
lCol = rng.Find(What:="*", searchorder:=xlByColumns, searchdirection:=xlPrevious).Column
MsgBox "Letzte Spalte: " & lCol
End Sub
Gruß
Msgbox Cells(5,lCol).Value
erfüllt ideal seinen Zweck. Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen