Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler bei Makro Ablauf

Fehler bei Makro Ablauf
25.01.2004 14:34:31
Walter
Hallo Zusammen,
habe wohl irgendwie einen Fehler.
Ich möchte bei meiner Abfrage, wenn das Verzeichnis hier z.b. " Q " nicht
vorhanden ist, abgebochen wird.
Sonst speichern und schliessen. Hier mein Makro:

Private Sub CommandButton12_Click()
'--------------------------------- speichern C --------------------------------
Application.ScreenUpdating = False
Dim jdate
Dim Verzeichnis As String
Verzeichnis = "Q:\Krefeld VL"
If Dir(Verzeichnis, vbDirectory) <> "" Then
MsgBox "Verzeichnis  ' C '  vorhanden", vbCritical
Else
MsgBox " Achtung Verzeichnis nicht vorhanden !!!" & Chr(13) & Chr(13) & _
"Es wird auf   IHR  Verzeichnis gewechselt !!!" & Chr(13) & _
Chr(13) & " Es sollte jetzt ins Laufwerk   ' C '  gesichert
werden !" & Chr(13), vbCritical
End If
Unload Me
jdate = Format(Now, "dd.mm.yyyy hh:mm")
Sheets("Laufende ").Select
ActiveSheet.Unprotect ("bk")                     'schutz aufheben
Sheets("Laufende ").Range("c1").Value = Application.UserName
Sheets("Laufende ").Range("b2").Value = jdate
Application.DisplayAlerts = False             ' Sicherheitsabfrage unterdrücken
ChDir "C:\Krefeld VL"
ActiveWorkbook.SaveAs Filename:= _
"C:\Krefeld VL\KR-VF-04.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = False             ' Sicherheitsabfrage unterdrücken
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="bk"                          'schützen
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

Gruss Walter

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei Makro Ablauf
25.01.2004 14:41:14
Ramses
Hallo Walter
Details sind es nur ;-))
Dim Verzeichnis As String
Verzeichnis = "c:\ati"
If Dir(Verzeichnis, vbDirectory) <> "" Then
MsgBox "Verzeichnis " & Verzeichnis & " vorhanden", vbCritical
Else
MsgBox " Achtung Verzeichnis nicht vorhanden !!!" & Chr(13) & Chr(13) & _
"Es wird auf IHR Verzeichnis gewechselt !!!" & Chr(13) & _
Chr(13) & " Es sollte jetzt ins Laufwerk ' C ' gesichert " & _
"
werden !" & Chr(13), vbCritical
End If
In der ersten Messagebox habe ich noch den Verzeichnissstring eingebaut, zum besseren Verständnis.
Sollte sonst noch was nicht funktionieren bitte nochmals melden
Gruss Rainer
Anzeige
AW: Ramses, klappt leider noch nicht
25.01.2004 14:52:13
Walter
Hallo Ramses,
habe Verzeichnis eingebaut, die 2. MSGBOX kommt und es wird gespeichert !
Sollte nicht speichern. Da ich hier C Lauwerk habe.
Habe das bei mir extra mit Laufwerksabfrage Q gemacht, zum testen, weil in der Firma
nach H F us.w. gespeichert werden kann.
Gruss Walter
AW: Ramses, klappt leider noch nicht
25.01.2004 15:06:45
Hallo
Hallo Walter
Natürlich wird gespeichert, es sind ja keine Ausstiegsanweisungen vorhanden.
Du schreibst ja auch "Sollte", deshalb habe ich da nichts gemacht.
Dim Verzeichnis As String
Verzeichnis = "c:\ati"
If Dir(Verzeichnis, vbDirectory) <> "" Then
MsgBox "Verzeichnis " & Verzeichnis & " vorhanden", vbCritical
Else
MsgBox " Achtung Verzeichnis nicht vorhanden !!!" & Chr(13) & Chr(13) & _
"Es wird auf IHR Verzeichnis gewechselt !!!" & Chr(13) & _
Chr(13) & " Es sollte jetzt ins Laufwerk ' C ' gesichert " & _
"werden !" & Chr(13), vbCritical
'Aufs Laufwerk wechseln
ChDrive "C:"
'Aussteigen
Exit Sub

End If
Den weiteren Speichervorgang musst du dann halt individuell anpassen.
Ich weiss nicht was du dann machen willst, nur auf C: speichern, Verzeichnis erstellen usw.
Gruss Rainer
Anzeige
AW: Ramses, klappt leider noch nicht
25.01.2004 15:33:09
Walter
Hallo Rainer,
danke, hatte mich sehr schlecht ausgedrückt.
Es funktioniert.
Gruss Walter
Merci :-) Geschlossen o.T.
25.01.2004 15:52:10
Ramses
...
AW: Fehler bei Makro Ablauf
25.01.2004 14:45:21
Bert
Ergonomie/Benutzerfreundlichkeit
Warum muss ein user darauf hingewiesen werden, dass ein Verzeichnis
vorhanden ist und dann noch mit einer Warnmeldung?
Bert
AW: Bert für Nicht Excel kenner...
25.01.2004 14:54:51
Walter
Hallo Bert,
brauch die Abfrage, da ich in der Firma auf Netzwerke mit vielen Laufwerken zugreife.
Daher, es passiert schon mal, Netzwerk wie überall ohne Funktion, dann soll zumindest,
das Makro bendet werden.
Gruss Walter
AW: Bert für Nicht Excel kenner...
25.01.2004 15:20:22
Bert
Du hast nicht verstanden, was ich meine. Es macht keinen Sinn, den user
mit Meldungen zu erschrecken. Wenn das Laufwerk vorhanden ist, muss
er doch nicht mit einer roten Warnmeldung "kritisch" daruf hingewiesen werden.
Es reicht doch völlig aus, wenn er eine Meldung erhält, wenn das Speichern nicht möglich ist. Verstehst du, was ich meine?
Bert
Anzeige
AW: Bert für Nicht Excel kenner...
25.01.2004 15:32:01
Walter
Hallo Bert,
Du hast natürliche recht, danke für den Hinweis.
Gruss Walter

107 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige