Fehler im VBA Code
30.03.2006 07:01:37
Josef
Ich habe folgenden Code:
Private Sub ComboBox1_Change()
ComboBox3.Tag = "füllen"
'If ComboBox1.Value = "Haus" Then
' ComboBox3.RowSource = ""
' FRM_Haus.Show
' ComboBox3.Value = ""
'Else
If ComboBox1.Value <> "" Then
ComboBox3.RowSource = ComboBox1.Value
ComboBox3.ListIndex = 0 ' ersten Wert anzeigen
'ComboBox3.Visible = ComboBox1.Value = "Abschnitt1"
End If
ComboBox3.Tag = ""
End Sub
Mit diesem Code wird,wenn das Tabellenblatt "Daten" aktiviert ist, alles wie gewünscht korrekt in die ComboBox1 eingelesen.
Ich müßte jedoch die Userform bei einem anderen aktivierten Datenblatt starten und hier bekomme ich klarerweise einen RowSource Fehler.
In der UserForm_Initialize versuchte ich jetzt den Pfad so anzupassen, dass es auch dann funktioniert, nur leider Pech gehabt. Wo liege ich hier bitte falsch?
Dim Loletzte As Long
Dim LoI As Long
Loletzte = IIf(IsEmpty(Workbooks("SVA Heilbehelfe und Hilfsmittelkatalog.xls").Worksheets("Daten").Range("A65536")), Workbooks("SVA Heilbehelfe und Hilfsmittelkatalog.xls").Worksheets("Daten").Range("A65536").End(xlUp).Row, 65536)
For LoI = 1 To Loletzte
ComboBox1.AddItem Cells(LoI, 1)
Next LoI
ComboBox1.ListIndex = 0
Danke
Josef
Anzeige