Gibt Fehlermeldung?

Bild

Betrifft: Gibt Fehlermeldung?
von: roman
Geschrieben am: 14.03.2005 14:28:53


Sub Tornagen_Einfügen()
'
' Tonnagen_Einfügen Makro
' Fügt die Tornagen und die Lieferanten in die Berechnung ein
'
Application.Calculation = xlCalculationManual
Sheets("Tonnagen-Schrott").Range("Q1:W30000").ClearContents
Sheets("SAPDATEN").Range("C:C,F:I").Copy Sheets("Tonnagen-Schrott").Range("Q1")
Sheets("SAPDATEN").Range("A:B").Copy Sheets("Tonnagen-Schrott").Range("V1")
Sheets("Tonnagen-Schrott").Select
Range("A1:E42").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlDescending, Header:=xlGuess, _
1547,91OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.Calculation = xlCalculationAutomatic
'
End Sub

Die Fehlermeldung kommt bei der Zeile wo es anfängt zu sortieren: Selection.Sort usw.
wie kann ich es denn abändern, daß es mir die Spalte C2 sortiert und es keine Fehlermeldung gibt?
gruß
roman
Bild

Betrifft: AW: Gibt Fehlermeldung?
von: IngoG
Geschrieben am: 14.03.2005 14:37:23
Hallo Roman,
ohne geanu draufgeschaut zu haben:
dein Range läuft ab zeile 1 und dein Key steht in zeile 2, könnte sein, dass das zu probs führt...
Gruß Ingo
Bild

Betrifft: AW: Gibt Fehlermeldung?
von: marcl
Geschrieben am: 14.03.2005 14:42:53

Sub Tornagen_Einfügen()
'
' Tonnagen_Einfügen Makro
' Fügt die Tornagen und die Lieferanten in die Berechnung ein
'
Application.Calculation = xlCalculationManual
Sheets("Tonnagen-Schrott").Range("Q1:W30000").ClearContents
Sheets("SAPDATEN").Range("C:C,F:I").Copy Sheets("Tonnagen-Schrott").Range("Q1")
Sheets("SAPDATEN").Range("A:B").Copy Sheets("Tonnagen-Schrott").Range("V1")
Sheets("Tonnagen-Schrott").Select
Range("A1:E42").Sort Key1:=Range("C2"), Order1:=xlDescending
Application.Calculation = xlCalculationAutomatic

vielleicht so...
Gruß
marcl
Bild

Betrifft: AW: Gibt Fehlermeldung?
von: roman
Geschrieben am: 14.03.2005 14:49:23
funktioniert,
prima,
vielen dank
gruß
roman
Bild

Betrifft: AW: Gibt Fehlermeldung?
von: Martin Beck
Geschrieben am: 14.03.2005 14:43:04
Hallo Roman,
eigentlich dürfte es wg.
1547,91OrderCustom
gar nicht laufen.
Gruß
Martin Beck
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Gibt Fehlermeldung?"