VB Combobox & Text & Variable (schwitz)
05.05.2005 19:05:37
Jörg
nun stehe ich vor einem Problem, das ich nach meinem bescheidenen Kenntnisstand nur mit VB platzsparend lösen kann:
Es geht um das Importieren von Daten aus einer geschlossenen Tabelle, zB. über einen Pfad =('//Server123\j:\Zusammenarbeit\Urlaub\[Urlaubsplaner.xls]Personal'!B'n').
Wie oben lässt es sich einfach in den einzelnen Zellen realisieren.
Allerdings soll die Anwendung auf verschiedenen Servern laufen und der Pfad zum Urlaubsplaner.xls variiert.
Also versuche ich gerade vergeblich, etwas zu stricken, damit ich über eine Textbox den variablen Teil des Pfades in vereinfachter Form "//Server123\j:\Ordner1\Zusammenarbeit\" eingebe.
Über VB möchte ich es dann so zuammenbauen, dass am Ende der funktionierende
Pfad herauskommt, der dann mit einer Schleife in einige Zellen eingetragen wird.
Das soll dann etwa so aussehen:
Private Sub CommandButton9_Click() 'Pfad zu Urlaubsplaner einrichten
Dim m As Integer
Dim n As Integer
m = 2
n = 6
For m = 2 To 26
ActiveSheet.Cells(m, 23).Value = "=('" & UserForm1.TextBox8.Text _
&"[Urlaubsplaner.xls]Personal'!B" & n (<- das geht so nicht, aber wie)
n = n + 1
Next m
End Sub
Noch schöner wäre es, wenn nicht die Formel, sondern gleich die Werte aus den abgefragten Zellen übertagen würden. Damit vermeide ich unnötigen Traffic durch die Aktualisierung der Bezüge.
Nun bin ich gespannt - wahrscheinlich gibt es dafür eine ganz einfache Lösung.
Vorab danke für eure Hilfe!
Gruß Jörg