AW: anwendungs oder Objektorientierter Fehler
22.04.2025 23:22:01
Yal
Hallo Christian,
zusammengefasst,
entweder (v1) Tabelle "in Bereich konvertieren" und
Sub viertesMakro()
Dim letzteZeileErgebnis3 As Range
With ThisWorkbook.Sheets("Ergebnis3")
Set letzteZeileErgebnis3 = .Cells(Rows.Count, "A").End(xlUp)
.Range("AA1", letzteZeileErgebnis3).RemoveDuplicates Columns:=Array(23, 4), Header:=xlYes
End With
End Sub
Erklärung: es ist keine Unterschied, ob ein Bereich A1:AAx oder Ax:AA1 definiert wird. Gespeichert wird in beide Fälle als A1:AAx.
oder (v2) Tabelle5 bis tatsächliche letzte Zeile erweitern und dann
Sub viertesMakro()
Range("Tabelle5").RemoveDuplicates Columns:=Array(23, 4), Header:=xlYes
End Sub
Die Tabelle auf die letzte Zeile zu erweitern geht so:
Sub Tabelle_erweitern()
With Range("Tabelle5")
.ListObject.Resize Range("$AA$1", .Parent.Cells(Rows.Count, "A").End(xlUp))
End With
End Sub
Direkt in Version 2 eingebaut sieht es dann so aus:
Sub viertesMakro()
With Range("Tabelle5")
.ListObject.Resize Range("$AA$1", .Parent.Cells(Rows.Count, "A").End(xlUp))
.RemoveDuplicates Columns:=Array(23, 4), Header:=xlYes
End With
End Sub
VG
Yal