|
Wow, es läuft alles einwandfrei!! Echt der Hammer, super!!
Jetzt hab ich noch ein kleines Anliegen, denke aber, dass das nicht allzu aufwendig ist. Wenn ich also bei mir auf den Export-Button klicke dann kommt dein Code und anschließend rufe ich einen weiteren Code auf, der mir die Datei unter dem AktZ in einem bestimmten Ordner abspeichert. Hier mal schnell der Code:
Sub Speichern()
Dim strVerzeichnis As String
Dim strDateinamen As String
strVerzeichnis = "H:\My Documents\TEST_Speicherort\"
strDateiname = strVerzeichnis & Range("B10") & ".xls"
Select Case strDateiname
Case False
Exit Sub
Case Else
ActiveWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Select
End Sub
Das funktioniert auch, aber wenn jetzt in B10 kein Aktenzeichen steht dann hätte ich lieber eine MsgBox, als dass er in den VBA-Editor reingeht. Und wenn die Datei bereits besteht, dann kommt zwar die Meldung, ob man sie überspeichern möchte. Drückt man hier aber auf "Abbrechen" gelangt man ebenfalls in den Editor. Kann man das ändern, so dass der Anwender nicht mit der ganzen Programmierung konfrontiert ist?
Das wär's aber dann auch wirklich von mir!! Echt vielen vielen Dank!!
|