|
Hallo zusammen,
ich möchte einen Wert aus einer Zelle kopieren und diesen in eine andere Zelle einfügen. Dabei soll der Wert in eine variable Zeile eingefügt werden, aber in einer festen Spalte. Die ausgefüllten Zeilen in Spalte B variieren. Je nach dem, wo die letzte Zeile in Spalte B ist, soll in Spalte J auf gleicher Zeilenhöhe der Wert aus Zelle E6 eingefügt werden.
Ich hoffe ihr könnt mir weiter helfen.
Hier ist mein bisheriger Versuch dies zu programmiern:
Sub Uhrzeit_Abfahrt()
'Fügt die Abfahrtszeit in die letzte Zeile der Tätigkeiten ein
Dim letzte_Zeile As Integer
letzte_Zeile = ActiveSheet.Cells(Rows.count, Range("B17:B31")).End(xlUp).Row
'Cells(6, 5).Value.Copy Destination:=Cells(letzte_Zeile,10).Value (hier ist eine andere Variante, die ich ausprobiert habe)
Cells(6, 5).Value.Copy
Cells(letzte_Zeile, 10).Value.PasteSpecial Paste:=xlPasteValues
End Sub
|