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, 4313 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
Microsoft Office

Excel - Mehrere Zelleninhalte in einer Zelle ausgeben

gelöst Frage von Stefan007Microsoft Office4 Kommentare

Hallo Leute, habe mal ein Problem, an dem ich nicht weiterkomme. Es geht um eine Turniertabelle wie unten abgebildet. ...

Microsoft Office

Excel Nachfrage: Datum aus Spalte ausgeben

Frage von PronMasterMicrosoft Office2 Kommentare

Hallo Zusammen, ich habe folgende Aufgabe bekommen: Wir haben eine Excel in der in einer Spalte das Ablaufdatum von ...

Microsoft Office

MS Excel - Wert letzter Zelle mit Inhalt ausgeben

gelöst Frage von TermimanMicrosoft Office4 Kommentare

Hallo liebe Leute, ich bräuchte nochmals Unterstützung. Ich würde gerne aus einer Range in meiner Excel Tabelle immer den ...

Microsoft Office

Aktive Zelle mit festem Bezug multiplizieren und ausgeben (Formel)

gelöst Frage von mreskeMicrosoft Office7 Kommentare

Hallo, ich habe eine Liste von Liefermengen in einer Spalte. in der Zelle B2 steht der Preis. Wie könnte ...

Neue Wissensbeiträge
E-Mail
Email-Apps und Verhalten bei Pop3
Erfahrungsbericht von kfranzk vor 1 TagE-Mail7 Kommentare

Hallo Freunde, da mir mein diesbezüglicher Faden als gelöst markiert wurde, muss ich hier neu aufsetzen. Ich arbeite bewusst ...

Hyper-V

Optimiertes Ubuntu per Microsoft Hyper-V-Schnellerstellung verfügbar

Anleitung von Frank vor 1 TagHyper-V

Für Microsofts Virtualisierungssoftware Hyper-V ist ab sofort auch ein optimiertes Ubuntu 18.04.1 LTS verfügbar. In der "Hyper-V-Schnellerstellung" App, die ...

Sicherheits-Tools

Trend Micro WorryFree Business Security (WFBS) 10 - neuer Patch 1470 verfügbar

Tipp von VGem-e vor 1 TagSicherheits-Tools1 Kommentar

Servus, mal sehen, ob mit Patch 1470, zu finden unter dann die angeblich fehlerhafte Funktion, die unter W10 im ...

Server-Hardware

Lösung für Ersatz eines defekter Raid-Controllers

Anleitung von wellknown vor 2 TagenServer-Hardware4 Kommentare

Hallo, da ich nichts gefunden habe und selbst eine Lösung brauchte, hier eine kleine Anleitung für alle die vor ...

Heiß diskutierte Inhalte
Windows Server
Mit der alten Domäneprofil anmelden ohne Server
gelöst Frage von SyosseWindows Server37 Kommentare

Hallo Jungs Folgendes Szenario: Ich habe bei einem sehr kleinen Unternehmen (2Personen) den Server migriert, soweit hat alles geklappt. ...

Sicherheits-Tools
Virenprogramm lässt Programme nicht starten
Frage von SurferGirlSicherheits-Tools23 Kommentare

Hallo, ich bin neu hier, ich hoffe ich habe die richtige Rubrik gewählt. Falls nicht, tut es mir leid. ...

Windows Server
SQL Server Instanz (Eplan) auf WIN 2008 RC2 Server frisst RAM ohne Limit
Frage von derinderinderinWindows Server17 Kommentare

Hallo Zusammen, Wir haben hier einen Windows 2008 RC2 Server. Darauf läuft ein SQL Server Express 2014 Version 12.0.4232.0. ...

Windows 10
Best Practice für Schulungsräume
Frage von Sn0wFoxWindows 1016 Kommentare

Hallo, leider bin ich auch nach langer Suche nicht auf eine zufriedenstellende Nicht-Cloud-Lösung gestoßen und wollte mal Fragen ob ...