Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

InStr mit Bedingung

InStr mit Bedingung
30.08.2019 15:08:06
MaAs
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text oder Zeit
30.08.2019 15:45:17
Fennek
Hallo Mariam,
wenn in den zu vergleichenden Zellen Text steht, wäre "instr()" der richtige Ansatz für die Prüfung, wenn dort eine XL-Zeit stehen würde, müßte man anderst prüfen.
Damit es ein potentieller Helfer ausprobieren kann, wäre eine Beispieldatei hilfreich.
mfg
AW: InStr mit Bedingung
30.08.2019 17:29:43
onur

For i = 1 To 1000
If Cells(i, 1) = Cells(i + 1, 1) and Cells(i, 11)  "" And Cells(i , 1) "" Then
if left(Cells(i , 11),2)= left(Cells(i + 1, 11),2) Then
MsgBox (Cells(i, 1))
end if
end if
MsgBox "Die Überprüfung ist abgeschlossen."
next i

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige