Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro

Forumthread: Makro

Makro
13.08.2019 05:20:36
Dieter
Guten morgen zusammen,
ich wollte mach nachfragen ob sowas möglich wäre.
Wir haben eine ganz einfache Liste . In der Spalte S schreiben wir was rein ( ja, nein oder ? ) Wenn jemand in diese Zelle was reinschreibt möchte ich in der Spalte T das Datum und in der Spalte U den Excel User drin stehen haben. Wenn jemand diese Zelle Überschreibt das so das Datum in V und User in X stehen.
Alles nach dem Speichern der Datei
Geht sowas ?
Danke schön
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro
13.08.2019 05:47:43
Hajo_Zi
Ja, das war nur die Frage. Du willst es ja selber ersdtellen.
Change Ereignis.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Makro
13.08.2019 09:27:08
Dieter
HALLO,
ich hoffe natürlich das mir jemand hilft.
Danke
Anzeige
AW: Makro
13.08.2019 09:50:34
Werner
Hallo Dieter,
der Code gehört ins Codemodul des Tabellenblattes, auf dem er sich auswirken soll.
Rechtsklick auf den Tabellenlbattreiter - Code anzeigen - Code rechts ins Codefenster kopieren 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim loSpalte As Long
If Target.Column  19 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Select Case UCase(Target)
Case "JA", "NEIN", "?"
If Target.Offset(, 1) = "" Then
Target.Offset(, 1) = Date
Target.Offset(, 2) = Application.UserName
Else
loSpalte = Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(, 1).Column
MsgBox loSpalte
Cells(Target.Row, loSpalte) = Date
Cells(Target.Row, loSpalte + 1) = Application.UserName
End If
Case Else
End Select
End Sub
Das Makro startet automatisch, sobald ins Spalte S ein Eintrag gemacht wird.
Gruß Werner
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige