Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA_Spaltenbereich dynamisieren

VBA_Spaltenbereich dynamisieren
Dirk
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA_Spaltenbereich dynamisieren
06.05.2010 12:52:13
Rudi
Hallo,
vllt mit
With Sheets("Eingaben")
.Range(.Columns(1), .Columns(letzteSpalte)).AdvancedFilter Action:=xlFilterCopy, ...
Ens With
Gruß
Rudi
Mit With... zum Erfolg! Danke Rudi! _owT
06.05.2010 13:03:38
Dirk
Gruß Dirk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige