Adressierung in einem Add-In
01.08.2003 08:11:57
peter
Ich habe eine Userform erstellt, mit deren hilfe Daten in ein Excelsheet geschrieben und abgerufen werden.
Nun möchte ich aus dieser Mappe ein Add-In machen und habe folgendes Problem.
In einem Add-In muß ich ja ThisWorkbook verwenden ?
Mit genauer Adressierung klappt das auch (also:ThisWorkbook.Worksheets("Tabelle3").Range("a1").Value)wenn ich aber die Zelladresse als Schleife laufen lasse nicht mehr.
Kann mir jemand die richtige Schreibweise nennen ?
~begin~
Private Sub ComboBox1_Change()
'füllt die cobobox mit den Datensätzen
Dim r%
r = ComboBox1.ListIndex + 2
TextBox1.text = ThisWorkbook.Worksheets("Tabelle3").Cells(r, 1)
'TextBox1.text = Cells(r, 1)
TextBox2.text = Cells(r, 2)
End Sub
~end~
Gruß
Peter