Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname = ActiveSheet.Name
With Workbooks("Gesamtauswertung.xls").Sheets("Mitarbeiterdaten")
Set rFound = .Columns(1).Find(What:=Tabellenname, After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not rFound Is Nothing Then Application.Goto rFound, True
End With
Ziel ist es also den Namen des aktiven Tabellenblattes zu nehmen und diesen in Gesamtauswertung.xls im Sheets "Mitarbeiterdaten" zu suchen.
Danach möchte ich 4 Zellen nach links und mit dem Wert da da drinn steht was anstellen...
Aber die Suche an sich geht nicht...was habe ich denn da flasch gemacht?
Der Tom