AW: Formeländerung durch Wechsel von Excel 2021 auf 2019
Niels
Hallo Boris, hallo Onur,
danke für die Rückmeldungen.
@Boris: Das Problem tritt bei allen eigenen VBA-Formeln auf, die als Arbeitsmappenfunktionen eingesetzt werden. getGUID() ist nur ein Beispiel für eine meiner Funktionen die ich an den unterschiedlichsten Stellen einsetze. Der Code in der Funktion selbst ist egal, es geht um den Kopiervorgang
@Onur: Der Fehler tritt beim simpelsten
range("a1").copy
range("b1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
auf.
Ich bin mir allerdings nicht sicher, ob das Kopieren der Formel selbst den Fehler auslöst oder die Tatsache, dass die Zielposition bereits eine solche Formel enthält.
Ich habe mal folgende Sub geschrieben. Das Makro bearbeitet auf meinem Arbeitsblatt (KopierVorlage) in einem Bereich alle Zellen mit Formeleingaben. Auch wenn dabei nur die Formel gelesen und wieder gesetzt wird, scheint dies das Problem zu beheben.
Das Problem schein damit gelöst.
Herzlichen Dank
Niels
Public Sub makeNormaleFormel()
Dim ws As Worksheet, Zelle As Range
Dim Zeile As Integer, Spalte As Integer, FormelText As String
Set ws = Worksheets("KopierVorlage")
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Spalte = 10 To 20
For Zeile = 12 To 60
Set Zelle = Cells(Zeile, Spalte)
If InStr(1, Zelle.Formula, "=") = 1 Then
FormelText = Zelle.Formula
Zelle.ClearContents
Zelle.Formula = FormelText
End If
Next
Next
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub