AW: @Marc......Frage
23.02.2006 16:14:49
Mac4
Hallo Herrmann,
ich hoffe, ich habe Dich richtig verstanden. Das Makro soll auf einen variabelen Bereich reagieren? Dann versuch es mal so:
Sub ohne_Duplikate()
Dim zl As Long, sp As Long, Bereich As Range, fsp As Long, lsp As Long, start As Long
Set Bereich = Application.InputBox("Bereich markieren", , , , , , , 8)
fsp = Bereich.Column
lsp = Bereich.Columns.Count + Bereich.Column - 1
start = Bereich.Row
For sp = fsp To lsp
For zl = Bereich.Row To Cells(65536, sp).End(xlUp).Row
If WorksheetFunction.CountIf(Columns(lsp + 1), Cells(zl, sp)) = 0 Then
Cells(start, lsp + 1) = Cells(zl, sp)
start = start + 1
End If
Next
Next
End Sub
Um das Makro in allen Dateien zur Verfügung zu haben, empfiehlt es sich, das Makro in der Personl.xls abzuspeichern (ist eine Mappe, die normalerweise beim ersten aufzeichen eines Makros automatisch angelegt wird und im Ordner XLStart liegt).
Jetzt kannst Du noch über Ansicht - Symbolleiste - Anpassen - Befehle - Makros einen Smilie in Deine Symbolleiste ziehen und diesem Icon dieses Makro zuweisen.
Bei Fragen, bitte melden!
Marc