Kleiner Fehler in VBA Programmierung

Computer: Software & Programmierung Visual Basic
1

Hallo Leute

Ich habe mir aus dem Archiv eine VBA Programmierung zur übernahme von CSV Dateien in Excel kopiert. Habe sie auch meinen Bedürfnissen angepasst. Doch leider habe ich auch einen Fehler in der Programmierung.

Also wenn ich eine Datei Speichern möchte und einen vorhanden Dateinamen verwende, werde ich gefragt ob ich die Datei wirklich überschreiben möchte, doch wenn ich dann abbreche und nein anklicke, stürzt das Makro ab.

Hier mal der Teil für die Speicherung

’ Speichern der Datei als EXCEL-Arbeitsmappe
DateiNeu = Application.GetSaveAsFilename( _
fileFilter:=„Excel Arbeitsmappe (*.xls), *.xls“)
If DateiNeu False Then
ActiveWorkbook.SaveAs DateiNeu, xlWorkbookNormal
Else
MsgBox „Vorgang wurde abgebrochen!“
End If
DateiNeu = ActiveWorkbook.Name

Woran kann es liegen? Wäre schön wenn Ihr mir helfen könntet.

2

Also wenn ich eine Datei Speichern möchte und einen vorhanden
Dateinamen verwende, werde ich gefragt ob ich die Datei
wirklich überschreiben möchte, doch wenn ich dann abbreche und
nein anklicke, stürzt das Makro ab.

Hallo Sunny,

andrer Ansatz:

Sub dd()
Dim DateiNeu, Eing
DateiNeu = Application.GetSaveAsFilename(fileFilter:="Excel Arbeitsmappe (\*.xls), \*.xls")
If DateiNeu False Then
 If Dir(DateiNeu) "" Then
 Eing = MsgBox("Datei existiert schon, wollen Sie sie überschreiben?", vbOKCancel, "Sicherheitshinweis")
 End If
 If Eing = vbOK Then
 ActiveWorkbook.SaveAs DateiNeu, xlWorkbookNormal
 Else
 MsgBox "Vorgang wurde abgebrochen!"
 End If
 DateiNeu = ActiveWorkbook.Name
End If
End Sub

Gruß
Reinhard

3

Danke für die hilfe. So von der Sache her eine sehr gute Idee, aber nachdem ich mit O.k bestätige

If Dir(DateiNeu) „“ Then
Eing = MsgBox(„Datei existiert schon, wollen Sie sie
überschreiben?“, vbOKCancel, „Sicherheitshinweis“)
End If

Springt er wieder zum Speichern unter Schaubild

If Eing = vbOK Then
ActiveWorkbook.SaveAs DateiNeu, xlWorkbookNormal
Else

Kann das Marko nach bestätigung die Datei dann auch direkt überschreiben??

4

Hallo Sunny,

Danke für die hilfe. So von der Sache her eine sehr gute
Idee, aber nachdem ich mit O.k bestätige
Springt er wieder zum Speichern unter Schaubild

aber das soll der Code doch!?

Kann das Marko nach bestätigung die Datei dann auch direkt
überschreiben??

Schau mal nachstehenden Code an, wenn er nicht das trifft was du möchtest mußte mir das nochmal verklickern was du willst.

Gruß
Reinhard

Sub Speichern()
Dim DateiNeu, Eing, strText As String
strText = "Datei existiert schon," & vbCr & vbCr & "wollen Sie sie überschreiben?"
DateiNeu = Application.GetSaveAsFilename(fileFilter:="Excel Arbeitsmappe (\*.xls), \*.xls")
If DateiNeu False Then
 If Dir(DateiNeu) "" Then
 Eing = MsgBox(strText, vbOKCancel, "Sicherheitshinweis")
 End If
 If Eing = vbOK Then
 Application.DisplayAlerts = False
 ActiveWorkbook.SaveAs DateiNeu, xlWorkbookNormal
 Application.DisplayAlerts = True
 Else
 MsgBox "Vorgang wurde abgebrochen!"
 End If
 DateiNeu = ActiveWorkbook.Name
End If
End Sub
5

Genau so wollte ich das. Ich bedanke mich sehr für deine Hilfe.

Lieben Gruß