Zwei Comboboxen initialisieren
13.09.2007 15:17:31
Herbert
Wenn nur eine Combobox initialisiert wird dann geht´s. Bei beiden, bzw. beim initialisieren der Textbox bekomme ich die Fehlermeldung:
Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt. Hab´s mit 2 x With probiert, bin aber auch gescheitert
Danke für Eure Hilfe im Voraus
Herbert
Warum steigt der Code aus:
Public Pfad as Object
Private Sub CboDst_Change()
Set Pfad = This Workbook.Worksheets ("Tabelle1")
Pfad.Cells(8, 2).Value = CboDst.Text
Set Pfad = Nothing
End Sub
Private Sub CboTrT_Change()
Set Pfad = This Workbook.Worksheets ("Tabelle1")
Pfad.Cells(3, 2).Value = CboTrT.Text
TextBox19.Text = Pfad.Range("B22").Value
Set Pfad = Nothing
End Sub
Private Sub UserForm_Initialize()
Set Pfad = This Workbook.Worksheets ("Tabelle1")
CboTrT.List = Pfad.Range"(I2:I9").Value
CboTrT.Value = Pfad.Range"("B3").Value
CboDst.List = Pfad.Range"(F2:F22").Value
CboDst.Value = Pfad.Range"("B8").Value
TextBox19.Text = Pfad.Range("B21").Value
Set Pfad = Nothing
End Sub
Anzeige