Laufzeitfehler 1004

bernd roitzheim

unread,

Oct 30, 2000, 2:44:06 PM10/30/00

to

Wer kann helfen bei einem makro-Problem.

Wenn ich versuche, ein unter Excel 5 geschriebenes Programm unter Excel 2000 zum laufen zu bringen ,

erhalte ich die Fehlermeldung:

Laufzeitfehler 1004: Die methode ´Range´ für das Objekt ' _Global' ist fehlgeschlagen.

Starte ich dann "Debuggen" , erscheint in dem folgenden Makro , wohl die Fehlerzeile gelb markiert (unten rot!).

Wer kann mir helfen, da ich selbst keine Makroprogrammierung beherrsche?

Danke im voraus.

mfg

bernd

'Option Explizit

' NeuerBetriebNeueFeldStall Makro
' Erstellung eines neuen Betriebes
' Eingaben werden zurückgestellt
'
'
Dim x, xx, y

Sub Varber()
x = Sheets("2-Seiten-Feld-Stall-Programm").Range("Q1")
xx = Sheets("2-Seiten-Feld-Stall-Programm").Range("P1")
y = Sheets("2-Seiten-Feld-Stall-Programm").Range("R1")
End Sub

Sub NeuerBetrieb2SeitenFeldStall()
Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    ActiveWindow.SmallScroll Down:=0
    Range("I4;B8:B19;d22:d36;B40:B47;B49:D52;B62:B96;B98:D100").Select
    Selection.ClearContents
    Range("k8:l19").Select
    Selection.Copy Destination:=Range("c8:d19")
    Range("k40:k47").Select
    Selection.Copy Destination:=Range("c40:c47")
    Range("k49:M52").Select
    Selection.Copy Destination:=Range("E49:G52")
    Range("M53:M56").Select
    Selection.Copy Destination:=Range("D49:D52")
    Range("k62:l96").Select
    Selection.Copy Destination:=Range("c62:d96")
    Range("B37").Select
    ActiveCell.FormulaR1C1 = "30"
    Range("a8:a19;a22:a36;a40:a47;a49:a52;a62:a96;a98:a100").Select
    Selection.FormulaR1C1 = " "
    Range("B2").Select
    Selection.ClearContents
    Range("B3").Select
    Selection.Formula = "=Q74"
       Range("G3").Select
       Selection.ClearContents
    ActiveSheet.Unprotect
    Range("A103:J109").Select
    Selection.ClearContents
    Selection.Style = "Standard neu"
    ActiveCell.Rows("103:104").EntireRow.Select
    With Selection.Font
        .Size = 8
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
        Scenarios:=True
    Range("B3").Select
    'AktiveZelle.Z1S1Formel = "=SUMME(Z(59)S:Z(93)S)"
    ActiveSheet.Calculate
   'BlattListe("Text").Auswählen
    'Bereich("J4").Kopieren
    'Bereich("J3").Auswählen
    'Auswahl.InhalteEinfügen Einfügen:=xlWerte; Rechenoperation:=xlKein; _
        'LeerzellenÜberspringen:=Falsch; Transponieren:=Falsch
    'AktiveZelle.Formel = AktiveZelle + 1
    Sheets("2-Seiten-Feld-Stall-Programm").Select
    Range("B2").Select
    'MeldungsDlg "Nächste Eingabefelder mit TAB-Taste auswählen!"
    Call Key
    Beep
    MsgBox "Nach Eingabe der Anschrift die nächsten Eingabefelder (Betriebsgröße=B3 + COD Anr.=I3) mit der TAB-Taste auswählen!"
Call Varber
Call EGBV
End Sub

Sub egb1()
    Call Varber
    Sheets("2-Seiten-Feld-Stall-Programm").Select
    If xx >= 5 Then
     GoTo Fehlerbehandlung
    End If
    Range("P1").Select
    ActiveCell.Formula = ActiveCell + 1
    Range("A1").Select
    ActiveWindow.SmallScroll Down:=x
    GoTo subende
Fehlerbehandlung:
   Range("P1").Select
    ActiveCell.Formula = ActiveCell - 4
    Range("A1").Select
subende:

End Sub

Sub egbzur()
    Call Varber
    Sheets("2-Seiten-Feld-Stall-Programm").Select
    If xx <= 1 Then
     GoTo Fehlerbehandlung
    End If
    Range("P1").Select
    ActiveCell.Formula = ActiveCell - 1
    Range("A110").Select
    ActiveWindow.SmallScroll Up:=y
    GoTo subende
Fehlerbehandlung:
    Range("A1").Select
subende:
End Sub

Sub EGBV()
Application.OnKey "{BILDU}", "egb1"
Application.OnKey "{BILDO}", "egbzur"
End Sub

Sub EGBVZ()
Application.OnKey "{BILDU}"
Application.OnKey "{BILDO}"
End Sub

Stefan Onken

unread,

Oct 30, 2000, 3:40:07 PM10/30/00

to

hallo Bernd,

wahrscheinlich mußt du die Semikoli durch Kommata ersetzen.

ciao

stefan

bernd roitzheim schrieb in Nachricht <#76JgnqQAHA.151@cppssbbsa05>...

Hauke Konrad

unread,

Oct 30, 2000, 3:36:47 PM10/30/00

to

Hallo Bernd Roitzheim,

so müsste es klappen, ersetze einfach die Semicolon gegen Komma.

Range("I4,B8:B19,d22:d36,B40:B47,B49:D52,B62:B96,B98:D100").Select

--
und tschüss...
Konrad Hauke

----------------------------------------
----------------------------------------
----------------------------------------
vistit my homepage: http://www.xakte.de
----------------------------------------
----------------------------------------
----------------------------------------
"bernd roitzheim" <roit...@bigfoot.com> schrieb im Newsbeitrag
news:#76JgnqQAHA.151@cppssbbsa05...

bernd roitzheim

unread,

Oct 30, 2000, 4:07:53 PM10/30/00

to

Vielen Dank -hat funktioniert!

bernd roitzheim <roit...@bigfoot.com> schrieb in im Newsbeitrag: #76JgnqQAHA.151@cppssbbsa05...

Hendrik Werner

unread,

Oct 31, 2000, 1:59:22 AM10/31/00

to

Hallo,

Problem ist zwar gelöst, aber eine kleine Bitte fürs nächste mal. Bitte
kein HTML, kann nämlich nicht jeder (richtig) lesen.

Hendrik