Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

ComboBox CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige