Moin zusammen,
von einem Kollegen bekomme ich gelegentlich Dateien, die
ich auf meinem Rechner nicht öffnen kann.
Excel (97 / 8.0e) meckert beim Öffnen „Laufzeitfehler 91“ an.
„Objektvariable oder With-Blockvariable nicht festgelegt“.
Der Excel-Bildschirm bleibt grau, so als hätte ich keine
Datei geöffnet. Beim Schließen von Excel fragt er jedoch
nach, ob die Datei gespeichert werden soll.
Der Code sieht so aus:
Sub aufnull()
ActiveCell.Range(„A1:AB1“).Select
Selection.Copy
Application.Goto Reference:=„R2C2“
Application.Goto Reference:=„R8C2“
ActiveCell.Range(„A1:A30“).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.LargeScroll Down:=-1
ActiveCell.Offset(11, 0).Range(„A1“).Select
ActiveWindow.LargeScroll Down:=-1
ActiveCell.Offset(-12, 0).Range(„A1“).Select
ActiveWindow.LargeScroll Down:=-1
ActiveCell.Select
End Sub
Die erste Zeile --> ActiveCell.Range(„A1:AB1“).Select
meckert er beim Testen an.
Hat jemand eine Idee?
Gruß und danke
Rolf
Hi Rolf,
Excel (97 / 8.0e) meckert beim Öffnen „Laufzeitfehler 91“ an.
„Objektvariable oder With-Blockvariable nicht festgelegt“.
In welcher Version wurde die Datei erstellt?
Also wenn man den Code in XL97 startet läuft er ohne Fehlermeldung
Sub aufnull()
ActiveCell.Range(„A1:AB1“).Select
Selection.Copy
Application.Goto Reference:=„R2C2“
Application.Goto Reference:=„R8C2“
ActiveCell.Range(„A1:A30“).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.LargeScroll Down:=-1
ActiveCell.Offset(11, 0).Range(„A1“).Select
ActiveWindow.LargeScroll Down:=-1
ActiveCell.Offset(-12, 0).Range(„A1“).Select
ActiveWindow.LargeScroll Down:=-1
ActiveCell.Select
End Sub
*aargs*, was für 'ne Rumhüpferei. Je nach aktiver Zelle bei Programmstart kopiert er verschiedene Bereiche, ist das so gewollt?
Wenn nicht, so:
Sub aufnull2()
Range(„A1:AB1“).Copy Destination:=Range(„B8:B37“)
Range(„B7“).Select
End Sub
Die erste Zeile --> ActiveCell.Range(„A1:AB1“).Select
meckert er beim Testen an.
wie gesagt, mit in XL97 erstelltem Code klappt’s.
Hat jemand eine Idee?
Kannst du Makros deaktivieren, dann geheime Daten löschen und ab Zeile 38 sowieso alles und die Datei hochladen bei rapidshare o.ä.?
Gruß
Reinhard
Hallo Reinhard,
vielen Dank erstmal für die schnelle Unterstützung.
Excel (97 / 8.0e) meckert beim Öffnen „Laufzeitfehler 91“ an.
„Objektvariable oder With-Blockvariable nicht festgelegt“.
In welcher Version wurde die Datei erstellt?
Also wenn man den Code in XL97 startet läuft er ohne
Fehlermeldung
Kann ich nicht sagen, der Kollege ist z.Zt. krank
Sub aufnull()
ActiveCell.Range(„A1:AB1“).Select
Selection.Copy
Application.Goto Reference:=„R2C2“
Application.Goto Reference:=„R8C2“
ActiveCell.Range(„A1:A30“).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.LargeScroll Down:=-1
ActiveCell.Offset(11, 0).Range(„A1“).Select
ActiveWindow.LargeScroll Down:=-1
ActiveCell.Offset(-12, 0).Range(„A1“).Select
ActiveWindow.LargeScroll Down:=-1
ActiveCell.Select
End Sub
*aargs*, was für 'ne Rumhüpferei. Je nach aktiver Zelle bei
Programmstart kopiert er verschiedene Bereiche, ist das so
gewollt?
vermutlich nicht, der Code ist aufgezeichet.
Wenn nicht, so:
Sub aufnull2()
Range(„A1:AB1“).Copy Destination:=Range(„B8:B37“)
Range(„B7“).Select
End Sub
Wenn ich den vorhandenen gegen Deinen Code austausche,
bleibt der Bildschirm auch grau, was mich vermuten läßt.
dass es an etwas anderem liegt.
Die erste Zeile --> ActiveCell.Range(„A1:AB1“).Select
meckert er beim Testen an.
wie gesagt, mit in XL97 erstelltem Code klappt’s.
eben nicht, ich hab ja 97.
Kannst du Makros deaktivieren, dann geheime Daten löschen und
ab Zeile 38 sowieso alles und die Datei hochladen bei
rapidshare o.ä.?
Rapidshare ist wohl z.Zt.voll, geht das noch woanders?
Gruß
Rolf
Rapidshare ist wohl z.Zt.voll, geht das noch woanders?
Hallo Rolf
ja, häuft sich in letzter Zeit, vielleicht ist das auch nur ein Trick um Leute zu bewegen dort Abos zu bestellen, da können sie bei mir aber lange warten 
Ich kenne da nur noch
http://www.badango.com
Gruß
Reinhard
Hallo Reinhard,
Rapidshare ist wohl z.Zt.voll, geht das noch woanders?
Ich kenne da nur noch
http://www.badango.com
Badango scheint auch „out of order zu sein“.
So wichtig isset aber nicht, daß wir da lange mit rumeiern müßten.
Danke erstmal bis hierher.
Guß
Rolf
Nimm doch irgentein kostenlosen webseiten anbieter und lad es da hoch.
z.b. http://www.100webspace.com
100MB sollten doch reichen.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
nochmal Danke
Nimm doch irgentein kostenlosen webseiten anbieter und lad es
da hoch.
z.b. http://www.100webspace.com
100MB sollten doch reichen.
Hallo RakonDark,
den kannte ich noch nicht - danke
Gruß
Rolf