Problem mit "Private Sub Worksheet_Change" !
13.06.2005 16:16:32
Harald
ich hoffe, dass jemand für folgendes Problem eine Lösung hat:
Ich habe eine Excelvorlage erstellt, durch die andere User ein Formular erstellen und ausdrucken. Der User erhält jeweils eine neue leere Vorlage.
Durch diese Datei wird der User individuell mit Hilfe von Formeln und vielen If-Abfragen im "Private Sub Worksheet_Change(ByVal Target As Range)" geführt.
( Beispiel:
If Range("Prüfung_UserID") = 1 Then
Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten
Worksheets("BE-Deckblatt").Unprotect ("TEST") 'Blattschutz mit Passwort raus
Application.Goto Reference:=Range("A3"), Scroll:=True 'Zur Zeile scrollen
Range("Userid").Select 'Nächste Eingabezelle ).
Diese "Führung" durch die Formularvorlage funktioniert auch einwandfrei.
Außerdem benutze ich selber Makros zur Bearbeitung/Aktualisierung dieser Excel-Vorlage.
Nun zu meinem Problem:
Kann ich die "Automakros/Autoprüfung im "Private Sub Worksheet_Change(ByVal Target As Range)" ausschalten, bzw. umgehen, während ich mit meinen Bearbeitungsmakros die Vorlage aktualisiere ?
Wäre schön, wenn jemand eine Lösung hat.
Gruß, Harald G.
Des weiteren