Fehler in Code wg. Range
17.11.2003 10:46:41
Michael
Bei meinem nachfolgenden Code kommt es an der markierten Stelle zur Fehlermeldung:
Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden
Kann mir jemand weiterhelfen??
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Range("A3:E33").Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Workbooks.Open Filename:="G:\form\Kto_Mail.xls"
ActiveWindow.WindowState = xlMaximized
>>>>> Range("A3:E33").Select <<<<<<
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1:A1").Select
ActiveWorkbook.Save
End Sub
Gruss aus München