ich habe ein seltsames Problem und weiß wirklich nicht weiter.
Dim cmbxItem(2) As Variant
Dim cmbxTopic(2)
Dim colIndx As Integer
Dim tp As Integer
Dim comparevalue As Integer
For Each ws In ThisWorkbook.Sheets
If ws.Name Like "*" & "Modul" & "*" Then
ws.Activate
For tp = 0 To 2
colIndx = 1
If IsEmpty(cmbxItem) = False Then
While comparevalue = StrComp(cmbxTopic(tp), Cells(1, colIndx), _
vbBinaryCompare) 0
colIndx = colIndx + 1
Wend
Else
Exit Sub
Wenn jetzt cmbxtopic(0) den String "Typ" beinhaltet und die Zelle (1,1) z.B. "ID" beinhaltet, liefert StrComp trotz Binarycompare eine 0.
Die While Schleife wird zwar initialisiert aber comparevalue hat immer den Wert 0 unabhängig von der Zelle mit der ich vergleiche.
Ich versteh nicht warum, kann mich jemand aufklären ob ich eventuell etwas Missverstehe?
Vielen Dank
Waldi