Office: Makro? VBA? Sortieren geht nicht, brauche bitte Hilfe bei der Lösung

Einen wunderschönen "Guten Tag",

nachdem letzte Saison mein Problem ungelöst blieb muss es dieses Jahr was werden ...

Ich habe eine Excel 2003 Tabelle mit mehreren, identischen Tabellenblättern. Ich möchte jetzt ein Macro/VBA erstellen, das mir nur das jeweils aktive Tabellenblatt nach vorgegebenen Richtlinien sortiert. Trotzdem soll das Macro/VBA auf jedem Tabellenblatt die gleiche Arbeit machen, aber eben nicht 1x über alles.

Also konkret, Spalte C mit Nachnamen, D mit Vornamen, E mit Geb.datum und F "Infofeld". Von G4 bis BT63 personenspezifische Daten.

Ich möchte jetzt nichts anderes, als dass Excel beim Erweitern des Datensatzes (Spalte C bis F) das aktuelle Tabellenblatt über die Tastenkombi "Strg+S" dergestalt sortiert, dass der neue Datensatz nach Fam.namen (bei gleichem Fam.namen anschließend nach Vornamen) einsortiert wird. Der Datensatz dazu natürlich auch ;-)

Mein momentanes Makro sieht so aus:

Sub Sortieren()
'
' Sortieren Makro
' Makro am 16.08.2011 von TagWerk aufgezeichnet
'
' Tastenkombination: Strg+s
'
ActiveWindow.LargeScroll ToRight:=1
ActiveWindow.SmallScroll ToRight:=12
Range("B4:BT63").Select
Range("CM4").Activate
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.ScrollColumn = 71
ActiveWindow.ScrollColumn = 70
ActiveWindow.ScrollColumn = 69
ActiveWindow.ScrollColumn = 67
ActiveWindow.ScrollColumn = 65
ActiveWindow.ScrollColumn = 62
ActiveWindow.ScrollColumn = 59
ActiveWindow.ScrollColumn = 54
ActiveWindow.ScrollColumn = 49
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Range("A1").Select
End Sub

Und damit geht es nicht. Warum? Keine Ahnung. Als das Ding noch Makro hieß konnte man nachvollziehen, was da passiert - was soll ich diesem "ActiveWindow.ScrollColumn = 13" etc entnehmen???

Wenn jemand eine Lösung hat, ich würde mich freuen, wenn mein Ehrenamt diese Saison etwas flüssiger laufen würde :-)

Vielen Dank für Eure/Ihre Vorschläge, bei Bedarf kaann ich die Datei versenden, noch steht ja nichts drin ...

MfG Th. Blaaß

 

Hi,

meinst du das vielleicht so:

Code:

Sub Sortieren()
'
' Sortieren Makro
' Makro am 16.08.2011 von TagWerk aufgezeichnet
'
' Tastenkombination: Strg+s
'
   Range("B4:BT63").Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
End Sub

Bis später,
Karin