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

Ansicht des Beitrags:
Von:
Gast30722		 Datum:
01.09.2016 19:38:12		 Views:
688		 Rating:
     
Antwort:
 Nein
Thema:
Unique Values		 
Hallo,

das mit dem Schlüsselwort wurde ja schon angemerkt.

Aber daran lag es wohl eher nicht. Du hast nicht sauber auf das Tabellenblatt referenziert. Beim Ansprechen einer Range muss
vor dem Range und vor jedem Cells innerhalb der Range auf das Tabellenblatt referenziert werden.
Einfacher ist hier dann ein With - End With Konstrukt. Dabei wird dann durch einen Punkt vor dem Range und vor den beiden
Cells auf das im With angegebene Tabellenblatt referenziert.

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

Gruß Werner

 

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
31.08.2016 15:07:30 Lrub
NotSolved
31.08.2016 16:01:43 Gast85673
NotSolved
Rot Unique Values
 01.09.2016 19:38:12 Gast30722
Solved
05.09.2016 18:13:57 Gast69643
NotSolved