Hallo VBA´ler,
habe da mal eine Nachfrage :-)
Möchte gerne folgenden CODE etwas dynamisieren und zwar geht es um die Spalte bis!
....
Sheets("Eingaben").Columns("A:D").AdvancedFilter Action:=xlFilterCopy, _
....
Mit
Dim letzteSpalte As Long
letzteSpalte = Sheets("Eingaben").Cells(1, Columns.Count).End(xlToLeft).Column
erhalte ich zwar die letzte Spalte, aber als Zahl!
Habe dann versucht die Zeile so umzusetzten, aber ohne Erfolg!
...
Sheets("Eingaben").Range(Columns(1), Columns(letzteSpalte)).AdvancedFilter Action:=xlFilterCopy, _
...
Als Fehlermeldung gibt er mir folgendes: Laufzeitfehler 1004: Anwendungs- oder objktdefinierter Fehler
Was mach ich falsch?!
Kann mir da jemand weiterhelfen?!
Vielen Dank
Gruß Dirk