ComboBox Wert in anderem Tabellenblatt finden

Hallo zusammen,
ich hab auf einem Tabellenblatt ("Tabelle3") eine Combobox2 integriert und 28 Checkboxen (Checkbox2 - Checkbox 29). Über die Combobox2 können unterschiedliche Werte ausgewählt werden, die in "Tabelle 1" in der Spalte "C5:C13" hinterlegt sind. Soweit funktioniert auch alles.
Ich möchte nun, dass wenn ich in "Tabelle3" über die Combobox2 einen wert auswähle, dass er mir in "Tabelle1" die Zeile sucht in der dieser Wert hinterlegt ist. Die "Tabelle1" enthält Daten im Bereich "B5:AA13". Jede Spalte dieser Zeile soll einer Checkbox (Checkbox2- Checkbox29) zugewiesen werden, die sich wie die Combobox in "Tabelle3" befinden. Wird nun der Wert der Combobox2 in "Tabelle1" gefunden, so soll für jede markierte Checkbox der Wert aus der entsprechenden Spalte dieser Zeile entnommen werden und in "Tabelle2" beginnend bei "B5:B30" aufgeführt werden. Ist eine Checkbox nicht markiert, soll der Wert der nachfolgenden Checkbox eine Zeile weiter nach oben rutschen, sodass in "Tabelle2" keine Lücke entsteht.
Mein Code sieht bis jetzt folgendermaßen aus, es tauchen aber immer noch Fehlermeldungen auf, die ich irgendwie nicht alle behoben bekomm. Vielleicht kann mir einer weiterhelfen, wäre echt nett :).

Private Sub ComboBox2_Change()
Dim rngBereich As Range
Dim r As Long
Set rngBereich = Worksheets("Tabelle1").Range("B5:AA13")
If ComboBox2.Value  "" Then
For r = 2 To 29
With Worksheets("Tabelle1")
Set rngBereich = .Find(ComboBox2.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rngBereich Is Nothing Then
With Worksheets("Tabelle2")
If Worksheets("Tabelle3").CheckBox & r = True Then
Range("Br+3").Value = Worksheets("Tabelle1").Cells(rngBereich.Row, r + 3). _
Value
End If
End With
End If
End With
Next
End If
End Sub

Gruß
Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox2_Change() Dim rngBereich As Range Dim r As Long Dim lngRow As Long Set rngBereich = Worksheets("Kettenzüge").Range("B5:AA13") If ComboBox2.Value "" Then lngRow = 5 For r = 2 To 29 With Worksheets("Kettenzüge") Set rngBereich = .Find(ComboBox2.Value, LookAt:=xlWhole, LookIn:=xlValues) If Not rngBereich Is Nothing Then With Worksheets("Tabelle2") If Worksheets("Tabelle3").OLEObjects("CheckBox" & CStr(r)).Value = True _ Then Worksheets("Tabelle2").Cells(lngRow, 2).Value = Worksheets("Tabelle1"). _ Cells(rngBereich.Row, r - 1).Value lngRow = lngRow + 1 End If End With End If End With Next End If End Sub

Private Sub ComboBox2_Change() Dim rngBereich As Range Dim r As Long Dim lngRow As Long If ComboBox2.Value "" Then lngRow = 5 For r = 2 To 29 With Worksheets("Tabelle1") Set rngBereich = .Range("B5:AA13") If Not rngBereich Is Nothing Then If Worksheets("Tabelle3").OLEObjects("CheckBox" & CStr(r)).Object.Value _ Then Worksheets("Tabelle2").Cells(lngRow, 4).Value = Worksheets("Tabelle1" _ ).Cells(rngBereich.Row, r - 1).Value lngRow = lngRow + 1 End If End If End With Next End If End Sub

Hallo,
zumindest sind schon mal die Comboboxen beim Öffnen der Mappe gefüllt. Was du in das Füll-Makro noch reingepackt hast ist Unsinn. Das gehört wenn dann in die Change-Events der Comboboxen. Da war das doch schon mal drin. Oder?
Dein Vergleichsmakro funktioniert so:

Private Sub CommandButton1_Click()
    Dim lngIndex As Long, lngRow As Long
    If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then
        lngRow = 4
        With Worksheets("Vergleichsformular")
            .Range("A5:E32").ClearContents
            For lngIndex = 2 To 15
                If OLEObjects("CheckBox" & CStr(lngIndex)).Object.Value Then
                    lngRow = lngRow + 1
                    .Cells(lngRow, 1).Value = Cells(lngIndex + 8, 2).Value
                    .Cells(lngRow, 2).Value = Worksheets("Kettenzüge").Cells( _
                        ComboBox1.ListIndex + 5, lngIndex).Value
                    .Cells(lngRow, 4).Value = Worksheets("Kettenzüge").Cells( _
                        ComboBox2.ListIndex + 5, lngIndex).Value
                End If
            Next
            For lngIndex = 16 To 29
                If OLEObjects("CheckBox" & CStr(lngIndex)).Object.Value Then
                    lngRow = lngRow + 1
                    .Cells(lngRow, 1).Value = Cells(lngIndex - 6, 4).Value
                    .Cells(lngRow, 2).Value = Worksheets("Kettenzüge").Cells( _
                        ComboBox1.ListIndex + 5, lngIndex).Value
                    .Cells(lngRow, 4).Value = Worksheets("Kettenzüge").Cells( _
                        ComboBox2.ListIndex + 5, lngIndex).Value
                End If
            Next
            .Select
        End With
    Else
        Call MsgBox("Bitte erst 2 Produkte auswählen.", vbExclamation, "Hinweis")
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

ComboBox Wert in anderem Tabellenblatt finden

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ComboBox Wert in anderem Tabellenblatt finden

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread