Sortierfehler
11.10.2004 12:29:22
Franz
ich stehe grad völlig auf dem Schlauch. Kriege einen Fehler beim Sortieren und weiß nicht warum, hier der code:
Sub BereichBezug_erweitern()
With Worksheets("Help")
With .Range("BezugBereich")
iHilf = .Row + .Rows.Count - 1
End With
With .Cells(iHilf - 1, 11)
.Copy
.Insert Shift:=xlDown
Application.CutCopyMode = False
End With
.Cells(iHilf, 11) = dlgBezugErweitern.txtNeuBezug
With .Range("BezugBereich")
.Sort Key1:=Range("K33"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End With
End Sub
Der Code klappt, wenn das Blatt "Help" aktiviert ist. Ist ein Blatt aktiv, wird zwar richtig eingefügt, aber beim anschließenden Sortieren kommt der Fehler 1004: " Der Sortierbezug ist ungültig. ... "
Was mach ich denn da noch falsch?
Vielen Dank schon mal für eure Hilfe und Grüße
Franz
Anzeige