dieses Makro klappt einwandfrei.
Jedoch nicht in der jetzigen, WIESO ?
Hatte ich auch übers Forum vor langer Zeit geladen.
"Laufzeitfehler 424"
Objekt erforderlich
Public Sub Sortieren()
Dim Sortieren As String, lngSpalte As Long, z As Long, Mldg As Variant
Dim ww 'spalte ermitteln
ww = Application.Substitute(ActiveCell.Address(0, 0), ActiveCell.Row, "")
'Mldg = "Geben Sie für die gewünschte Spalte A,B,C,... oder die Spaltennummer ein"
'sortieren = InputBox(Mldg, "Spaltensortierung", "B", 4500, 4000) '2000 von oben
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 Kurt K