Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
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
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speicherort über mehrere KomboBoxen

Forumthread: Speicherort über mehrere KomboBoxen

Speicherort über mehrere KomboBoxen
13.11.2013 15:28:07
Matthias
Hallo liebe VBA Gemeinde :),
ich suche nach einer Möglichkeit einen Speicherpfad durch KomboBoxen variabel zu gestalten.
Es soll also eine Userform geöffnet werden in der ein paar (wahrscheinlich 5) KomboBoxen stehen.
Die Komboboxen sind natürlich schon gefüllt.
Jetzt würde ich gerne einen Speicherpfad aus den ausgewählten Werten basteln.
Ich hatte Versucht diesen wie folgt zu definieren.
Dim Speicherpfad As String
Speicherpfad = Combobox1.Value &"/"& Combobox2.Value &"/"& etc.
zu lösen.
Ich erhalte aber weder eine Fehlermeldung, noch eine gespeicherte Datei.
Ich hoffe Ihr könnt mir mit dem ein oder anderem Beispiel den richtigen Code zeigen.
Mit freundlichem Gruß
Matthias

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speicherort über mehrere KomboBoxen
13.11.2013 15:36:56
Rudi
Hallo,
1. "\" statt "/"
2. wie sieht der Code weiter aus?
Gruß
Rudi

AW: Speicherort über mehrere KomboBoxen
13.11.2013 17:02:12
Matthias
Hallo Rudi,
hier der Code 
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.Copy
Dim strPath As String
Dim strFile As String
strFile = ActiveSheet.Range("C12").Value & "_" & ActiveSheet.Range("A2").Value
strPath = ComboBox1.Value & "\" & ComboBox2.Value & "\" & ComboBox3.Value & "\" & ComboBox4. _
Value & "\"
If Dir(strPath) = "\" Then
MsgBox "Pfad existiert nicht"
Exit Sub
End If
If Dir(strPath & strFile & ".xls") = "" Then
ActiveWorkbook.SaveAs strPath & strFile
Else
MsgBox "Datei existiert bereits"
End If
End Sub
In der SaveAs Zeile hab ich nen Fehler, weißt du wo er liegt ?
Gruß Matthias
Anzeige
;

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