Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel vba wenn änderun in range in spalte benuter eintragen

Forumthread: Excel vba wenn änderun in range in spalte benuter eintragen

Excel vba wenn änderun in range in spalte benuter eintragen
07.09.2017 13:37:25
Gerzen
Guten Tag habe folgendes problem und schon euer Forum auf den kopf gestellt.
wenn im bereich B5:T2004 änderungen erfolgen soll in der geänderten zeile der benutzername(Netzwerk) in Spalte U eingetragen werden.
das ganze nicht beim speichern, sondern nach erfolgter Änderung.
wär super wenn ihr ne Lösung parat habt.
mfg waldemar
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
so
07.09.2017 13:53:58
Peter
Hallo,
hier ein Code:
(kommt in Code von Tabellenblatt wo das ganze ausgeführt werden soll)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 And Target.Column  4 And Target.Row 

AW: so
07.09.2017 13:57:22
Gerzen
vielen dank;) schneller als der pizzabote top
Anzeige
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
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige