29.02.2020, 06:09
Hallo zusammen,
ich habe eine Frage zu einem Makro. Ich habe folgenden Teil eines Codes.
oWs.Range("O10:O42").Copy .Range("N10")
In dem zu kopierenden Bereich steht eine Formel. Dieser Bereich steht in dem Reiter direkt vor dem neu erstellten Reiter im Bereich O10:=42 und soll im neuen Reiter in den Bereich N10:N42. Aktuell wir diese Formel kopiert. Wie erreiche ich es, dass ie Werte kopiert werden?
Makro:
Sub aaa()
Dim oWs As Worksheet
Worksheets("TTT 2019").Copy Worksheets("TTT 2019")
With ActiveSheet
Set oWs = Worksheets(.Index - 1)
.Range("O5").Value = Format(CDate(oWs.Name) + 7, "dd.mm.yy")
.Name = .Range("O5").Text
oWs.Range("O10:O42").Copy .Range("N10")
End With
End Sub
Vielen Dank im Voraus.
ich habe eine Frage zu einem Makro. Ich habe folgenden Teil eines Codes.
oWs.Range("O10:O42").Copy .Range("N10")
In dem zu kopierenden Bereich steht eine Formel. Dieser Bereich steht in dem Reiter direkt vor dem neu erstellten Reiter im Bereich O10:=42 und soll im neuen Reiter in den Bereich N10:N42. Aktuell wir diese Formel kopiert. Wie erreiche ich es, dass ie Werte kopiert werden?
Makro:
Sub aaa()
Dim oWs As Worksheet
Worksheets("TTT 2019").Copy Worksheets("TTT 2019")
With ActiveSheet
Set oWs = Worksheets(.Index - 1)
.Range("O5").Value = Format(CDate(oWs.Name) + 7, "dd.mm.yy")
.Name = .Range("O5").Text
oWs.Range("O10:O42").Copy .Range("N10")
End With
End Sub
Vielen Dank im Voraus.