Der Excel VBA-Befehl „recordset.open“ gibt die doppelte Anzahl von Datensätzen zurück
Dieser Code hat jahrelang funktioniert und jetzt haben wir ein Upgrade auf Windows 10 und Excel 2016 durchgeführt und er funktioniert.
Antwort1
Da versehentlich doppelte Datensätze eingegeben wurden ( as you have written in Comments above), können Sie anstelle des Löschens von Datensätzen EINDEUTIGE Datensätze lesen.
Nachfolgend sind einige mögliche VBA-Codezeilen aufgeführt, mit denen Sie eindeutige Datensätze erhalten.
rs.Open "SELECT Distinct ColumnName AS C FROM TableName
Oder
strSQL = "SELECT Distinct(COLNAME) from [SheetName$] "