Guten Tag liebe Excel-Fan-Gemeinde,
aktuell hänge ich in einer Case-Abfrage fest, die mir, anstelle einer Msgbox als Hinweis die Fehlermeldung 1004 angibt, die ich natürlich nicht haben möchte.
Zunächst einmal das aktuelle Makro in Kurzform, da die Case-Abfragen sich auf rund 40 Gruppen bezieht.
Private Sub CommandButton1_Click()
Dim Dateiname As String
Dim Antwort As String
Dateiname = "Grp " & Cells(1, 1) & " KW " & Cells(2, 1) & ".XLS"
Select Case Cells(1, 1)
Case 1
Antwort = "Gr1": ActiveWorkbook.SaveAs ("G:\Personal\test\" & Antwort & "\" & Dateiname)
Case 2
Antwort = "Gruppe 02": ActiveWorkbook.SaveAs ("G:\Personal\test\" & Antwort & "\" & Dateiname)
Case 4
Antwort = "Gruppe 04": ActiveWorkbook.SaveAs ("G:\Personal\test\" & Antwort & "\" & Dateiname)
Case Else
MsgBox ("Es wurde eine nicht freigeschaltete Auswahl getroffen!")
End Select
End Sub
Das Speichern, wenn die Bedingung erfüllt ist, funktioniert so wie es sein soll, allerdings, wenn die Bedingung nicht stimmt - hier absichtlich zum
test Gruppe xx statt Grxx - dann hätte ich gerne die Msgbox als Infofenster gehabt und nicht die Laufzeitfehlermeldung mit dem Hinweis, dass irgendetwas falsch in der Zuordnung ist.
In der Hoffnung das mir jemand helfen kann, verbleibe ich, nicht ohne allen Interessierten noch einen schönen Tag zu wünschen - MfG.. Helmut