Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Datum und User in verschiedenen Zellen ausgeben

Mitglied: viewpoint

viewpoint (Level 1) - Jetzt verbinden

12.11.2007, aktualisiert 18:10 Uhr, 4326 Aufrufe, 3 Kommentare

Hallo!

Ich will in einem Excel pro Zeile das Datum der Erstellung und das Kürzel des Users in unterschiedlichen Zellen ausgeben, wenn ein Mitarbeiter etwas in das Excel schreibt.
Das Codeschnipsel schaut bis jetzt so aus:

01.
Private Sub Worksheet_Change(ByVal Target As Range)
02.
Const Sp = "A"
03.
Dim R As Integer, strUser As String
04.
R = Target.Row
05.
If R >= 2 Then
06.
    
07.
strUser = CreateObject("WScript.Network").UserName
08.
Const Sp = "P"
09.
    Cells(Target.Row, Sp).Value = strUser & _
10.
    " - " & _
11.
    Format(Now, "DD.MM.YYYY") & _
12.
    ""
13.
End If
14.
End Sub
Hier sollte also in Spalte "A" das Datum kommen, und in Spalte "P" das Kürzel mit dem der Mitarbeiter im Windows angemeldet ist.

Folgender Code macht das bereits, aber Datum und Kürzel in einer Zelle:

01.
Private Sub Worksheet_Change(ByVal Target As Range)
02.
Const Sp = "A"
03.
Dim R As Integer, strUser As String
04.
R = Target.Row
05.
If R >= 2 Then
06.
    strUser = CreateObject("WScript.Network").UserName
07.
 
08.
    Cells(Target.Row, Sp).Value = strUser & _
09.
    " - " & _
10.
    Format(Now, "DD.MM.YYYY") & _
11.
    ""
12.
    
13.
End If
14.
End Sub
Besten Dank für Tipps oder Lösungen!
Mitglied: bastla
12.11.2007 um 15:43 Uhr
Hallo viewpoint!

Sollte so gehen:
01.
Private Sub Worksheet_Change(ByVal Target As Range)
02.
Const SpD = "A"
03.
Const SpU = "P"
04.
Dim R As Integer, strUser As String
05.
R = Target.Row
06.
If R >= 2 Then
07.
    Application.EnableEvents = False
08.
    strUser = CreateObject("WScript.Network").UserName
09.
    Cells(R, SpD).Value = Format(Now, "DD.MM.YYYY")
10.
    Cells(R, SpU).Value = strUser
11.
    Application.EnableEvents = True
12.
End If
13.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: viewpoint
12.11.2007 um 18:05 Uhr
Wieder einmal genial - Besten Dank!
Bitte warten ..
Mitglied: bastla
12.11.2007 um 18:10 Uhr
Hallo viewpoint!

Freut mich, wenn's passt.

Magst Du noch den Beitrag als erledigt kennzeichnen (und den seinerzeitigen auch)?

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Windows Userverwaltung

AD User wechsel Gruppe automatisch nach Datum

gelöst Frage von TutterWindows Userverwaltung4 Kommentare

Hallo an alle ich suche eine Möglichkeit eine User zu einem Stichtag automatisch die Gruppe wechseln zu lassen im ...

PHP

Datum Rechner

gelöst Frage von michi-ffmPHP6 Kommentare

Hey Leute, evtl kann mir jemand helfen und mir folgenden Skript erklären und sagen wie ich das Jahr dazubekommen ...

Windows Server

Vorgängerversionen (Schattenkopien) Windows Server 2016 - Datum wird nicht angezeigt beim User

Frage von sandronevesWindows Server6 Kommentare

Hallo zusammen, ich habe da mal eine Frage zu den Schattenkopien. Ich habe einen Fileserver mit Windows Server 2016 ...

Microsoft

Mit Powershell Datum aus Ordnername als Datum extrahieren

gelöst Frage von YotYotMicrosoft11 Kommentare

Moin! ja, ich habe bereits gesucht und auch ein paar Fortschritte gemacht, da ich aber außerhalb von Exchange gerade ...

Neue Wissensbeiträge
iOS
WatchChat für Whatsapp
Tipp von Criemo vor 1 TagiOS3 Kommentare

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor !!!
Tipp von Criemo vor 2 TageniOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Off Topic
Avengers 4: Endgame - Erster Trailer
Information von Frank vor 4 TagenOff Topic2 Kommentare

Ich weiß es ist Off Topic, aber ich freue mich auf diesen Film und vielleicht geht es anderen hier ...

Webbrowser
Microsoft bestätigt Edge mit Chromium-Kern
Information von Frank vor 4 TagenWebbrowser5 Kommentare

Microsoft hat nun in seinem Blog bestätigt, dass die nächste Edge Version kein EdgeHTML mehr für die Darstellung benutzen ...

Heiß diskutierte Inhalte
Windows Netzwerk
Kerio. Kann keine Mails empfangen aber senden. Wer ist schuld. Kerio oder Windows domäne?
gelöst Frage von frosch2Windows Netzwerk33 Kommentare

Hallo, es existiert ein Problem bei uns mit dem mailen. Alle bestehenden Nutzer können mailen. Raus wie rein. Neuen ...

LAN, WAN, Wireless
WLAN und Ausmessung - Eine Glaubensfrage?
Frage von ptr2brainLAN, WAN, Wireless23 Kommentare

Liebe Experten, als Sys-Admin habe ich mir schon öfter die Frage gestellt, ob es sich beim Thema WLAN und ...

Hosting & Housing
VMware VM mit über 1TB RAM für S4HANA
Frage von Leo-leHosting & Housing22 Kommentare

Hallo zusammen, wer hat Erfahrng und kann mir einen Tipp zum sizing von S4HANA Systemen geben? Wir möchten, zunächst ...

Virtualisierung
Gebrauchte Server Hardware als Virtualisierungs-"Spielwiese"?
Frage von NixVerstehenVirtualisierung19 Kommentare

Einen wunderschönen guten Morgen zusammen, ich möchte mich gerne etwas tiefer mit dem Thema Virtualisierung beschäftigen und dazu ein ...