Sub
Spontan()
Rem spontan würde ich eine Eigenschaft des Range-Objekts wählen
Rem zum Bleistift Spaltenüberschrift oder
Rem wie wär es mit einem Wert in der letzten Zeile
Const
Marke
As
String
=
"xxx"
Dim
lrow
As
Long
, lcol
As
Long
, x
As
Long
lrow = ActiveSheet.Rows.Count
lcol = Cells.Find(
"*"
, [a1], , , xlByColumns, xlPrevious).Column
On
Error
Resume
Next
x = Range(Cells(lrow, 1), Cells(lrow, lcol)).Find(Marke).Column
On
Error
GoTo
0
MsgBox
"Wert gefunden in Spalte "
&
CStr
(x)
End
Sub