ich habe folgende Aufgabe zu lösen:
1.) Ich möchte eine Tabelle unter einem bestimmten Namen speichern und habe dies mit folgender Anweisung gelöst:
ActiveWorkbook.SaveAs Filename:="D:\Daten\Excel\" & Sheets("Tabelle1").Range("B5").Value & ".xls"
Funktioniert prima.
2.) Nun möchte ich verhindern, dass gefragt wird, ob die schon bestehende Datei überschrieben werden soll. Dazu habe ich folgende Anweisung in der Recherche gefunden.
Sub SaveBook()
Dim sName As String
On Error GoTo ERRORHANDLER
sName = ActiveWorkbook.FullName
sName = InputBox( _
prompt:="Bitte Dateiname angeben:", _
Default:=sName)
If sName = "" Then Exit Sub
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sName
Application.DisplayAlerts = True
ERRORHANDLER:
End Sub
Wie kann ich nun die beiden Anweisungen miteinander verknüpfen? Die InputBox hat sich ja mit der ersten Anweisung erledigt...
Eine Frage noch: die "Unterstriche" (z.B. in der Zeile "sName = InputBox( _" ), wofür stehen die?
Beste Grüße,
Stefan