ich habe folgendes Problem.
Dieser Code führt aktuell in meiner Datei für alle Zeilen einen Übertrag von Daten aus eine anderen Mappe aus - läuft auch wunderbar:
Dim i As Long
Dim LoLetzte As Long
With Sheets("Overview")
LoLetzte = .Cells(.Rows.Count, 18).End(xlUp).Row 'spalte 18
If LoLetzte
Mein Problem ist ich bekomme den Code nicht umgeschrieben damit er mir das gleiche macht nur eben für eine die gerade aktive Zeile hier meine Stümperhafte Idee :
Cells(ActiveCell.Row, 1).Select
Selection.Copy
Sheets("Calculation").Select
Range("D15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Overview").Select
HIER soll er dann in die Zeile meine vorherigen aktiven Zelle werte eintragen:
.Cells(i, 18) = Sheets("Calculation").Cells(30, 48) 'HH
.Cells(i, 19) = Sheets("Calculation").Cells(29, 48) 'HH
.Cells(i, 20) = Sheets("Calculation").Cells(41, 48) 'HH
.Cells(i, 21) = Sheets("Calculation").Cells(66, 48) 'HH
.Cells(i, 22) = Sheets("Calculation").Cells(87, 48) 'HH
.Cells(i, 23) = Sheets("Calculation").Cells(93, 48) 'HH
.Cells(i, 24) = Sheets("Calculation").Cells(72, 111) 'TK
.Cells(i, 28) = Sheets("Calculation").Cells(29, 147) ' SPB
.Cells(i, 29) = Sheets("Calculation").Cells(30, 215) ' Free
.Cells(i, 27) = Sheets("Calculation").Cells(30, 179) ' HR
.Cells(i, 26) = Sheets("Calculation").Cells(92, 79) ' UK
.Cells(i, 25) = Sheets("Calculation").Cells(108, 79) ' UK
Next i
End With
Also Werte aus Aktiver Zelle in die andere Mappe kopieren und dann die 11 Werte auslesen und in "Overview" an Ihren Platz einsetzen.
Vielen Dank !
Christian