ich möchte gerne z.N. in Zelle B3 den Namen des Benutzers und das aktuelle Datum eintragen lassen, wenn er in einem definierten Bereich z.B. B4:B10 eine Änderung vornimmt, bzw. eine Zahl einträgt. Hat jemand eine Idee?
Vielen Dank Im Voraus
Karl
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B4:B10"), Target) Is Nothing Then Exit Sub
Range("B3").Value = Application.UserName & " " & Date
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("C5:G23"), Target) Is Nothing Then Exit Sub
Cells(3, Target.Column).Value = Application.UserName & " " & Date
End Sub
Um den Excel-Benutzernamen in einer Zelle automatisch einzutragen, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:
Öffne Excel und lade die entsprechende Arbeitsmappe.
Drücke ALT
+ F11
, um den VBA-Editor zu öffnen.
Doppelklicke auf das Tabellenblatt, in dem du den Benutzernamen eintragen möchtest (z.B. "Tabelle1").
Füge den folgenden Code in das Modul ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B4:B10"), Target) Is Nothing Then Exit Sub
Range("B3").Value = Application.UserName & " " & Date
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Teste die Funktion, indem du eine Änderung in den Zellen B4 bis B10 vornimmst. Der Excel-Benutzername und das aktuelle Datum sollten nun in Zelle B3 erscheinen.
Fehler: Der Benutzername wird nicht eingetragen.
Fehler: Das Datum erscheint nicht.
Date
-Funktion korrekt verwendet wird.Wenn du den Excel-Benutzernamen in einer Zelle für mehrere Spalten automatisch einfügen möchtest, kannst du den Code anpassen. Hier ist ein Beispiel für Spalten C bis G:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("C5:G23"), Target) Is Nothing Then Exit Sub
Cells(3, Target.Column).Value = Application.UserName & " " & Date
End Sub
Dieser Code trägt den Benutzernamen und das Datum in die dritte Zeile der betreffenden Spalte ein, wenn eine Änderung in den Zellen C5 bis G23 erfolgt.
Eintragen des Benutzernamens in Zelle B3:
Eintragen mehrerer Benutzernamen:
1. Wie kann ich den Benutzernamen in eine andere Zelle eintragen?
Du kannst einfach den Zellbezug in der Range
-Anweisung ändern, um den Benutzernamen in eine andere Zelle zu übertragen.
2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code sollte in Excel-Versionen ab 2007 funktionieren, solange die Makros aktiviert sind.
3. Was mache ich, wenn ich einen Fehler im VBA-Code habe?
Überprüfe den Code auf Syntaxfehler und stelle sicher, dass alle verwendeten Zellreferenzen korrekt sind.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen