ich habe folgendes Makro. Es kopiert aus einer Tabelle 2 eine Liste in Tabelle 1 und sortiert dabei die doppelten aus. Funktioniert gut!
Problem bei dem Kopieren sollen neben den doppelt vorkommenden Texten und leeren Zellen, auch Zellen mit dem Text *tisch nicht berücksichtigt werden.
Da meine VBA Kenntnisse schwach sind, wäre ich hier für Hilfe dankbar!
Sub Makro1()
Dim test
Dim Dic As Object
Dim A As Long
Set Dic = CreateObject("Scripting.Dictionary")
Worksheets("Tabelle1").Range("B117:B150").ClearContents
'Tabellenname anpassen
With Sheets("Tabelle2")
'Komplette Spalte DN
test = .Range("DN2", IIf(IsEmpty(.Cells(.Rows.Count, 118)), .Cells(.Rows.Count, 118).End( _
_xlUp), .Cells(.Rows.Count, 118)))
'Liste erstellen ohne doppelte
For A = 1 To UBound(test)
If test(A, 1) "" Then
Dic(test(A, 1)) = 0
End If
Next A
'Daten einfügen
ActiveWorkbook.Sheets("Tabelle1").Range("B117").Resize(Dic.Count) = Application.Transpose(Dic. _
keys)
End With
End Sub