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?"