Daten aus aktiver Zelle kopieren und Werte überneh
16.08.2016 09:22:35
Christian
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 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