großes Problem mit ListFillRange
15.08.2006 08:18:10
stefanseevetal
ich habe große Probleme mit meinem ListFillRange. Ich möchte der ComboBox diese Bereiche flexibel zuweisen und habe dafür auch schon Hilfe hier im Forum bekommen. Es ging auch alles, aber plötzlich funkltioniert es nicht mehr und der ListFillRange ist immer gleich dem ersten Fall. Eigentlich soll sich die Combobox abhängig vom Inhalt der Cells(4,25) verschiedene ListFillRange-Bereiche ziehen:
Private Sub ComboBox1_GotFocus()
Dim Anlagenteil As String
Anlagenteil = Cells(4, 25)
Select Case Anlagenteil
Case "Verdichter"
ComboBox1.ListFillRange = "Eingabebereiche!" & Sheets("Eingabebereiche").Range("H3:H13").Address
Case "Pumpe"
ComboBox1.ListFillRange = "Eingabebereiche!" & Sheets("Eingabebereiche").Range("H19:H29").Address
Case "Behälter / Filter"
ComboBox1.ListFillRange = "Eingabebereiche!" & Sheets("Eingabebereiche").Range("H39:H49").Address
Case "Wärmetauscher"
ComboBox1.ListFillRange = "Eingabebereiche!" & Sheets("Eingabebereiche").Range("H59:H69").Address
Case "Fördereinrichtung"
ComboBox1.ListFillRange = "Eingabebereiche!" & Sheets("Eingabebereiche").Range("H79:H89").Address
Case "Apparat"
ComboBox1.ListFillRange = "Eingabebereiche!" & Sheets("Eingabebereiche").Range("H99:H109").Address
Case "Haustechnik"
ComboBox1.ListFillRange = "Eingabebereiche!" & Sheets("Eingabebereiche").Range("H119:H129").Address
End Select
End Sub
Bitte um Hilfe!!!
Danke und Gruß,
Stefan
Anzeige