title image


Smiley Re: Auflistung von x-Monatsnamen einer Spalte nur jeweils 1x
Hallo, es geht auch ein Bisschen Kürzer.



Sub ohne_doppelte_uebernehmen()

Dim Ende As Long, I As Long, A As Long

Dim Quelle As Worksheet, Ziel As Worksheet

Set Quelle = Worksheets("Liste_1")

Set Ziel = Worksheets("Liste_2")

Ende = Quelle.Cells(Rows.Count, 1).End(xlUp).Row

Ziel.Cells(2, 1).Value = Quelle.Cells(2, 1).Value

A = 3

For I = 3 To Ende

If Application.WorksheetFunction.CountIf(Quelle.Range("A2:A" & I - 1), Quelle.Cells(I, 1).Value) = 0 Then

Ziel.Cells(A, 1).Value = Quelle.Cells(I, 1).Value

A = A + 1

End If

Next I

End Sub



Gruß

Reiner

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: