Hallo,
über eine Userform biete ich die Möglichkeit, neue Datensätze anzulegen. Diese will ich dann sortiert in die bestehende Tabelle einfügen. Bei mir zu Hause klappt das unter Excel aus Office 2003 ohne Probleme, aber wenn ich die Datei kopiere und am Arbeitsplatz unter Excel aus Office 2000 benutze, bekomme ich bei der Datenübernahme immer einen Laufzeitfehler 1004 und die vorletzte Anweisung (selection.sort) wird markiert. Kann mir jemand weiterhelfen?
Hier ist mein Code:
Application.ScreenUpdating = False
Sheets("Schulklassen").Rows("10").Select
Selection.INSERT shift:=xlDown
For iSpalte = 1 To 6
Cells(10, iSpalte).Interior.ColorIndex = 2
Next iSpalte
Sheets("Schulklassen").Cells(10, 1).Value = tbxNachnameNeu.Value
Sheets("Schulklassen").Cells(10, 2).Value = tbxVornameNeu.Value
Sheets("Schulklassen").Cells(10, 3).Value = tbxKlasseNeu.Value
Sheets("Schulklassen").Cells(10, 6).Value = "0"
Rows("7:" & Sheets("Schulklassen").UsedRange.Rows.Count).Select
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, _
Key2:=Range("B7"), Order2:=xlAscending, Key3:=Range("C7") _
, Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1 _
, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal _
, DataOption3:=xlSortNormal
Application.ScreenUpdating = True
m.f.g.
Harald