makro
15.11.2006 13:51:08
achim
das makro funzt für text super (von rudi maintaire).
nun möchte das auch für zahlen einsetzen , dass geht aber nicht.
wer kann das makro anpassen?
Sub tt()
Dim vntOrte
Dim i As Integer
With Sheets("Grunddaten")
vntOrte = .Range(.Cells(2, 6), .Cells(2, 6).End(xlDown))
End With
For i = 1 To UBound(vntOrte, 1)
With Sheets("Ergebnisse")
If WorksheetFunction.CountIf(.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)), vntOrte(i, 1)) = 0 Then
.Cells(65536, 1).End(xlUp).Offset(1, 0) = vntOrte(i, 1)
End If
End With
Next i
End Sub
danke achim h.