Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

syntaxfrage zu sheets(array... | Herbers Excel-Forum


Betrifft: syntaxfrage zu sheets(array... von: Jörg
Geschrieben am: 21.01.2010 19:35:01

Guten Abend zusammen

bei dieser Schreibweise lese ich "Index außerhalb des gültigen Bereichs" - was ist denn falsch daran?

Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets(Array("Name1", "Name2", "Name3", _
"Name4", "Name5"))
usw...

Grüße - Jörg

  

Betrifft: AW: syntaxfrage zu sheets(array... von: Nepumuk
Geschrieben am: 21.01.2010 21:24:09

Hallo Jörg,

na gibt's eines von den Sheets, mit dem von dir angegebenen Namen, nicht.

Gruß
Nepumuk


  

Betrifft: AW: syntaxfrage zu sheets(array... von: Jörg
Geschrieben am: 21.01.2010 22:54:06

Hi Nepumuk,
die heißen natürlich alle anders - aber die richtigrn Namen hab ich vom Recorder übernommen. Der wird hoffentlich richtig lesen :-)

Gruß Jörg


  

Betrifft: AW: syntaxfrage zu sheets(array... von: Nepumuk
Geschrieben am: 22.01.2010 08:07:08

Hallo Jörg,

zwischenzeitlich eins umbenannt?

Gruß
Nepumuk


  

Betrifft: nee, auch nichts umbenannt... von: Jörg
Geschrieben am: 22.01.2010 12:02:20

...so sieht der Code aus, Nepumuk - is noch nich fertich, aber wenn ich nich mal über die Schleife hinauskomm...

Grüße - Jörg

Sub aReparatur1()
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For Each ws In ThisWorkbook.Sheets(Array("Name1", "Name2",  _
        "Name3", "Name4"))
    Columns("AG:DE").EntireColumn.Hidden = False
    Rows("126:620").EntireRow.Hidden = False
Next
    Sheets("Formular").Select
    Range("B11").Select
    Application.EnableEvents = False
    Range("B11").Value = "?"
    Application.EnableEvents = True

    Application.EnableEvents = False
    Range("B11").Value = 1
    Application.EnableEvents = True
    Sheets("Name1").Activate
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "fertig"
End Sub



  

Betrifft: die Schleife macht wenig Sinn... von: Tino
Geschrieben am: 22.01.2010 14:45:29

Hallo,
, da in der Schreife nicht auf die Tabelle verwiesen wird.

For Each ws In ThisWorkbook.Sheets(Array("Name1", "Name2",  _
        "Name3", "Name4"))
   with ws
      .Columns("AG:DE").Hidden = False
      .Rows("126:620").Hidden = False
   end with
Next

Gruß Tino


  

Betrifft: ja, klar - danke... oT von: Jörg-HH
Geschrieben am: 23.01.2010 10:35:54