AW: Doppelte Einträge der Datei anzeigen?
28.02.2021 15:46:29
Selma
Hallo Leute,
was muss ich bitte hier im Makro "Doppelte_anzeigen" ergänzen, um in einem MsgBox die doppelt vorhandenen Einträge auszugeben?
Sub Doppelte_anzeigen()
Dim Datei As String, Text As String
Dim Zeile As Long
Datei = "D:\Daten\Projekte\Pfadliste.txt"
Close #1 'Quelldatei vorsichtshalber schließen
Open Datei For Input As #1 ' Quelldatei öffnen.
Zeile = 1
Do While Not EOF(1) ' Schleife bis Dateiende
Line Input #1, Text ' Text lesen
Debug.Print Text
Zeile = Zeile + 1
Loop
Close #1 'Quelldatei schließen
End Sub
Über Zwischenschritt der Tabelle funktioniert es bereits.
Sub DoppelteFinden()
Dim intr1 As Integer, intr2 As Integer, Suchspalte As Integer
Suchspalte = 1
For intr1 = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For intr2 = intr1 + 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(intr1, Suchspalte) = Cells(intr2, Suchspalte) Then
MsgBox Cells(intr1, Suchspalte).Value & " ist doppelt vorhanden"
End If
Next intr2
Next intr1
End Sub
Nur mein Ziel ist es direkt über die TXT-Datei die doppelte Einträge im MsgBox anzuzeigen.
Beste Grüße,
Selma