Sheet Name aus Zelle "einlesen"
15.03.2016 12:55:14
Alex
ich habe eine Suchfunktion: Suchbegriff steht in Spalte D, Worksheet, in dem gesucht wird, steht in Spalte B.
Spalte A soll jedes mal, wenn das Blatt geöffnet wird, dynamisch aktualisiert werden, also in welcher Zeile das Suchergebnis gefunden wurde.
Jetzt dachte ich mir einfach:
Set ws = cells(i,2) (oder .value: geht auch nicht)
leider scheint das nicht zu funktionieren....
wie bekomme ich denn dem "ws" gesagt, welches Worksheet er denn ist, abhänig von welcher Zelle in der for i Schleife?
Private Sub Worksheet_Activate()
Dim rng As Range
Dim i As Integer
Dim lngzeile As Long
Dim ws As Worksheet
lngzeile = Worksheets("Changelog").UsedRange.Rows.Count
For i = 1 To lngzeile
Set ws = Cells(i, 2)
Set rng = Sheets(ws).Cells.Find(What:=Cells(i, 4).Text, after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
Cells(i, 1) = rng.Address
Next i
End Sub
Gruß Alex!
Anzeige