Herbers Excel-Forum - das Archiv

Makro von Makrorecorder funktioniert nicht?

Bild

Betrifft: Makro von Makrorecorder funktioniert nicht?
von: Sascha

Geschrieben am: 22.04.2005 08:38:59
Hallo,
habe mit dem Macrorecorder ein Macro aufgezeichnet, aber das funktioniert nicht. Bekomme in der zweiten Zeile folgende Fehlermeldung:
Laufzeitfehler 1004
Die select-Methode des Range-Objects konnte nicht ausgeführt werden.
Kann mir jemand helfen?
Ich möchte eigendlich nur eine paar Zeilen ausblenden und dan einen Teil meiner Tabelle Drucken.
Danke im voraus
Sascha
Das Macro:
Sheets("Produktion").Select
Rows("7:14").Select
Selection.EntireRow.Hidden = True
Range("B2:O29").Select
Range("O29").Activate
ActiveSheet.PageSetup.PrintArea = "$B$2:$O$29"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll ToRight:=15
ActiveWindow.SmallScroll Down:=16
Range("B2:AF51").Select
Range("AB51").Activate
ActiveSheet.PageSetup.PrintArea = "$B$2:$AF$51"
Cells.Select
Selection.EntireRow.Hidden = False
Range("B2:D2").Select
Sheets("Druck").Select
Range("A1").Select
Bild

Betrifft: AW: Makro von Makrorecorder funktioniert nicht?
von: Pascal
Geschrieben am: 22.04.2005 09:02:38
Hi,
ist vielleicht eine der Zeilen 7-14 bereits ausgeblendet?
Ansonsten einfach anstatt rows("w:14").select
for i=7 to 14
rows(i).hidden=true 'blendet die Zielen aus
next i
einfügen.
Gruß Pascal
Bild

Betrifft: Zellen immer noch eingeblendet
von: Sas
Geschrieben am: 22.04.2005 09:11:19
Hallo,
eine Fehlermeldung bekomme ich nicht mehr aber die Zeilen sind auch nicht ausgeblendet.
Hast Du noch eine andere Idee?
Danke
Gruß Sascha
Bild

Betrifft: AW: Makro von Makrorecorder funktioniert nicht?
von: Volker

Geschrieben am: 22.04.2005 09:46:37
Hallo Sascha,
obwohl Deine Aufzeichnung bei mir 1 zu 1 funzt, laß mal das Selektieren weg:
Sheets(1).Rows("7:14").EntireRow.Hidden = True
oder, wenn die Seite unbedingt angezeigt werden muß:
Sheets(1).Activate
ActiveSheet.Rows("7:14").EntireRow.Hidden = True
Ist allerdings schon komisch. Ich bin schon mal dran verzweifelt, dass so was OHNE vorheriges Selektieren nicht geht, aber mit selektieren eigentlich immer.
Gruß
Volker
Bild

Betrifft: AW: Makro von Makrorecorder funktioniert nicht?
von: Galenzo
Geschrieben am: 22.04.2005 09:39:09
Sheets("Produktion").Rows("7:14").EntireRow.Hidden = True
Viel Erfolg!
Bild

Betrifft: Problem muss woanders liegen.
von: Pascal

Geschrieben am: 22.04.2005 09:51:42
Hi,
ich habe alle Makros ausprobiert und sie funktionieren eigentlich alle - inkl. Deinem alten. Das Problem muss also woanders liegen.
Ich liste mal auf, was mir einfällt, was ich aber nicht getestet habe.
- Blattschutz?
- Grafiken in den Zeilen
- Filter in den Zeilen
- Zusammengefasste Zellen
Vielleicht trifft ja etwas auf Deine Tabelle zu, ansonsten einfach mal das Blatt hochladen.
Grüße,
Pascal
 Bild
Excel-Beispiele zum Thema "Makro von Makrorecorder funktioniert nicht?"
Letzte nichtleere Zelle ermitteln Anwendername im Kommentar nicht fettgedruckt
Nichtnumerische Eingaben verhindern Wenn kein Eintrag, UserForm nicht schließen
Zufallszahlen generieren, die sich nicht wiederholen Alle nichtnumerischen Werte auf Null setzen
Nichtnumerische Eingaben in TextBox verhindern Alle nichtleeren Zeilen markieren
Datei kopieren, wenn noch nicht vorhanden Schriftart in Zeilen wechselweise fett/nicht-fett formatieren