Schleife wird nicht verlassen
25.05.2018 13:36:56
Paul
ich habe folgenden Code, dabei soll wenn
Tabelle1.Cells(12, 4).Value den String "*strAuswertung*" enthält die Schleife verlassen werden. Leider klappt das nicht
Beispiel
Tabelle1.Cells(12, 4) ist PROD: Produktion (mit einem vbTab zwischen : und Produktion)
Tabelle9.Cells(i, 1) ist PROD für i=12
die Schleife läuft aber immer durch bis i =13 und strAuswertung ist demnach immer RUES (WERT in tabelle9.cells(13,1)
Private Sub CB_Zeitbasen_Change()
Dim strAuswertung As String
Dim LastrowTab1
Tabelle1.Cells(4, 12).Value = CB_Zeitbasen.Value
For i = 4 To 13
strAuswertung = Tabelle9.Cells(i, 1).Value
If Tabelle1.Cells(12, 4).Value Like "*strAuswertung*" Then Exit For
Next
End Sub
Grüße
Paul
Anzeige