Hallo,

ich bekomme immer einen Laufzeitfehler 9 bei folgendem Script:

Im ersten Tabellenblatt (Parameter) stelle ich verschieden Parameter ein, die mir Werte aus einer Datenbank in Blatt 2 (Generator) auswirft (nachdem ich die Werte der Datenbank habe errechnen lassen). Dieses Generatorblatt möchte ich dann in ein drittes Tabellenblatt kopieren (-> nur die Werte, ohne Formeln!), das Tabellenblatt umbenennen (in diesem Fall in R6) und dann wieder zurück in die Parameter-Ansicht, um den Prozess beliebig of zu wiederholen.

Leider erhalte ich immer in Zeile " Sheets("Generator").Select " (nach Calculate) den Laufzeitfehler angezeigt.

WER KANN MIR HELFEN ?????

Danke und Gruß

joerg

Makro12
' Makro am 23.07.03 von Joerg aufgezeichnet
'

'
Range("D3").Select
ActiveCell.FormulaR1C1 = "Region 6"
Application.Run Range("___H_ENTRY")
Range("D4").Select
Calculate
Sheets("Generator").Select
Sheets("Generator").Copy After:=Sheets(2)
Application.Run Range("WORKSPACE.REFRESH")
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Generator (2)").Select
Sheets("Generator (2)").Name = "R6"
Range("A4").Select
Application.CutCopyMode = False
Sheets("Parameter").Select
Application.Run Range("WORKSPACE.REFRESH")
Range("D3").Select