dies ist ein Makro das ein Worksheet ausliest
und die ausgelesenen Werte in einem anderen
Worksheet ohne doppelte werte wieder ausgibt?!
Was muss ich verändern damit mir das Makro
nur Text und keine Zahlen ausliest?
Private Sub CommandButton2_Click()
Dim Zelle As Range
Dim i%, j%, Res(1000, 2) As String, N%, Temp$
Worksheets("Monatsübersicht").Activate
For Each Zelle In ActiveSheet.Range("B7:BK41").Cells
If Zelle.Value <> "" Then
N = N + 1
Res(N, 1) = Zelle.Value
End If
Next
For i = 1 To N
Temp = Res(i, 1)
For j = i + 1 To N
If Res(j, 1) = Temp Then Res(j, 2) = "N"
Next j
Next i
Worksheets("Auswertung").Activate
j = 0
For i = 1 To N
If Res(i, 2) <> "N" Then
j = j + 1
Cells(j, 1) = Res(i, 1)
End If
Next i
End Sub