Ich hatte das Thema schon letzte Woche mal angebracht, bin aber trotz euren Tipps noch nicht wirklich weiter gekommen.
Problemstellung:
Spalte A besteht aus Namen, die z. Teil auch in Spalte B vorkommen (Reihenfolge nicht zwingend auf gleicher Zeile). Ich möchte nun alle doppelten Namen herausfiltern, bzw. in Spalte C alle Einträge aus Spalte A zuzüglich allfälliger abweichende Eintragungen aus Spalte B bekommen. Diejenigen Namen, die sowohl in A wie auch B vorkommen, dürfen nur einmal erscheinen...
Ich habe nun Rechere betrieben und bin auf folgenden VBA-Code gestossen, der mir aber beim letzten Punkt "ShowAllData" eine Fehlermeldung liefert... und da ich keine Erfahrung mit VBAs habe, kann ich auch mit der Fehlermeldung nicht viel anfangen.
Sub Vergleich()
Dim lRow As Long
Dim iRow As Integer
Application.ScreenUpdating = False
lRow = 2
iRow = 1
Range("A1").CurrentRegion.AdvancedFilter _
Action:=xlFilterInPlace, Unique:=True
Do Until IsEmpty(Cells(lRow, 1))
If Rows(lRow).Hidden Then
iRow = iRow + 1
Worksheets("Tabelle2").Rows(iRow).Value = Rows(lRow).Value
End If
lRow = lRow + 1
Loop
ActiveSheet.ShowAllData
End Sub
Vielen Dank für Hilfe
Gruss, Doris