Private Sub Modul läuft nicht
05.04.2019 10:17:37
Memo
für die VBA Experten sicherlich ein Kinderspiel jedoch bin ich bei der Suche im www nicht auf eine Lösung gekommen.
Ich bekomme ein Private Sub code nicht zum laufen.
Das Problem tritt nur bei Prozeduren die mit "Privat Sub" anfangen auf.
Den folgenden Code füge ich in der jeweiligen Arbeitsblatt ein (via rechtsklick und einfügen).
Jedoch erscheint jedesmal das nervige Fenster mit "Makroname" einfügen/erstellen auf.
Kann ich denn ein Private Sub Code nicht überall einfügen?
Was mache ich denn verkehrt?
Danke für eure Tipps.
VG
Memo
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z
On Error GoTo Fehler
If Not Intersect(Range("B:B"), Target) Is Nothing Then
If Target.Row = 1 Then Exit Sub
For Each z In Target
If z.Offset(0, -1) "" Then
Application.EnableEvents = False
z.Offset(0, 1) = Format(Date, "DD.MM.YYYY")
z.Offset(0, 2) = Environ("Username")
End If
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