Hallo Zusammen,

bin ganz neu in der Welt von VBA und komme bei folgendem Problem nicht weiter (habe wirklich lange nach einer Lösung gesucht und wollte das Problem eigenständig lösen).

Ich habe eine Arbeitsmappe mit folgenden Arbeitsblättern ("01", "02", "03", "04", "05", "06", "Auswertung")

Jedes Arbeitsblatt hat eine Spalte mit Namen und eine mit Zahlen.

Ich will nun, dass in den Arbeitsblättern von "01" bis "06" zunächst nach einem bestimmten Namen/Mitarbeiter gesucht wird (in Spalte 3) und von diesem ausgehend 18 Spalten nach rechts gegangen wird und dort die Zelle selektiert wird (da ich genau diesen Wert benötige). Der Wert bzw. die selektierte Zelle soll dann in das Arbeitsblatt "Auswertung" in den Zellen B3, C3, D3, E3, F3 und G3 eingetragen werden (pro Name immer 6 Werte; also beim ersten Namen die genannten Zellen, beim zweiten Namen Zellen B4, C4, D4 usw.). In Zelle A3 von "Auswertung" soll der Name/Mitarbeiter, von dem diese Selektion ausgegangen ist, eingetragen werden. Da es sich um viele Namen/Mitarbeiter handelt (ca. 40) soll das ganze in einer Schleife laufen. Der Code sieht bisher so aus (Beispiel mit 3 Namen/Mitarbeiter):

Sub MitarbeiterundZahleninneueArbeitsmappe()

Dim Mitarbeiter(2) As String

Mitarbeiter(0) = "Peter"

Mitarbeiter(1) = "Max"

Mitarbeiter(2) = "Klaus"

Dim ws(5) As Worksheet

Set ws(0) = Worksheets("01")

Set ws(1) = Worksheets("02")

Set ws(2) = Worksheets("03")

Set ws(3) = Worksheets("04")

Set ws(4) = Worksheets("05")

Set ws(5) = Worksheets("06")

Dim i As Integer

For i  =  0 To 2

Worksheets("Auswertung").Cells(i + 3, 1).Value = Mitarbeiter(i)

Next i

Dim k As Integer

For k = 0 To 5

ws(k).Select

Find(What:=Mitarbeiter(i).Columns(3).Offset(0, 18).Select  <-- hier taucht immer der Fehler auf

Selection.Copy

Sheets("Auswertung").Select

Cells(i + 3, i + 3)

ActiveSheet.Paste

Next i

Next k

End Sub

Sorry, falls das Problem sehr "basic" ist und für den schlechten Code!

Vielen Dank für Eure Hilfe im Voraus!

Grüße

Gerrit