title image


Smiley Re: Auflistung von x-Monatsnamen einer Spalte nur jeweils 1x
Hallo pepper,

wie schon gesagt über Spezialfilter oder Makro evt. so.

Beide Blätter in einer Tabelle in dem Fall Liste_1 und Liste_2.

Ich hoffe ich habe Dich richtig verstanden?



Sub Monate_einfuegen()

Dim Ende As Long

Dim I As Long

Dim A As Long

Dim Monate As String

Dim Quelle As Worksheet

Dim Ziel As Worksheet

Set Quelle = Worksheets("Liste_1")

Set Ziel = Worksheets("Liste_2")

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

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

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

A = 3

For I = 3 To Ende

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

Monate = Quelle.Cells(I, 1).Value

Ziel.Cells(A, 1).Value = Monate

A = A + 1

End If

Next I

End Sub



Gruß

Reiner

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: