Speicherproblem bei Zelle mit Formel
21.01.2019 21:54:10
Shiva
und zwar habe ich ein Makro, dass die Datei unter dem Ergebnis der Zelle (L5) abspeichern soll. Nun ist in dieser Zelle L5 auch eine Formel hinterlegt und dies bereitet Excel anscheinend Schwierigkeiten, denn es stürzt nach dem Ausführen des Makros immer ab (allerdings wird die Datei trotzdem angelegt). Bei einer formelfreien Zelle treten hingegen keine Schwierigkeiten auf. Wie kann ich diesen Fehler beheben, so dass Excel weiß, dass nur der Wert bzw. das Ergebnis relevant ist nicht aber die Formel. Anscheinend reicht der Verweis .Value hier nicht aus..
Kurz noch zur Info (vermutlich ist es aber nicht relevant): die Zelle L5 enthält Wörter, Leerzeichen, Bindestriche und Zahlen, sprich es sieht ungefähr so aus: abc def 12345 123
Public Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Nummer As Variant
Nummer = Range("L5").Value
If Application.UserName = "XXXX" Then Exit Sub
'Nur speichern, wenn alle Daten eingetragen wurden
If Worksheets("Daten").Range("C5") = "" Or Worksheets("Daten").Range("F5") = "" Or Worksheets(" _
Daten").Range("G15") = "" Or Worksheets("Daten").Range("G36") = "" Then
'Arbeitsmappe nicht speichern
MsgBox "Bitte alle Daten eintragen."
Cancel = True
Else
'Arbeitsmappe speichern
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:=Nummer, FileFormat:=52
Application.EnableEvents = True
'52 = xlOpenXMLWorkbookMacroEnabled
MsgBox "Alle Änderungen wurden gespeichert."
End If
End Sub