Benutzername per VBA in Zelle schreiben
25.05.2016 08:57:51
Niebann
ich habe eine Frage zu VBA.
Und so gestaltet sich meine Heraussforderung.
ich habe eine Tabelle bei der ich bereits wenn in einer Zelle der Spalte B einen Eintrag mache, dann wird in derselbe Zeile in der Spalte C das aktuelle Datum gesetzt.
Dies mache ich wiefolgt:
Aufruf in Tabelle1
Private Sub Worksheet_Change(ByVal target As Range)
If Not Application.Intersect(target, Range("B2:B2000")) Is Nothing Then
Call berechne
End If
End Sub
Modul 1
Sub berechne()
Dim intRow As Integer
For intRow = 2 To 2000
If Cells(intRow, 2).Value "" And Cells(intRow, 3).Value = "" Then
Cells(intRow, 3).Value = Date$
End If
Next intRow
End Sub
Jetzt möchte ich in der 4. Spalte (Spalte D) in der gleichen Zeile den Benutzer setzen, der den Eintrag verfasst hat.
Bisher habe ich mit dem Wert Environ("Username") arbeiten wollen.
Wie ich das jetzt einbinden kann schaffe ich mit meinen Kenntnissen leider nicht. Sämtliche Versuche gaben Kompilierungsfehler :-(
Vielen Dank für eure Unterstützung
Björn
Anzeige