Ich habe mal was gefunden
08.12.2012 16:09:53
walter
Hallo Matze,
ich habe dieses Makro zum Sortieren gefunden.
Es klappt prima.
Kann man dies zum Filtern ändern?
Habe mal probiert aber leider nichts erreicht.
Public Sub Sortieren()
Dim Sortieren As String, lngSpalte As Long, z As Long, Mldg As Variant
Dim Adr, ww As String
Adr = ActiveCell.Address()
ww = Mid(Adr, 2, InStr(2, Adr, "$") - 2)
Mldg = "Geben Sie für die gewünschte Spalte A,B,C,... oder die Spaltennummer ein" _
& Chr(13) & Chr(13) & "Sie können die Spalte: " & ww _
& Chr(13) & Chr(13) & "übernehmen oder ändern !"
Sortieren = InputBox(Mldg, "Spaltensortierung", ww, 4500, 5000) '2000 von oben
On Error GoTo fehler
If Not IsNumeric(Sortieren) Then
lngSpalte = CLng(Columns(Sortieren).Column)
Else
lngSpalte = CLng(Sortieren)
End If
If 0 0 Then Err.Clear
MsgBox "Sie haben agebrochen . . ."
End If
End Sub
mfg walter mb