Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1064to1068
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

Variable übenehmen ?

Variable übenehmen ?
07.04.2009 17:53:05
walli
Guten Abend Zusammen,
ich habe folgendes Makro:
'-------- Filter setzen ----------------
Private Sub CommandButton2_Click()
Dim SpNr
Range("B5").Select
SpNr = Cells(5, Columns.Count).End(xlToLeft).Column
If Not ActiveSheet.AutoFilterMode Then
Range("B5" & SpNr).AutoFilter
End If
Exit Sub
leider klappt es nicht, ich möchte die ermittelte Spalte für
Filter übernehmen.
mfg Walli

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

Betreff
Datum
Anwender
Anzeige
AW: Variable übenehmen ?
07.04.2009 20:33:54
Rudi
Hallo,
was ergibt denn B5 &SpNr?
versuche
Cells(5, SpNr).AutoFilter
Gruß
Rudi
Danke Rudi, habe auch mal..
07.04.2009 20:56:33
walli
Guten Abend Rudi,
danke für die Info.
Das Problem war wohl, ich habe die Nummer der Spalte ermittelt.
So habe ich es jetzt und es funktioniert :
Dim SpNr
Range("B5").Select
'SpNr = Cells(5, Columns.Count).End(xlToLeft).Column 'hier nur die Zahl
SpNr = Cells(5, Columns.Count).End(xlToLeft).Address(False, False)
If Not ActiveSheet.AutoFilterMode Then
Range("B5:" & SpNr).AutoFilter
End If
Exit Sub
Schönen Abend noch,
mfg Walli
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige