RemoveDuplicates nach csv-Import

Liebe Community,
ich bin neu in der VBA Welt und zuletzt auf ein Problem gestoßen, bei dem ich nicht mehr weiterkomme. Dieses betrifft den RemoveDuplicates Befehl, angewendet auf importierte Datensätze aus einer *.csv Datei.
Bislang habe ich die csv-Datei immer manuell im Explorer geöffnet, die Spalten etc. sortiert und den Inhalt in mein Standard Workbook kopiert. Diesen Prozess wollte ich mit VBA automatisieren, was auch soweit gut geklappt hat. Die Daten werden unter eine bestehende Liste gefügt, dabei kann es passieren, dass Daten doppelt vorhanden sind. Um dieses auszuschließen möchte ich nach dem Kopiervorgang mit RemoveDuplicates die doppelten Einträge löschen. Das funktioniert aber nicht! Aus irgendeinem Grund erkennt Excel die Werte nicht als Duplikate.
Mache ich den Prozess händisch, funktioniert es einwandfrei. Sprich: Wenn ich die Daten aus derselben csv-Datei händisch kopiere und im Ziel-Worksheet einfüge, kann ich anschließend manuell über Daten/Duplikate entfernen alle doppelten Einträge löschen.
Nach dem automatischen Kopieren und Einfügen sind die Zellen in der Zieldatei alle im selben Format, ich hatte zunächst gedacht es könnte daran liegen.
Ich wühle mich seit einiger Zeit durch google und komme keinen Schritt weiter.
Daher würde ich mich über Ideen/Anregungen und Hilfe sehr freuen!
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Anbei mein Code, ich hoffe der ist ausreichend zur Überprüfung auf Fehler.


Sub DatenAuswahl() 'Auswahl der CSV Datei / en
Dim varDateipfade As Variant
Dim intZaehler As Integer
Dim intAnzDateien As Integer
Dim lngAnzGesamt As Long
varDateipfade = Application.GetOpenFilename("Datei, *.csv", , "Transaktionsdaten auswählen", , True)
On Error GoTo Fehlerbehandlung
intAnzDateien = UBound(varDateipfade)
For intZaehler = 1 To intAnzDateien
DatenAuslesen varDateipfade(intZaehler)
Next
Fehlerbehandlung:
End Sub


Sub DatenAuslesen(varDateipfad As Variant)          'Öffnen der Datei um Anordnung an Zieldatei anzupassen
Dim intZeilenAnzahl As Integer
Workbooks.Open (varDateipfad), Local:=True
Rows("1:7").Delete
Columns("A:B").Delete
Range("A1").Value = "Buchungstag"
Range("B1").Value = "Konto"
Range("C1").Value = "Auftraggeber/Zahlungsempfänger"
Range("D1").Value = "Empfänger/Zahlungspflichtiger"
Range("E1").Value = "IBAN"
Range("F1").Value = "BIC"
Range("G1").Value = "Vorgang"
Range("H1").Value = "Betrag"
intZeilenAnzahl = LetzteZeileAdvanced(1)
Range("B2:C" & intZeilenAnzahl).Copy
Range("G2").Select
ActiveSheet.Paste
Range("B2:B" & intZeilenAnzahl).Value = "DKB"
Range("C2:F" & intZeilenAnzahl).Value = " "
Range("A2:H" & intZeilenAnzahl).Copy
End Select
ActiveWorkbook.Saved = True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Datenkopieren
End Sub


Sub Datenkopieren()
Dim rngKopierbereich As Range
Dim lngRowNumber As Long
ThisWorkbook.Sheets("Ausgabentracking").Activate
lngRowNumber = Range("A4").End(xlDown).Row
Range("A4").End(xlDown).Offset(1, 0).Select                             'Die Tabelle in der Zieldatei beginnt in Row 4 (Header)
ActiveSheet.Paste
' Betrag in das richtige Format überführen (Spalte H als Format Währung)
On Error Resume Next
For Each rngKopierbereich In Range("H" & lngRowNumber, "H" & LetzteZeileAdvanced(8))
rngKopierbereich.Value = rngKopierbereich.Value * 1
Next rngKopierbereich
Range("H" & lngRowNumber, "H" & LetzteZeileAdvanced(8)).Select
Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
End Sub


Sub DatenSortieren()
'RemoveDuplicates (Duplikate werden nicht erkannt!)
Range("A5:M" & LetzteZeileAdvanced(8)).RemoveDuplicates Columns:=Array(1, 7, 8), Header:=xlYes
End Sub


Function LetzteZeileAdvanced(intSpalte As Integer) As Long
LetzteZeileAdvanced = Cells(Cells.Rows.Count, intSpalte).End(xlUp).Row
End Function

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread