ich habe ein kleines Problem und brauche eure Hilfe.
Aus einer Pivottabelle mit 7 Spalten (A-G) möchte ich, dass in Spalte B nach einen Wert gesucht wird.
Wenn dieser Wert (x >0,25) erfüllt wird, möchte ich, dass die Spalte A und B in ein anderes Workbook (Tabelle1 und Spalte E und F) kopiert werden.
Bedingung im InputFile ist, dass die neuen Zeilen unten angefügt werden.
Ich denke, es ist eine Schleife. Meinen Code füge ich mal an:
Sub Transfer()
Dim rngZelle As Range
'Dim Score As String
Dim wbStart As Workbook
Dim wbZiel As Workbook
Set wbStart = ActiveWorkbook
Set wbZiel = Workbooks.Open("C:\Users\benutzername\Desktop\Dateninput.xlsx")
For Each rngZelle In wbStart("Tabelle1").Range("B:B")
If rngZelle.Value > 0.25 Then
rngZelle.Cells(, -1).Copy Destination:=wbZiel.Sheets("Tabelle1").Range("E2")
End If
Next rngZelle
End Sub
Mein Problem ist, dass die erste Zeile der Schleifen bereits einen Fehler hat. Ich hoffe ihr könnt mir helfen!
Vielen Dank schon mal.
Liebe Grüße
Thomas