Thema Datum  Von Nutzer Rating
Antwort
Rot Unique Values
 31.08.2016 15:07:30 Lrub
NotSolved
31.08.2016 16:01:43 Gast85673
NotSolved
01.09.2016 19:38:12 Gast30722
Solved
05.09.2016 18:13:57 Gast69643
NotSolved

Ansicht des Beitrags:
Von:
Lrub		 Datum:
31.08.2016 15:07:30		 Views:
1170		 Rating:
     
Antwort:
  Ja
Thema:
Unique Values

Hi,

ich habe einen großen Datensatz in dem ich für jede Spalte die unique values in ein zweites Worksheet kopieren will. Ich erhalte aber einen Laufzeitfehler ( 1004 anwendungs- oder objektdefinierter Fehler) wenn ich folgendes Makro ausführe:

Sub CopyDistinctValues()
Dim Column As Integer

For Column = 1 To 500
    ActiveSheet.Range(Cells(3, Column), Cells(241635, Column)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Distinct").Range(Cells(2, Column)), Unique:=True
    Next Column
End Sub

Kann mir vielleicht jemand weiterhelfen?

Danke schonmal.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Unique Values
 31.08.2016 15:07:30 Lrub
NotSolved
31.08.2016 16:01:43 Gast85673
NotSolved
01.09.2016 19:38:12 Gast30722
Solved
05.09.2016 18:13:57 Gast69643
NotSolved