Microsoft Excel

Herbers Excel/VBA-Archiv

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

With Sheets über mehrere Blätter ? | Herbers Excel-Forum


Betrifft: With Sheets über mehrere Blätter ? von: Stefan K.
Geschrieben am: 05.01.2012 08:56:34

Guten Morgen,

ich wollte folgenden Code über mehrere Blätter ausführen:
With Sheets("2011")
.Protect userinterfaceonly:=True
End With

Nun möchte ich den Code nicht für jede Blatt wiederholen und dachte es geht auch so:
With Sheets(Array("2011", "2012"))
.Protect userinterfaceonly:=True
End With
Aber das funktioniert nicht, es kommt die Fehlermeldung, dass Excel das nicht unterstützt. Und eine Schleife wollte ich eigentlich vermeiden. Habt Ihr da eine Idee für mich ?

Noch etwas. Kann ich mit VBA das Blatt des aktuellen Jahres selektieren ? Also etwa so Sheets("aktuelles Jahr").selekt was in diesem Fall ja 2012 wäre.

Vielen Dank für Eure Unterstützung.
Gruß
Stefan

  

Betrifft: AW: With Sheets über mehrere Blätter ? von: hary
Geschrieben am: 05.01.2012 09:06:41

Hallo Stefan

Dim mySheets, oSH As Object
Set mySheets = Sheets(Array("2011", "2012"))
For Each oSH In mySheets
 oSH.Protect userinterfaceonly:=True
Next oSH
Sheets("2012").Activate

gruss hary


  

Betrifft: Blatt - aktuelles Jahr - aktivieren ... von: Matthias L
Geschrieben am: 05.01.2012 09:34:36

Hallo

Kann ich mit VBA das Blatt des aktuellen Jahres selektieren

Sub ZumBlattJahrHeute()
On Error Resume Next
Dim MeinJahr$
MeinJahr = Year(Now)
Worksheets(MeinJahr).Activate
End Sub



oder ...
Sub ZumBlattJahrHeute()
On Error GoTo ErrExit
Dim MeinJahr$
MeinJahr = Year(Now)
Worksheets(MeinJahr).Activate
Exit Sub
ErrExit:
MsgBox "Das Blatt " & MeinJahr & " existiert nicht"
End Sub
Gruß Matthias


  

Betrifft: Dank an Harry und Matthias von: Stefan K.
Geschrieben am: 05.01.2012 13:50:21


Vielen Dank für die Inspirationen. Ich werde das so implementieren.

Gruß
Stefan


Beiträge aus den Excel-Beispielen zum Thema "With Sheets über mehrere Blätter ?"