Hallo,
ich bin ein VBA-Neuling und probiere mich an meinen ersten Makros. Konkret versuche ich gerade ein Makro zu schreiben, dass die letzte beschriebene Zelle einer Spalte findet. Die in der Zelle enthaltene Formel soll dann in die Zeile darunter kopiert werden. Außerdem soll das Ergebnis der Formel als Festwert in die ursprünglich letzte Zeile eingetragen werden.
z.B.
- letzte Zeile ist B7 Inhalt: =Summe(5+3)
- Makro kopiert Formel in B8 und trägt das Ergebnis (8) als Festwert in B7
Bisher habe ich folgenden Code:
Option Explicit
' Letzte_Zeile
Sub Letzte_Zeile()
Dim Loletzte As Long
Loletzte = Cells(Rows.Count, 3).End(xlUp).Row
Cells(Loletzte, 3).Select
' Wert_kopieren
Selection.Copy
Range((Cells(Loletzte, 3)) + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Kann mir jmd weiterhelfen, da das Makro derzeit nicht funktioniert.
|