Hoffentlich könnt ihr mir helfen.
Ich habe eine Mappe(Hauptbuch mit 3 Arbeitsblätter (Beispiel).
Auf Arbeitsblatt 2 und 3 hat es von B1 bis IT1 Spaltennamen und in den Zellen A2 bis A13 befinden sich Datums. Ich kopiere Mappe vor Mappe einen Wert und möchte dass die im Hauptbuch aufgrund Spaltename und Datum auf Blatt 2 oder 3 eingefügt wird. Also, wenn die Bedingungen auf Blatt2 zutreffen dann soll dort eingefügt werden und sonst halt auf Blatt3. Ein Teil der Code (loop) habe ich unten eingefügt aber vielleicht bin ich auf dem falschen Weg. So wie der Code jetzt ist, werden die Werte auf jedes Blatt im Array eingefügt und wohl deswegen weil jedes Blatt beim einfügen aktiviert ist. Wäre schön wenn ihr eine Lösung habt. In meine Bücher finde ich leider nichts.
Grüsse, Robert
Dim SearchRow as Integer
Dim SearchCol As Integer
Workbooks("Hauptbuch.xls").Activate
Worksheets(Array("Blatt1", " Blatt2")).Select
Worksheets("Blatt1").Activate
Rows("1:1").Select
Selection.Find(What:=Range("A1").Value, LookIn:=xlValues).Select
SearchCol = Selection.Column
Columns("A:A").Select
Selection.Find(What:=Range("B1").Value, LookIn:=xlValues).Select
SearchRow = Selection.Row
Cells(SearchRow, SearchCol).Select
ActiveSheet.Paste