Fehlermeldung



Excel-Version: 2000
nach unten

Betrifft: Fehlermeldung
von: Josi
Geschrieben am: 02.05.2002 - 16:07:21

Hallo zusammen bekam heute morgen folgenden Code aus dem Forum!!
Nur jetzt beim probieren kam immer an der stelle (R = "A6:AE16") die Fehlermeldung
Laufzeitfehler 91
Objektvariable oder with - Blockvariable nicht definiert

Sub Umkopieren
Dim n%, Zeile%, Gruppe%, R as Range
Sheets(1).Select
Zeile = 5
Gruppe = Cells(1,1)
Select Case Gruppe
Case 4
R = "A6:AE16"
'Case 5
'R = ...

'usw.

Case 12
R = "A17:AU69"
End select
For n = 1 To Cells(2,1)
Sheets(1).Select
Range(R).Copy
Sheets(Worksheets.Count).Select
Cells(Zeile,1).Select
ActiveSheet.Paste
Zeile = Range("A65536").End(xlUp).Row + 4
Next
End Sub


Woran kann das liegen

Gruß Josi

nach oben   nach unten

Re: Fehlermeldung
von: GerhardW
Geschrieben am: 02.05.2002 - 21:42:53

Hi Josi,

in der 2. Zeile muß stehen: R as String

Gruß Gerhard

 nach oben

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