AW: Excel vba wenn änderun in range in spalte benuter eintragen
07.09.2017 13:59:15
UweD
Hallo
das ginge so...
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Dim RNG As Range, Z, Sp As Integer
Set RNG = Range("B5:T2004")
Sp = 21 'Spalte U
If Not Intersect(RNG, Target) Is Nothing Then
For Each Z In Target
Application.EnableEvents = False
Cells(Target.Row, Sp) = Environ("Username")
Next
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Gruß UweD
Über Rückmeldungen würde ich mich freuen