Anzeige
Archiv - Navigation
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehlermeldung Script

Fehlermeldung Script
Fabio
Hallo zusammen,
bei einem Script kommt leider eine Fehlermeldung. Der Kollege, der das "Makro" verfasst ist im Urlaub. Könnt Ihr mir sagen, was dieses "kleine" Script (ein Teil eines großen Scriptes) bewirkt? Wenn ich auf "debug" gehe, wird folgende Zeile angemerkt:
"Sheets(intSh).Rows("4:130").EntireRow.Hidden = True"
der ganze Block lautet:
Dim intSh As Integer
For intSh = 1 To ActiveWorkbook.Worksheets.Count
Sheets(intSh).Rows("4:130").EntireRow.Hidden = True
Rows("3:201").Select
Selection.EntireRow.Hidden = False
Next
Weiß jemand wie man den Fehler einfach bereinigen kann?
Danke!
Fabio

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Range("...") statt Rows("...") [Syntaxfehler!] orT
03.11.2011 12:47:46
Luc:-?
Gruß Luc :-?
AW: Range("...") statt Rows("...") [Syntaxfehler!] orT
06.11.2011 11:21:11
Fabio
Hallo,
Zeile habe ich geändert in:
Sheets(intSh).Range("4:130").EntireRange.Hidden = True
Leider immer noch eine Fehlermeldung :-(
Danke und Grüße
Dabio
Kommt mir alles recht seltsam vor, ...
06.11.2011 17:33:38
Luc:-?
…Dabio;
erst wdn d.Zeilen 4:130 ausgeblendet und dann gleich darauf wieder eingeblendet plus die darüber u.71 darunter. Außerdem wird unnötig selektiert. Eigentl ist nur die fette Zeile erforderl, aber wer weiß, was da noch „im Busch” ist → viel Ahnung scheint er ja nicht zu haben — dein Kollege!
Sheets(intSh).Range("4:130").EntireRow.Hidden = True
Range("3:201").EntireRow.Hidden = False

Gruß Luc :-?
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige