Hallo,
ich habe zwar noch einen anderen Thread mit einem Code offen, der scheint aber wohl nicht realisierbar, darum bin ich noch auf der Suche nach Alternativen und Möglichkeiten. Der untenstehende Auszug aus einem Code würde die jeweilige Spalte nach dem vorgegebenen Text zählen. Wie kann ich evtl. den Code ändern, dass der jeweilige Text einer Combobox als Suchstring genommen werden kann? Gleiches gilt dann für den zweiten Teil, nämlich der MsgBox, die dann den Text der jeweiligen Combobox und dann das Zählergebnis zeigen sollte. Wäre eine solche Umstellung möglich? - Danke schon jetzt wieder für die Rückmeldung.
Gruß - Wolfgang
hier zunächst der Link zum anderen Thread:
https://www.herber.de/forum/archiv/1024to1028/t1025766.htm
hier der Auszug aus dem Code, der dann möglichst als Suchtext den Text der Combobox(1...) erhalten soll:
Dim a As Integer
Dim b As Integer...usw
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim rngFind As Range
Dim lngRow As Long
Dim strFind As String
Dim wb As Workbook
For Each wks In ThisWorkbook.Worksheets
If wks.Name "Zeile" Then
wks.Activate
If CheckBox1.Value = True Then
For i = 1 To 1000
If Cells(i, 1) = "'Text Combobox1" Then
a = a + 1
End If
Next i
End If
If CheckBox2.Value = True Then
For i = 1 To 1000
If Cells(i, 2) = "'Text Combobox2" Then
b = b + 1
End If
Next i
und hier der Auszug aus dem Code mit der MsgBox:
MsgBox a & " = 'Text Combobox1; " & Chr$(10) _
& b & " = 'Text Combobox2 " & Chr$(10) _ usw. (bis Combobox17)