Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Änderung im VBA-Code über Dialogbox /Alternative

Forumthread: Änderung im VBA-Code über Dialogbox /Alternative

Änderung im VBA-Code über Dialogbox /Alternative
02.07.2003 11:55:41
Petra
Ich habe im VBA-Code drei Verknüpfungen zu mehreren Dateien, die sich alle in einem bestimmten Verzeichnis befinden. Beispiel: C:\Eigene Dateien\reports\report.csv
Jetzt wird diese Datei anderen Benutzern zur Verfügung gestellt. Und ich weiß nicht, auf welchen Laufwerken diese dann später die Datei nutzen werden.
Ist es möglich, dass man per VBA erst abprüft, ob diese Datei auf dem im VBA Code genannten Pfad vorhanden ist und dann im weiteren Schritt eine Maske für den Anwender geöffnet wird, in dem er den Pfad ändern/eingeben kann?
Ich weiß, dass man prüfen kann, ob eine Datei vorhanden ist, aber ob man das so wie von mir gewünscht auch in Kombination einer einfachen Neueingabe möglich ist, das ist mir momentan noch nicht klar. Sofern eine Alternative möglich ist, bin ich auch dafür dankbar.
vielen Dank
Petra
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderung im VBA-Code über Dialogbox /Alternative
02.07.2003 18:26:32
andre
hallo petra,
in etwa so:

Sub test()
dim wbc%, wbfound as boolean, i%
On Error GoTo OpenDialog
Workbooks.Open FileName:="Q:\Programm\meineliste_Tabs.xls"
On Error GoTo 0
wbc = Workbooks.Count
wbfound = False
For i = 1 To wbc
If Workbooks(i).Name = "meineliste_Tabs.xls" Then
i = wbc
wbfound = True
End If
Next i
If wbfound = False Then Exit Sub
call los_gehts
Exit Sub
OpenDialog:
Workbooks.Open FileName:=Application.GetOpenFilename( _
" Excel-Arbeitsmappen(*.xls), *.xls")
Resume Next
End Sub

gruss andre

Anzeige
;

Forumthreads zu verwandten Themen

SaveAs-Dialog
Jens

Hallo,
ich möchte dem Nutzer meines Excelsheets in einer bestimmten Situation einen vorkonfigurierten SaveAs-Dialog zur Verfügung stellen. Und zwar mache ich das folgendermaßen (nur ein Beispiel):
WorkBookName = "C:\Testsheets\Baseline Testing Summary"
Application.Dialogs(xlDialogSa...
30.01.2009 17:20:00
Thread-ID: 1045481
4 Beiträge
ActiveWorkbook.SaveAs
Larissa

Hallo,
jetzt habe ich doch noch eine Frage.
In meinem Makro habe ich die Funktion: ActiveWorkbook.SaveAs 'Name_Datum'
Die Datei wird dann in Eigene Dateien abgespeichert. Wenn an diesem Platz schon eine Datei mit diesem Namen vorliegt, kommt die typische Abfrage, ob die Datei übers...
12.09.2009 17:32:49
Thread-ID: 1102264
3 Beiträge
Application.FileDialog(msoFileDialogSaveAs)
Philipp

Hallo,
ich möchte nur bestimmte Dateiformate beim speichern zulassen. Die Filterfunktion funktioniert hier nicht (oder jedenfalls bei mir)
Sub test Set oFileDialog = Application.FileDialog(msoFileDialogSaveAs) With oFileDialog .Title = "Auto Report Save as" .ButtonName = "speichern" ....
02.12.2009 13:51:33
Thread-ID: 1121409
5 Beiträge
ActiveWorkbook.SaveAs Filename
Sandra

Hallo zusammen,
ich habe mal wieder ein Problem.
Mit dem nachfolgenden Code lasse ich automatisch speichern.
Dim Dateiname As String
Dateiname = oXlSM.Name
ActiveWorkbook.SaveAs Filename:="\\xxxx\Dokumentation\" & Dateiname & ".xml"
Das klappt auch fast. Allerdin...
21.06.2011 16:49:35
Thread-ID: 1219171
3 Beiträge
VBA _pivate_sub save as
Volker

Hallo,
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateinam...
25.04.2012 07:38:29
Thread-ID: 1260797
4 Beiträge
Ausschreiben von Dateien per VBA SaveAs
Dateien

Guten Morgen,
Hab ein kleines Problem und hab mich schon den ganzen Morgen durchs Internet geschlagen und auch viel hier gefunden, aber irgendwie wills bei mir nicht funktionieren ...
Hab mir hier zur Auswertung von Messdaten n kleinen Excel Tabellensatz erschaffen damit ich die Inputfi...
25.05.2012 11:57:01
Thread-ID: 1264893
5 Beiträge
Excel stürzt nach SaveAs-Dialog ab
Ben

Hallo zusammen!
Nach mehrfacher Empfehlung des Herber-Forums bin ich nun auch ein Teil dieser Community geworden - natürlich gleich mit der Hoffnung auf Hilfe! :-)
Ich habe beruflich ein Excel Template zu erstellen, dass sowohl unter Excel 2007 als auch unter Excel 2003 laufen muss (Wir...
25.07.2012 11:57:29
Thread-ID: 1272542
14 Beiträge
VBA Outlook 2010 Fehler (xlDialogSaveAs).Show
Thorsten

Hallo,
ich versuche eMail-Anhänge zu speichern.
Der genaue Speicherpfad steht in den Anhängen(.xls) der eMail.
Leider ist der Name/ Bezeichnung immer anders.
Die Anhänge werden temporär gespeichert, geöffnet und dann kommt mein Problem:
der Benutzer soll das Speicherverzeich...
07.06.2014 07:21:41
Thread-ID: 1365046
4 Beiträge
Anzeige
ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help
Thorben

Hallo alle zusammen,
folgender Code legt eine Kopie ab und bringt Excel dann zum Absturz!?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Filestring1 = "\Test1.xlsm" Filestring2 = "\Test2.xlsm" If ActiveSheet.Range("G1") = "Bestand 1" = True Then ThisWor...
23.06.2014 14:57:24
Thread-ID: 1367056
6 Beiträge
Anzeige
Workbook.SaveAs einer schreibgeschüzten Datei
Bernhard

Hallo xls-ler, ich habe mein Problem der Automatisierung mit Hilfe der Recherche fast gelöst. Ein letzter Punk ist leider offen:
Der Befehl ActiveWorkbook.SaveAs soll eine Datei die Schreibgeschützt ist überschreiben. Ich dachte dadurch, dass man das Argument WriteResPassword:="test" mit dem...
16.07.2002 15:15:53
Thread-ID: 137076
3 Beiträge
ActiveWorkbook.SaveAs Dateiname aus Strings
Ben

Hallo,
ich habe folgendes VBA Programm als Makro geschrieben:
Dim pfad As String
ActiveSheet.Unprotect
Dim kursbezeichnung As String
kursbezeichnung = range("F2").Value
Application.DisplayAlerts = False
pfad = "C:\1\" & kursbezeichnung & "\Moodlezugangsdaten....
31.03.2015 14:50:36
Thread-ID: 1418235
4 Beiträge
Alle Dateien im SaveAs Dialog anzeigen
Peter

Wie kann ich beim Abspeichern einer Excel-Datei erreichen, dass im Save Dialog standardmäßig alle Dateien angezeigt werden? Normalerweise werden nur xlsx-Dateien angezeigt. Wenn ich für den Dateiname "*.*" eingebe, dann sehe ich wie gewünscht alle Dateien. Geht das auch automatisch, ohne dass i...
06.01.2016 14:58:15
Thread-ID: 1467402
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige