Clever-Excel-Forum

Hallo zusammen

ich habe mit der Hilfe nach einer Problemlösung gesucht. Der Laufzeitfehler 1004 scheint ja nicht allzu selten zu sein. Jedoch half mir kein Beitrag wirklich weiter.

Meine Tabelle fragt per SQL eine Artikeldatenbank ab. Unter Angabe einer Kundennummer wird die Liste gefiltert. Danach soll die Liste von Duplikaten befreit werden. Diese Funktion macht dann den Fehler. Ich habe das Makro zuerst aufgezeichnet. Hierbei wurde die Tabelle dann wie folgt angesprochen:

Code:
ActiveSheet.Range("Artikeldaten[#Alle]").RemoveDuplicates Columns:=Array(1, 5), Header:=xlYes

Ich habe dann den Code angepasst und einen direkten Zellbereich angesprochen. Das funktioniert auch, solange die Tabelle auch genau so lang oder kürzer ist. Dadurch, dass die Tabelle aber abgefragt wird, ist die Länge variabel:

Code:
ActiveSheet.Range("$A$10:$F$3226").RemoveDuplicates Columns:=Array(1, 5), Header:=xlYes

Ich stehe hier etwas auf dem Schlauch. Ich würde mich freuen, wenn jemand hier Hilfestellung leisten kann Angel

Hallöchen

1) lass es wie zuerst
2) wenn nicht, dann musst Du die Größe / Länge der Tabelle ermitteln.

Habe jetzt mal schnell bei Google den folgenden Code gefunden:

Code:
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

Das funktioniert auch gut. Habe nun den Wert ermittelt, was die letzte Zeile ist. Habe mich etwas gequält aber dann doch geschafft das syntaxtechnisch korrekt einzubringen

Code:
ActiveSheet.Range("$A$10", "F" & letztezeile).RemoveDuplicates Columns:=Array(1, 5), Header:=xlYes

Jetzt gibt es unabhängig von der Tabellenlänge keine Fehlermeldung mehr

Also problem solved. Danke für den Tipp!

MetallRenner

schauan

MetallRenner