Office: Problem mit Makro - Excel hängt sich bei automatischem Speichern auf

Hallo Forumgemeinde

Bei einem Makro, dass die Datei auf Knopfdruck unter einem bestimmten Dateinamen abspeichern soll hängt sich Excel sofort auf,
es könnte sein dass die Datei zu gross ist oder ich habe einen Fehler im Code, wäre sehr froh wenn mir jemand helfen könnte:

Code:

'Datei speichern**************************************************
Sub Speichern()
Dim neueDatei$, Teil1$, Teil2$
Teil1 = Right(ThisWorkbook.Sheets("info").Range("A10"), 8)
Teil2 = Right(ThisWorkbook.Sheets("info").Range("A12"), 16)
neueDatei = Teil1 & "_" & Teil2
ActiveWorkbook.SaveAs Filename:= _
        "C:\Projekte\Ausgewertet\" & neueDatei & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub
'Datei gespeichert**************************************************

Office Version: 2007

 

Hallo oOps1,

1. definiere doch bitte mal: "hängt sich Excel sofort auf".
Was passiert, gibt es eine Fehlermeldung, wenn ja welche, usw...

2. Was steht in den Zellen "A10" und "A12"? Sind dort eventuell Sonderzeichen enthalten, oder sind sie vielleicht leer?
Gib bitte mal von beiden Zellen den genauen Wert an.

3. Ist Dein Blatt "info" eventuell doch als "Info" benannt?

 

1. Excel wird "weisser" und ein Dialogfenster öffnet sich wo es 2 Optionen gibt
a. "Excel neu starten"
b. "Online nach einer Lösung suchen
2. Beispiel was da steht:

3. Nein, das Blatt heisst definitiv "info"

 

Ich würde das, nur um es etwas mehr abzusichern, ändern in:

Code:

Teil1 = Right([COLOR=#ff0000]Trim$([/COLOR]ThisWorkbook.[COLOR=#ff0000]Work[/COLOR]sheets("info").Range("A10")[COLOR=#ff0000].Value)[/COLOR], 8)

(2. Zeile natürlich entsprechend...)

Das dürfte aber eigentlich nicht viel ändern. Wundern tu ich mich über:

Bist Du sicher, daß Du den Teil "9999 S-2" für den Dateinamen haben willst?

Eventuell sorgt das Leerzeichen, vielleicht sogar der Bindestrich, dann für Unmut, auch wenn ich mir das dann auch nicht so ganz erklären könnte.

Gruß, Michael

 

Entschuldige, hast natürlich recht, das Leerzeichen und den Bindestrich führten wohl zum Absturz..
Der Fehler lag aber daran dass ich die Zellen A10+A12 falsch Verbunden habe...

Was genau bewirkt das .Value wenn ich es an den Code ranhänge?

 

In Deinem (und in fast jedem anderen) Fall wahrscheinlich rein gar nichts, da es durch die (komplettierte) Syntax nur ein bißchen "sicherer" wird.

Wenn Du mit xxx.cells(y,x) eine Zelle ansprichst, dann wird dabei impliziert, daß Du auf die Eigenschaft .value, und damit also genau genommen auf xxx.cells(y,x).value, dieser Zelle zugreifen möchtest, ohne es im Detail zu sagen. Das nennt sich dann "Default"-Eigenschaft.

Das Problem stellt sich in dem Moment, wo man sich auf den Default verläßt und er in einem speziellen Kontext anders als erwartet ist oder aber, was auch gerne mal vorkommen kann, sich in einer zukünftigen Version ändert.

Wenn eine spätere Version dann nicht mehr .value, sondern z.B. .formula als Default hat, landet ein Großteil der heutigen Makros an der Wand. Genau aus diesem Grund ist es auch wiederum höchst unwahrscheinlich, daß sich der Default ändert. Aber ich bin da lieber auf der sicheren Seite. Wenn ich .value haben will, dann sage ich das auch. ;-)

Gruß, Michael

 

Ok, nun habe ich doch noch was gelernt :D
Vielen Dank Michael



Das Thema kann geschlossen werden.