ich habe eine (Blattgeschützte) Tabelle die per Userform befüllt wird. In der letzten Spalte wird dabei automatisch der Username und die Uhrzeit eingefügt.
Ein paar Leute bekommen aber das Passwort und sollen manuel Änderungen vornehmen dürfen. Dann soll die letzte Zeile entsprechend angepasst werden.
Das macht folgender Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim User As String
User = Environ("Username")
With Worksheets("Auftragsübersicht")
.Cells(Target.Row, 14) = User & " - " & Format(Now, "yyyy-mm-dd\/hh:mm")
' .Protect Password:="Flex!ble_Ladesäule"
End With
End Sub
Blöd ist jetzt, das dadurch die Performance des befüllens per Userform in den Keller geht, weil wohl nach jeder befüllten Zelle diese Funktion aufgerufen wird und nach anpassen der Zelle durch die Funktion gleich nochmal.Wie kann ich es hinbekommen, das die Funktion bei befüllen per Userform nicht anspringt?
Irgendwie per globale Variable oder so?
Für Tips wäre ich sehr dankbar.
Gruß Jörg