Re: Range-Funktion
18.11.2002 14:48:36
Mario
Ich habe jetzt ein bischen verändert, aber es läuft trotzdem nicht. Ich werde jetzt mal ein bischen mehr Code veröffentlichen, vielleicht weis dann jemand einen rat.
Danke. Dim n As Long
Sheets("Rohmaterial").Select
Sheets("Rohmaterial").Range("A6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Rohmaterial").Range("A6:K7").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.Delete Shift:=xlUp
Sheets("Rohmaterial").Range("A6").Select
'Anzahl Zeilen zählen
n = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
' Tabelle ABC-Analyse nach Wertbestand sortieren
Sheets("Rohmaterial").Range("A6").Select
Selection.Sort Key1:=Sheets("Rohmaterial").Range("G6"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Einfügen der Formel für Wertmax
Sheets("Rohmaterial").Select
Sheets("Rohmaterial").Range("G6").Select
' Hier kommt jetzt der Laufzeitfehler 1004
Range(Cells(6, 7), Cells(n, 6)).Select
Selection.NumberFormat = "#,##0"
Sheets("Rohmaterial").Range("H6").Select
ActiveCell.FormulaR1C1 = "=RC[-3]*(RC[-1]/RC[-2])"