über eine Combobox auf einem UserForm wird ein Wert in die Zelle A1 des Blattes "Einzelliste geschrieben.
Mit nachfolgendem Code wird dieses Blatt dann als Textdatei, unter zuhilfe nahme des Inhaltes in A1, gespeichert. Hat der Benutzer jetzt aber keinen Wert (über Combobox) ausgewählt, kommt natürlich ein Debuggen-Fehler. Wie kann ich den nachfolgenden Befehl ins leere laufen lassen, wenn kein Wert in Zelle A1 steht?
Sub SpeichernAlsText()
Dim Path As String
Dim s As String
Name = Sheets("Einzelliste").Range("A1").Value
s = ActiveWorkbook.Name
Path = ActiveWorkbook.Path & "\TXT\"
Sheets("Einzelliste").Visible = True
'akltuelles Blatt in neue Mappe kopieren
Sheets("Einzelliste").Select
ActiveSheet.Copy
Application.DisplayAlerts = False
'Speicherung
ActiveWorkbook.SaveAs Filename:= _
Path & Name & ".txt", FileFormat:=xlText, CreateBackup:=False
'Schließen der Arbeitsmappe
ActiveWorkbook.Close
Sheets("Einzelliste").Visible = False
MsgBox "Datei wurde als Textdatei gespeichert"
Application.DisplayAlerts = True
'Sheets(s).Select
End Sub
Danke für die Hilfe!mfg, Andreas