|
Ich hab folgende Makro und möchte, dass auch die Formeln aus Range("P7:S18") als Werte, nicht als Formeln in die Tabelle "Zusammenstellung" kopiert werden.
Danke im Voraus für Eure Unterstützung!
If ws.Name <> "Zusammenstellung" And ws.Name <> "Übersicht" And ws.Name <> "Vorlagen" And ws.Name <> "Vorlagen Controlling" Then
ws.Range("P7:S18").Copy Destination:=.Cells(3, Spalte)
.Cells(2, Spalte).Value = ws.Range("E1").Value
.Cells(2, Spalte + 3) = ws.Range("E2").Value
With .Range(Cells(2, Spalte), Cells(2, Spalte + 2))
.Merge
.HorizontalAlignment = xlCenter
End With
Spalte = Spalte + 4
|