Dim
finden
As
Range
Dim
variable
As
String
Set
finden = workscheets(
"Tabelle1"
).Range(
"A4:AP45"
).Find(what:=variable)
Dim
last
As
Integer
last = Worksheets(
"Tabelle1"
).Cells(Rows.Count, 1).
End
(xlUp).Row
End
Sub
Sub
FindenB()
Dim
wks
As
Worksheet
Dim
rngGefunden
As
Range
Dim
sSuchWert
As
String
Dim
lngLetzteSpalte
As
Long
Dim
lngLetzteZeile
As
Long
Set
wks = ThisWorkbook.Worksheets(
"Tabelle1"
)
sSuchWert =
"Test"
With
wks
lngLetzteSpalte = .Cells(1, .Columns.Count).
End
(xlToLeft).Column
lngLetzteZeile = .Cells(.Rows.Count, lngLetzteSpalte).
End
(xlUp).Row
Set
rngGefunden = .Range(
"A4"
, .Cells(lngLetzteZeile, lngLetzteSpalte)).Find(what:=sSuchWert)
End
With
If
Not
rngGefunden
Is
Nothing
Then
MsgBox sSuchWert &
" wurde in Zeile "
& rngGefunden.Row &
", Spalte "
& rngGefunden.Column &
" gefunden."
Else
MsgBox sSuchWert &
" wurde nicht gefunden."
End
If
End
Sub