Problem mit Makro
Michael
habe folgendes makro welches mir alle werte aus
dem Worksheet Monatsübersicht heraussucht und
diese im Worksheet Auswertung ohne doppelt vorhandenen
Werte wieder ausgibt!!
Da das Makro nich von mir selber geschrieben wurde und
ich auch nich soviel ahnung von VBA hab hoff ich mal
das mir jemand helfen kann?
Es sollen nicht das ganze Worksheet Monatsübersicht ausgelesen
werden sondern nur ein bestimmter Bereich!!
Danke im Voraus
Michael
Private Sub CommandButton1_Click()
Dim Zelle As Range
Dim i%, j%, Res(1000, 2) As String, N%, Temp$
Worksheets("Monatsübersicht").Activate
For Each Zelle In ActiveSheet.UsedRange.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
Anzeige