Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzen Bearbeiter in bestimmter Zelle speichern

Letzen Bearbeiter in bestimmter Zelle speichern
20.08.2018 10:37:45
Michael
Hallo liebes Forum,
die angefügte Tabelle soll dahingehend optimiert werden, dass in Zeile 22 zum jeweiligen Tag der letze User eingetragen wird, welcher Änderungen vorgenommen und gespeichert hat. Die Nutzer der Tabelle haben alle einen eigenen Windows Account. Im Dokument sind nur Eintragungen am jeweiligen Kalendertag zulässig, dieses Makro fehlt in der angefügten Datei.
https://www.herber.de/bbs/user/123426.xlsx
Vielen Dank
Michael

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzen Bearbeiter in bestimmter Zelle speichern
20.08.2018 10:41:32
Hajo_Zi
Hallo Michael,
das geht nicht, da eine XLSX Datei kein Makro enthalten kann.
Ich sehe keinen Grund eine Datei 2x zu speichern. Ich führe keine Liste unter welchem Dateinamen ich die Datei gespeichert habe.
environ("username")

AW: Letzen Bearbeiter in bestimmter Zelle speichern
20.08.2018 11:02:06
Michael
Hallo Hajo,
würde es denn jetzt gehen?
https://www.herber.de/bbs/user/123428.xlsm
Oder wolltest du mir sagen, dass es prinzipiell nicht geht, höchstens in einer einzigen Zelle die sich ändert?
Micha
AW: Letzen Bearbeiter in bestimmter Zelle speichern
20.08.2018 11:06:09
Hajo_Zi
Hallo Micha,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt in der gesamten Datei. 
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Range("A26") = Environ("Username")
Application.EnableEvents = True
End Sub

Gruß Hajo
Anzeige
AW: Letzen Bearbeiter in bestimmter Zelle speichern
20.08.2018 11:56:41
Michael
Hallo Hajo,
ich hatte eben einen Geistesblitz, so er denn funktioniert. Wenn ich das Makro 28-31x in die Arbeitsmappe einfüge und zum Systemtag oder festgelgten dd.mmm die entsprechende Zelle zuweise, müsste das "=username" doch gehen?
Bsp. 01.Apr - "B22"; 02.Apr - "D22"; 03.Apr. - "F22" usw.
Wäre etwas Arbeit, aber den Zweck erfüllen.
Ist der Ansatz gut, wäre es lieb mir den ersten und zweiten Tag zuzuarbeiten. Den Rest sollte ich schaffen.
Gruß
Micha
AW: Letzen Bearbeiter in bestimmter Zelle speichern
20.08.2018 12:05:36
Hajo_Zi
Range("B22") = Date-141
Gruß Hajo
Anzeige
AW: Letzen Bearbeiter in bestimmter Zelle speichern
21.08.2018 17:08:07
Michael
Hallo liebes Forum,
meine Idee war doch nicht so gut oder ich bin zu doof es umzusetzen, da ich eigentlich keine Ahnung von VBA habe.
In einer Spalte werden Eintragungen des Kassenbestandes des jeweiligen Tages von jedem Mitarbeiter eingetragen. Diese Eintragungen sind durch ein Makro von euch daraufhin beschränkt, dass sie nur an diesem Tag gemacht werden können.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Fehler
If ActiveSheet.Cells(2, Target.Column - 1)  Date And ActiveSheet.ProtectContents = True  _
Then
MsgBox "Datum unzulässig"
With Application
.EnableEvents = False
.Undo
End With
End If
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Schön wäre es, wenn nun in der Reihe 22 der jeweiligen Spalte der letze Bearbeiter auftaucht und an den vergangenen TAgen nichts ändert.
Lieben Gruß
Micha
Anzeige

307 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Syntax für benutzerdefiniertes Zellenformat
BF

Hallo Forum,
kennt jemand eine kurze Beschreibung im Internet zur Syntax des benutzerdefinierten Zellenformats (Zellen formatieren - Zahlen - Benutzerdefiniert - Typ)?
Ich möchte jetzt z.B. statt einer Null einen Strich anzeigen...
Eine allgemeine Anleitung wäre klasse, da ich schon...
04.10.2008 16:17:00
Thread-ID: 1014157
3 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Anzeige
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Benutzername Datum Zeit in Zelle
Michael

Hallo zusammen,
ich suche nach einem Makro, das einen Benutzernamen aus Tabelle1 Zelle B2, das aktuelle Datum (JJJJ.MM.TT) und die Zeit der Änderung Zeit (hh:mm:ss) bei Änderungen in einer Zeile der Spalten A bis AT in die Zelle AU2 usw. schreibt.
Die Suche hat mich leider nicht weiterg...
27.12.2008 19:52:00
Thread-ID: 1035469
15 Beiträge
Pfad der letzten Speicherung
Iro

Hallo Excel-Gemeinde,
ist es möglich den Ordner herauszufinden, in dem zuletzt von Excel etwas gespeichert wird?
Hintergrund ist, dass in genau diesem Ordner gespeichert wird, wenn ich mit dem Befehl
Spreadsheet.Export Filename:="Filename.xls", Action:=ssExportActionNone
ein...
07.01.2009 18:00:59
Thread-ID: 1037642
3 Beiträge
Benutzername Datum Zeit in Zelle
Micha

Hallo zusammen,
am 29.12.2008 hat mir Peter Feustel bei einem Problem geholfen. Klappte auch alles wunderbar.
Archiv: https://www.herber.de/forum/archiv/1032to1036/t1035469.htm
(vom Archiv aus kann man Beiträge wohl nicht mehr als "Beitrag offen" setzen?!)
Nun macht das Makro "S...
25.01.2009 19:19:50
Thread-ID: 1043657
9 Beiträge
VBA - Berechnung ohne Formeleintrag
kasi

Hallo liebe Excelprofis,
im Grunde bin ich jemand der lieber allein etwas herausfindet als jemanden um Hilfe zu bitten, aber ich weiß jetzt einfach nicht weiter :-(
Nach 6 Tagen rumforschen in allen möglichen Foren geb ich mich geschlagen und will nun doch hier fragend mein Glück versuc...
18.02.2009 02:59:00
Thread-ID: 1051668
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
2
7
10
7
14
2
8
3
5
6
4
4
8
5
10
2
3
11
2
1
2
5
8