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.