title image


Smiley Re: Workbook_change
Guten Morgen Worti und Frank,

jetzt wird es unübersichtlich für mich, aber da einer von euch eine Lösung findet, mache ich weiter.

Ja, der call soll auch im Blatt 'start' ausgeführt werden.



Sub change()

ActiveSheet.Unprotect "ich" 'neu eingefügt

Range("AB4").Select

Selection.Copy

Range("A4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False



Range("H57:I58").Select

Selection.Copy

Range("E1:F2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False



Range("wo1er").Select

Selection.Copy

Range("wo1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False



Range("wo2er").Select

Selection.Copy

Range("wo2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False



Range("wo3er").Select

Selection.Copy

Range("wo3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False



Range("wo4er").Select

Selection.Copy

Range("wo4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False



Range("wo5er").Select

Selection.Copy

Range("wo5").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False



Range("F8").Select

Calculate

ActiveSheet.Protect "ich" 'neu eingefügt

End Sub



Meine Vorstellung sieht dann so aus :



'neues Datum

Private Sub Worksheet_Change(ByVal Target As Range)

'ActiveSheet.unprotect "passwort" (ws) hier muesste der Schutz, falls nötig, aufgehoben werden

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) 'alle 12 Blätter

End If

Next ws

End If

'ActiveSheet.protect "passwort" (ws) hier der Schutz, falls nötig, wieder gesetzt werden

End Sub



Das Aufheben des Blattschutzes kann natürlich auch in dem Makro 'change' erfolgen,

habe ich schon entsprechend geändert.

Wenn ich deinen obigen code kompiliere, erhalte ich bei Call die Fehlermeldung :

"Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft"

Das Makro 'change' wird noch an anderer Stelle aufgerufen und funzt einwandfrei auch mit Passwortänderungen.

Ich hoffe, dass ihr damit was anfangen könnt, und eine Lösung findet.



Gruß

Dieter




Nobody isst perfekt, auch ich esse mit Messer und Gabel. DG

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: