title image


Smiley Re: Workbook_change
Hallo Dieter,

versuch es mal hiermit:





      

Private Sub Worksheet_Change(ByVal Target As Range)



     Dim ws As Worksheet



     If Target.Address = "$A$6" Then

     

        For Each ws In ActiveWorkbook.Worksheets

            If ws.Name <> "Start" Then 'oder soll das Makro "change" auch für Blatt Start ausgeführt werden??

               Call Change(ws)

            End If

        Next ws

    End If



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0





Ich weiß zwar nicht, was dein Code Change machen soll, aber wenn du Änderungen in den Blättern vornehmen willst, muß du sie zunächst entsperren und danach wieder protecten oder besser du schützt sie mit UserInterFaceOnly :=True

[Edit]Ich vergaß:Meine Change- Prozedur sieht dann so aus:





      

Sub Change(ws As Worksheet)

    MsgBox ws.Name

    ws.Cells(1, 1).Value = "Ich war hier"

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0





[/Edit]


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: