Microsoft Excel

Herbers Excel/VBA-Archiv

For each Problem | Herbers Excel-Forum


Betrifft: For each Problem von: Gianni Cancelli
Geschrieben am: 15.12.2009 16:21:54

Hallo

Folgendes Problem bringt mich zur Verzweiflung:

Sub BEinAlle() 'Blattschutz für alle Blätter der aktiven Arbeitsmappe

Dim wks as Worksheet
For each wks in Worksheets
wks.protect "Passwort"
next wks
End Sub

OK. Funktioniert. Aber:
Sub RT25() 'Auf jedem Arbeitsblatt der aktuell aktivierten Tabelle Zelle T25 auswählen

Dim wks as Worksheet
For each wks in Worksheets
wks.range("T25").select
next wks
End Sub

wird nur das aktuelle Arbeitsblatt markiert. Wer kann mir helfen?

  

Betrifft: AW: For each Problem von: Björn B.
Geschrieben am: 15.12.2009 16:25:33

Hallo,

erst das Blatt aktivieren, dann die Range.

Gruß
Björn B.

Sub RT25() 'Auf jedem Arbeitsblatt der aktuell aktivierten Tabelle Zelle T25 auswählen

Dim wks as Worksheet
For each wks in Worksheets
wks.Activate
wks.range("T25").select
next wks
End Sub



  

Betrifft: AW: For each Problem von: Gianni Cancelli
Geschrieben am: 15.12.2009 16:39:22

Hat funktioniert. Danke Euch!

Gruss
Gianni


  

Betrifft: Erst Blatt aktivieren, dann Zelle Selektieren von: NoNet
Geschrieben am: 15.12.2009 16:31:42

Hallo Gianni,

so funktioniert das :

Sub RT25() 'Auf jedem Arbeitsblatt der aktuell aktivierten Tabelle Zelle T25 auswählen
 
 Dim wks As Worksheet
 For Each wks In Worksheets
     wks.Activate
     Range("T25").Select
 Next wks
End Sub
Gruß, NoNet


Beiträge aus den Excel-Beispielen zum Thema "For each Problem"