Hallo nochmal,
ich möchte gern den Wert vom Filter in die Zelle N1 setzen.
Hatte dies
Selection.AutoFilter Field:=4, Criteria1:=wert
ActiveSheet.Range("N1").Select = wert
mfg Kurt P
Hallo Kurt
Das ist bestimmt nicht der ganze Code?
aber nimm mal das .select raus
Gruss hary
geht nicht
02.12.2008 08:56:12
Kurt
Guten Morgen Hary,
Du hast Recht aber geht trotzdem nicht.
Range("A5:M5").Select
If Not ActiveSheet.AutoFilterMode Then
Selection.AutoFilter
End If
Dim wert
Selection.AutoFilter Field:=4, Criteria1:=wert
ActiveSheet.Range("N1").Value = wert
ich möchte, egal welche Spalte ich ausgewählt habe, den Wert in die
Zelle N1 setzen.
Beispiel:
Wenn ich in der Spalte 4 das Dreieck aufklappe und ich 222 Filterung auswähle,
soll in N1 222 rein.
mfg Kurt P aus K