Hallo VBA'ler brauch mal Eure Hilfe
Der Wert der Zellen "H6:H21" ist ein Datum("=HEUTE()") und das soll nur als Wert kopiert werden.
Bekomme das nicht geregelt!
Kann mir bitte Jemand sagen was ich an meinem Code ändern muss?
Habe folgenden Code:
Sub Kopieren()
Dim lngErste As Long
With Worksheets("Umsatz")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 4)), _
.Cells(.Rows.Count, 4).End(xlUp).Row, .Rows.Count) + 1
Range("C6:D21", "H6:H21").Copy .Cells(lngErste, 4)
Range("C6:D21").ClearContents
Sheets("Verkauf").Select
Range("C6").Select
End With
End Sub
Danke schon mal für eure Hilfe
Bert