Ok, nachdem ich noch einmal ein wenig geschlafen habe ist mir aufgefallen, dass ich hier keinen Code eingefügt habe, was ich gern noch nachholen würde, da es sonst vermutlich auch schwer wird, mir zu helfen.
Das hier ist also mein aktueller Stand:
Sub Range_Copy()
Sheets("Tabelle1").Select
' Find the last row of data
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' Loop through each row
For x = 2 To FinalRow
' Decide if to copy based on column A
ThisValue = Cells(x, 1).Value
If ThisValue > "8999" Then
Worksheets("Tabelle1").Range("B2").Copy _
Destination:=Worksheets("PerformanceReport").Range("A2:A3")
Worksheets("Tabelle1").Range("E2").Copy _
Destination:=Worksheets("PerformanceReport").Range("L25")
Worksheets("Tabelle1").Range("F2").Copy _
Destination:=Worksheets("PerformanceReport").Range("B25")
Worksheets("Tabelle1").Range("G2").Copy _
Destination:=Worksheets("PerformanceReport").Range("G25")
Worksheets("Tabelle1").Range("H2").Copy _
Destination:=Worksheets("PerformanceReport").Range("F25")
Worksheets("Tabelle1").Range("I2").Copy _
Destination:=Worksheets("PerformanceReport").Range("H25")
Worksheets("Tabelle1").Range("L2").Copy _
Destination:=Worksheets("PerformanceReport").Range("B18")
Worksheets("Tabelle1").Range("M2").Copy _
Destination:=Worksheets("PerformanceReport").Range("J9")
Worksheets("Tabelle1").Range("N2").Copy _
Destination:=Worksheets("PerformanceReport").Range("B9")
Worksheets("Tabelle1").Range("O2").Copy _
Destination:=Worksheets("PerformanceReport").Range("F9")
Worksheets("Tabelle1").Range("P2").Copy _
Destination:=Worksheets("PerformanceReport").Range("L9")
Worksheets("Tabelle1").Range("R2").Copy _
Destination:=Worksheets("PerformanceReport").Range("M9")
End If
'Call PDF_per_EMail
Next x
End Sub
Der letzt Call Aufruf ist lediglich zum exportieren und versenden per Mail da und liegt in einem anderen Makro.
Es funktioniert soweit auch "eigentlich", also ich bekomme keine Fehler ausgeworfen, allerdings macht er 5x das selbe. Das macht in diesem Fall ja auch Sinn, weil ich mit festen Zellen arbeite, da kann sich ja auch nichts verändern.
Wie komme ich aber jetzt da hin, die festen Zellen gegen variable auszutauschen, sodass er nachdem er für Zeile 2 einmal durchgelaufen ist und die Mail versendet hat, mit Zeile 3 beginnt und das Spielchen so lange weiter treibt, bis in Spalte A kein Wert mehr steht, bzw. er kleiner als 8999 ist?
Lg
|