Code abändern
18.02.2004 16:25:11
Helga
habe einen Code im Netz gefunden mit dem soll es möglich sein , au einer geschlossenen Mappe Daten in einer UF einzulesen.
Nun müsste der Code auf meine Bedürfnisse abgeändert werden.
Ich habe eine UF mit 1. ListBox1 u. 3 TextBoxen, TB1, TB2 u. TB3.
Meine Bedürfnisse :
Einlesen aus D\Excel97\Aufträge
Tabelle1 Zelle A50:A150 in die ListBox1
neben den Inhalt A50:A150 stehen noch Daten
in Zelle B, C, u. D die in den TB1-3 ange-
zeigt werden sollen.
z.Bsp. in der ListBox1 wird Inhalt von Zelle A50
angezeigt dan sollte in der TB1 der Wert von C50
in TB2 der Wert von C50, in TB3 der Wert von D50
Kann mir jemand dabei Helfen ?
Private Sub UserForm_Initialize()
For i = 1 To 20
ActiveSheet.Range("A1").Formula = _
"='C:\Excel\[Datei2.xls]Tabelle1'!C" & i
UserForm1.ComboBox1.AddItem (Range("A1").Value)
Next i
Range("A1").Value = ""
End Sub
Gruss Helga