ich verzweifle gerade an einer (woanders funktionierenden) Formel und habe eventuell nur Tomaten auf den Augen oder bin als selbstversuchender Laie nur zu unerfahren.
Folgende Aufgabe:
Ich will per Makro mehrere Sheets kopieren, die Formeln durch Werte ersetzen und die Datei neu speichern.
Das (im Netz zusammengesuchte und dann angepasste) Makro funktioniert auch....bis auf das Auflösen der Formeln zum richtigen Zeitpunkt.
Ich habe zwei Varianten ausprobiert, beide funktionieren nicht:
Private Sub Werte_Einfuegen()
Dim Dateiname As String
Dim WBS As Workbook
Dim WS As Worksheet
pfad = ActiveWorkbook.Path & "/"
Dateiname = "Dateiname_" & ActiveSheet.Cells(5, 3).Value
With Worksheets(Array("Hier stehen die Sheets"))
.Copy
Set WBS = ActiveWorkbook
For Each WS In WBS.Worksheets
WS.UsedRange.Value = WS.UsedRange.Value
Next WS
End With
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=pfad & Dateiname & ".xlsx"
End Sub
und
With Worksheets(Array("Hier stehen die Sheets"))
.Copy
Set WBS = ActiveWorkbook
For Each WS In WBS.Worksheets
With Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Next WS
End With
Die Sheets werden kopiert, die Datei wird korrekt gespeichert, aber die verformelten Zellen zeigen nun alle #WERT.Könnte es an der Art der Formeln liegen? Beispiel:
=INDEX(Konsolidierung!$E$3:$AI$51;VERGLEICH(A7;Konsolidierung!$E$3:$E$51;0); VERGLEICH(RECHTS(ZELLE("dateiname";$X$1);LÄNGE(ZELLE("dateiname";$X$1))-FINDEN("]"; ZELLE("dateiname"; $X$1)));Konsolidierung!$E$3:$AG$3;0)+1)
Wer kann mir einen Tipp geben?
Vielen Dank im Voraus!
Michael