Werte dynamisch in Zeile übertragen
29.07.2022 07:43:36
Gerhard
Ich komme auf einen Fehler nicht drauf und ersuche um eure Unterstützung.
Ausgangslage:
In der Tabelle DB stehen in der Zeile 3 im Bereich von C bis Z Daten (aus Formeln), die ich auf Klick in die nächste freie Zeile unterhalb der Überschrift (diese steht in Zeile 6) übertragen möchte - also nur die Werte aus Zeile 3, nicht die Formeln aus Zeile 3. Bei jeder Buchung in die nächste freie Zeile bis zum Ende.
Mein Code lautet:
Sub Buchen_Click()
Dim BUzeile As Integer
With Worksheets("DB")
If Worksheets("DB").Range("C6").Offset(1, 0) "" Then
BUzeile = Worksheets("DB").Range("C6").End(xlDown).Select
.Range("C" & BUzeile & ":Z" & BUzeile).Value = .Range("C3:Z3").Value
End If
End With
LG Gerhard