Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combolist - Wert auswählen und Datei öffnen

Forumthread: Combolist - Wert auswählen und Datei öffnen

Combolist - Wert auswählen und Datei öffnen
17.03.2014 08:10:51
Sebastian
Hallo zusammen,
ich möchte gerne aus eine Combolist einen Monat wählen. Jeden Monat soll ein Dateipfad zugeordnet sein der dann mittels CommandButton "Bestätigen" geöffnet werden soll. Ich habe bis jetzt folgendes:

Private Sub CommandButton1_Click()
Dim intMonat As Integer
Dim Dateiname As String
Dim Pfad As String
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte erst Monat auswählen"
Else
intMonat = ComboBox1.ListIndex + 1
With Worksheets("Hauptmenü")
Pfad = "C:\XXX"
Dateiname = Cells(intMonat + 7, 20) ' Dateiname aus Zelle t8 auslesen
Application.Workbooks.Open (Pfad & Dateiname)
End With
Unload Me
End If
End Sub
Private Sub UserForm2_Initialize()
Dim intI As Integer
'AUswahlliste für Combobox erstellen
With Me.ComboBox1
For intI = 1 To 12
.AddItem Format(VBA.DateSerial(2014, intI, 1), "MMMM")
Next
End With
End Sub
Leider liest er nicht die Monate in die ComboBox, geschweige irgendwelche Datein zu öffnen. Wo liegt hier der Fehler?
MfG Sebastian

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combolist - Wert auswählen und Datei öffnen
17.03.2014 08:15:22
Beverly
Hi Sebastian,
was mir sofort auffällt - beim Pfad fehlt der zweite "\":
Pfad = "C:\XXX\"

AW: Combolist - Wert auswählen und Datei öffnen
17.03.2014 09:26:50
Matthias
Hallo
Leider liest er nicht die Monate in die ComboBox, geschweige irgendwelche Datein zu öffnen. Wo liegt hier der Fehler?
versuchs mal so: 
Option Explicit
Private Sub UserForm_Activate()
Dim intI As Integer
ComboBox1.Clear
For intI = 1 To 12
ComboBox1.AddItem Format(DateSerial(2014, intI, 1), "MMMM")
Next
End Sub
Gruß Matthias

Anzeige
was noch auffällt
17.03.2014 10:02:23
Matthias
Hallo
Du schreibst hier With

With Worksheets("Hauptmenü")
Pfad = "C:\XXX\" 'Karins Hinweis hier schon eingepflegt
Dateiname = Cells(intMonat + 7, 20) ' Dateiname aus Zelle t8 auslesen
Application.Workbooks.Open (Pfad & Dateiname)
End With
benutzt With aber nicht.
Hier gehört mE ein Punkt vor Cells, also: 
     Dateiname = .Cells(intMonat + 7, 20)
Gruß Matthias

Anzeige
AW: Combolist - Wert auswählen und Datei öffnen
17.03.2014 10:17:19
Rudi
Hallo,
da ist der Fehler:
Private Sub UserForm2_Initialize()
Die Ereignisprozedur heißt einfach
Private Sub UserForm_Initialize()!!!!
Private Sub CommandButton1_Click()
Dim intMonat As Integer
Dim Dateiname As String
Const Pfad As String = "C:\XXX\"
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte erst Monat auswählen"
Else
intMonat = ComboBox1.ListIndex + 1
Dateiname = Worksheets("Hauptmenü").Cells(intMonat + 7, 20)
Workbooks.Open (Pfad & Dateiname)
Unload Me
End If
End Sub
Private Sub UserForm_Initialize()
Dim intI As Integer
ComboBox1.Clear
For intI = 1 To 12
ComboBox1.AddItem MonthName(intI)
Next
End Sub

Gruß
Rudi

Anzeige
AW: Combolist - Wert auswählen und Datei öffnen
17.03.2014 11:49:13
Sebastian
Es funktionieren beide Vorschläge, vielen Dank.
MfG Sebastian
;

Beliebteste Forumthreads (12 Monate)

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