VBA: UF Laufzeitfehler
24.09.2019 01:47:00
Charly
habe ein Problem mit einem Laufzeitfehler "-2147467259 (80004005)": nicht näher Bezeichnet. in einer UF.
Kurze Beschreibung:
Ich möchte über zwei ComboBoxen eine Vorauswahl in einer Tabelle Treffen.
1. per ComboBox1 in eine Zeile Springen (Bereich im Tabellenblatt)
2. per ComboBox2 eine ID auswählen
Der Fehler tritt auf wenn Ich die 1. Vorauswahl treffen will (ComboBox1) im Code wird mir "Me.CB_ID_Aus.Clear" gelb Markiert, CB_ID_Aus ist ComboBox2.
Kann mir einer Helfen bzw. Sagen was Ich falsch mache.
Danke für jegliche Hilfe, Gruß Charly
Private Sub CB_Bereich_ID_Change()
Dim i As Long
'ThisWorkbook.Activate
With Workbooks("HM2030_ori.xlsm").Worksheets("Werte")
Me.CB_ID_Aus.Clear
Select Case Me.CB_Bereich_ID
Case "WB 1"
Application.ActiveWindow.ScrollRow = 5 '>> Springe zu Bereich "WB1"
For i = 2 To 201 '>> ID. aus Tab. Werte, Spalte "B", von Zeile "2-39"
If WorksheetFunction.CountIf(Worksheets("Aus").Columns(3), .Cells(i, 6)) = _
_
0 _
Then
Me.CB_ID_Aus.AddItem .Cells(i, 2)
End If
Next i
Case "WB 2"
Application.ActiveWindow.ScrollRow = 408 '>> Springe zu Bereich "WB2"
For i = 202 To 401 '>> ID. aus Tab. Werte, Spalte "B", von Zeile "41-73"
If WorksheetFunction.CountIf(Worksheets("Aus").Columns(3), .Cells(i, 87)) = _
_
0 _
Then
Me.CB_ID_Aus.AddItem .Cells(i, 2)
End If
Next i
Case "WB 3"
Application.ActiveWindow.ScrollRow = 811 '>> Springe zu Bereich "WB3"
For i = 402 To 601 '>> ID. aus Tab. Werte, Spalte "B", von Zeile "74-115"
If WorksheetFunction.CountIf(Worksheets("Aus").Columns(3), .Cells(i, 156)) = _
_
0 _
Then
Me.CB_ID_Aus.AddItem .Cells(i, 2)
End If
Next i
Case "Haus"
Application.ActiveWindow.ScrollRow = 1216 '>> Springe zu Bereich "Haus"
For i = 602 To 801 '>> ID. aus Tab. Werte, Spalte "B", von Zeile "116-130"
If WorksheetFunction.CountIf(Worksheets("Aus").Columns(3), .Cells(i, 237)) = _
_
0 _
Then
Me.CB_ID_Aus.AddItem .Cells(i, 2)
End If
Next i
Case Else
End Select
End With
' Aufteilung von Bersichen u. ID´s, Tab. "Werte", Spalte "B"
End Sub
Private Sub CB_WB_Change()
Dim i As Long
With Workbooks("HM2030_ori.xlsm").Worksheets("Werte")
Me.CB_Zi.Clear
Select Case Me.CB_WB
Case "WB 1"
For i = 3 To 41 '>> Zi. aus Tab. Werte, Spalte "F", von Zeile "3-41"
If WorksheetFunction.CountIf(Worksheets("Aus").Columns(7), .Cells(i, 6)) = _
_
0 _
Then
Me.CB_Zi.AddItem .Cells(i, 6)
End If
Next i
Case "WB 2"
For i = 43 To 75 '>> Zi. aus Tab. Werte, Spalte "F", von Zeile "43-75"
If WorksheetFunction.CountIf(Worksheets("Aus").Columns(7), .Cells(i, 6)) = _
_
0 _
Then
Me.CB_Zi.AddItem .Cells(i, 6)
End If
Next i
Case "WB 3"
For i = 77 To 115 '>> Zi. aus Tab. Werte, Spalte "F", von Zeile "77-115"
If WorksheetFunction.CountIf(Worksheets("Aus").Columns(7), .Cells(i, 6)) = _
_
0 _
Then
Me.CB_Zi.AddItem .Cells(i, 6)
End If
Next i
Case "Haus"
For i = 116 To 220 '>> Zi. aus Tab. Werte, Spalte "F", von Zeile "116-220"
If WorksheetFunction.CountIf(Worksheets("Aus").Columns(7), .Cells(i, 6)) = _
_
0 _
Then
Me.CB_Zi.AddItem .Cells(i, 6)
End If
Next i
Case Else
End Select
End With
End Sub
Private Sub UserForm_Activate()
' Hier wird die Gruppe Wohnbereiche definiert
CB_Bereich_ID.List = Array("WB 1", "WB 2", "WB 3", "Haus")
CB_WB.List = Array("WB 1", "WB 2", "WB 3", "Haus")
End Sub