bestimmte Zellen aus Zeile mitkopieren
07.05.2019 09:28:46
Jakob
Ich hab folgenden Code (siehe unten), der mit aus einer Indikatorenliste bestimmte Indikatoren in das Blatt CEQ01-1A kopiert, wenn zwei Kriterien erfüllt sind.
Nun möchte ich, wenn diese Indikatoren (Spalte A) kopiert werden, auch die Werte dieser Indikatoren (stehen jeweils in Spalte E bis G derselben Zeile) mitkopieren (in die Spalten B bis D des Blatts CEQ01-1A), scheitere aber an meinen Basic VBA Kenntnissen. (Mit dem S-Verweis würds ja prinzipiell auch gehen sobald das Makro durch ist, ich muss das aber für zig Dateien machen...)
Ich würde mich sehr über das dafür benötigte Code-Schnipsel freuen!
DANKE!
LG; Jakob
Sub IKopieren1()
Dim Zelle As Range
Dim LoI As Long
LoI = 158
For Each Zelle In Sheets("addresult").Range("A1:A4734")
If Zelle.Offset(0, 2) = Cells(1, 15) And Zelle.Offset(0, 1) = Cells(1, 16) Then
Zelle.Copy
Worksheets("CEQ01-1A").Cells(LoI, 1).PasteSpecial Paste:=xlPasteValues
LoI = LoI + 1
End If
Next Zelle
End Sub