InStr mit Bedingung
30.08.2019 15:08:06
MaAs
ich möchte in zwei Spalten immer zwei aufeinanderfolgende Zellen miteinander vergleichen. In Spalte 11 sind Termine enthalten in der Form "Do 15.30" , "Mi 18.45" etc. Eigentlich will ich aber nur sichergehen, dass die Wochentage sich nicht wiederholen. Blöd ist aber, dass natürlich die Zahlen bzw. der Punkt sich immer wiederholen, das sollte ignoriert werden. Gibt es dafür eine Lösung?
Vielen lieben Dank und liebe Grüße
Mariam
Sub Dopplungen_überprüfen()
Sheets("Stundenplanabfrage").Select
Dim i As Integer
For i = 1 To 1000
If IsEmpty(Cells(i, 1).Value) = True Then
MsgBox "Die Überprüfung ist abgeschlossen."
Exit Sub
Else
If Cells(i, 1) = Cells(i + 1, 1) And InStr(Cells(i, 11).Value, Cells(i + 1, 11). _
_
Value) > 0 And Cells(i, 11) "" Then
MsgBox (Cells(i, 1))
i = i + 1
End If
End If
Next
End Sub
Anzeige