Hallo,
es geht um das folgende Problem:
Ich möchte aus einer Excel-Arbeitsmappe (Tabelle1) die Spalte 1 kopieren und in der gleichen Excel-Arbeitsmappe in Tabelle 2 einfügen, wenn eine Bedinung (hier der Wert 1 in der Zeile 1) erfüllt ist.
Dazu habe ich anhand von Internetrecherche das folgende Makro einfache erstellt:
Sub kopieren()
Sheets(1).Range("A1:A10").Copy
For Each c In Sheets(2).Range("A1:IV1")
If c = "1" Then
On Error GoTo fehler
c.Offset(1, 0).PasteSpecial xlPasteValues
Sheets(1).Select
Exit Sub
End If
Next c
fehler:
MsgBox ("Der Bereich kann nicht eingefügt werden")
End Sub
Mein Problem: ich möchte, dass die kopierte Spalte aus Tabelle1 als Spalte in Tabelle 2 vor dem Kriterium ("1") eingefügt wird.
D. h. steht der Wert "1" in der Zelle B1 und in der Spalte A stehen Werte, so sollen die Werte der Spalte B in die Spalte C verschoben werden. Die Werte des Bereichs aus der Tabelle 1 sollen dann in der Spalte B stehen.
Kann mir vielleicht jemand weiterhelfen und erklären, wie ich das Makro ergänzen muss, damit dies möglich ist?
Vielen Dank
Felix