Mit folgendem Makro versuche ich in einer Tabelle diie Spalte B zu sortieren. Leider ohne Erfolg Wo liegt hier bitte der Fehler?
zuerst markiere ich mit bereich die Daten (Spalte A bis H
Anschliessend möchte ich die Spalte B sortieren, nur leider funktioniert dies nicht
Sub MarkSortWOKE()
Dim bereich As Range
Dim wks8 As Worksheet
On Error Resume Next
Set wks8 = Workbooks("Positionsnummern mit Vorschlag RF-Zuordnung_050907.xls").Worksheets(" _
Tabelle1")
Set bereich = wks8.Range("A2:H" & wks8.Range("H65536").End(xlUp).Row)
bereich.Sort Key1:=wks8.Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Set bereich = Nothing
End Sub
Danke
Josef