Datum nur als Wert einfügen ohne Formel

Question

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

Answer 1

Hallo Bert,

asteSpecial
Columns("B:C").Copy
Columns("B:C").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False 'Zwischenspeicher löschen


Gruß Hajo

Answer 2

Hallo Hajo,

soweit so gut, es soll aber nur der Wert der Range("H6:H21") als Wert eingefügt werden. Die anderen Formeln sollen erhalten bleiben.

Wie füge ich das in meinen Code ein?

Hab da keinen Plan für.

Gruß Bert

Answer 3

Hallo Bert,

Kopiere 2 Bereich. Range("H6:H21") nach meinem Vorschlag. Den Rest nach Deinem Vorschlag.

Gruß Hajo

Answer 4

Hallo Hajo sorry wenn ich nerve,
aber ich bekomm deinen cod nicht in meinen integriert.

Answer 5

wohin habe ich nicht gelesen.

Option Explicit

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("H6:H21").Copy
.Range("ZA3").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False 'Zwischenspeicher löschen
Range("C6:D21").ClearContents
Sheets("Verkauf").Select
Range("C6").Select
End With
End Sub

Gruß Hajo

Answer 6

Hallo Hajo habs nach einigen versuchen nun geschafft.

Danke für deine Hilfe
Gruß Bert