AW: Format und Formeln eine Zeile nach unten kopie
Klaus
Hallo Christian,
so müsste es gehen:
Die Variable FZ ist die Nummer deiner freien Zeile, wenn du einen anderen Variablennamen benutzt, dann bitte im Code anpassen!
Zuerst wird das Format der letzten benutzten Zeile in die neue Zeile kopiert, dann wird der Formelbereich kopiert. Deine Werte aus der Userform erst nach diesem Code übergeben.
Private Sub CommandButton1_Click()
Dim Formelbereich As Range, Zielbereich As Range
Dim FZ
'FZ = Nummer deiner ersten freien Zeile
FZ = 11
'Format der letzten Zeile in die neue Zeile übertragen
With Rows(FZ)
.Offset(-1, 0).Copy
.PasteSpecial Paste:=xlFormats
End With
'Bereiche festlegen
Set Formelbereich = Range(Cells(FZ - 1, 38), Cells(FZ - 1, 41))
Set Zielbereich = Range(Cells(FZ, 38), Cells(FZ, 41))
'Formeln der letzten Zeile in die neue Zeile kopieren
Formelbereich.Copy Zielbereich
'Kopiermodus aufheben
Application.CutCopyMode = False
Cells(FZ, 1).Select
'... dein Code zum Einfügen deiner Werte
End Sub
Gruß Klaus