Nur aktives Tabellenblatt sortieren
02.02.2016 15:19:10
Burghard
ich habe hier ein Makro, dass im Prinzip funktioniert. Beim Öffnen der Arbeitsmappe schalte ich automatisch auf den aktuellen Monat ("01, 02, ...").
Jetzt bekomme ich eine Fehlermeldung, da das Makro die Tabellenblätter zählt. Kann jemand das Makro umschreiben, dass nur das jeweils aktive Tabellenblatt sortiert wird? Hier das Makro:
Sub Sortieren()
Dim lngI As Long
Dim wksT As Worksheet
Application.ScreenUpdating = False
ActiveSheet.Unprotect
'For lngI = 1 To 12 ' = alle Tabellenblätter
For lngI = 1 To 1 ' hier nur das aktive Tabellenblatt
Set wksT = ActiveWorkbook.Worksheets(lngI)
wksT.Range("A2:H83").Sort Key1:=wksT.Cells(2, 1), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
Next
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub
Grüße
Burghard