hier mein Problem :
Dim erste_freie_Zeile As Long
Application.ScreenUpdating = False
erste_freie_Zeile = Sheets("Seite3").Range("A65536").End(xlUp).Offset(1, 0).Row
Range("B21:B23").Copy
Sheets("Seite3").Cells(erste_freie_Zeile, 1).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Range("B21:B23").ClearContents
Range("B8:B17").ClearContents
1. Der Wert aus B21 B22 B23 ist aus einer Formel errechnet. Nach dem kopieren ist die Formel weg. Soll aber nicht so sein. Die Formel soll auch nicht mitkopiert werden, nur der Wert.
2. Möchte die kopierten Werte nicht untereinander, sondern nebeneinander stehen haben.
3. In den "geleerten" Feldern auf Blatt 1 soll eine 0,00 stehen nicht ganz leer sein.
Vielen Dank für Eure Lösungsvorschläge.
Gruß Jochen