Textboxen mit Werten aus anderer Mappe füllen
05.02.2014 12:19:54
Andreas
Ich habe mal wieder ein Problemchen, welches ich mit meinen bescheidenen Kenntnissen nicht lösen kann.
Ich möchte per Commandbutton (Userform) verschiedene Textboxen mit Werten aus einer, per Combobox wählbaren, Datei füllen, ohne die andere Datei zu öffnen. Die Werte der Textboxen werden dann wiederum per Commandbutton in das aktive Blatt geschrieben (ist schon fertig).
Folgenden Code habe ich schon aus anderen Projekten:
Auswahl der Datei in der Combobox:
Private Sub UserForm_Initialize()
Dim strFile As String
strFile = Dir(ThisWorkbook.Path & "\*.xlsm")
ComboBox1.Clear
Do Until strFile = ""
ComboBox1.AddItem Left(strFile, Len(strFile))
strFile = Dir
Loop
End Sub
Ich glaube, einen Teil der Übernahme der Werte hab ich auch schon. Ist aus einem anderen Projekt:
Private Sub CommandButton17_Click()
Dim strFile As String, strForm As String
With ComboBox1
If .ListIndex > -1 Then
strFile = .List(.ListIndex)
Else
' keine Datei ausgewählt - was tun?
End If
End With
If strFile "" Then
End With
End If
End Sub
TextBox18 = Sheets("Formular").Range("O7")
TextBox1 = Sheets("Formular").Range("O11")
TextBox2 = Sheets("Formular").Range("O9")
TextBox3 = Sheets("Formular").Range("C19")
TextBox4 = Sheets("Formular").Range("C20")
Also nach Auswahl der Datei (über ComboBox1) und klick auf CommandButton17 soll in der Textbox18 der Wert von O7 des Blattes "Formular" der ausgewählten Datei stehen. usw.
Kann mir da Jemand helfen?
Danke fürs Lesen und die Hilfe!
MFG, Andreas