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, 4299 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

2 Tabellen vergleichen und aus Zelle wert ausgeben

Frage von BatzmaMicrosoft Office5 Kommentare

Hallo da draußen! Ich weiß ich es gibt genügend Posts darüber jedoch bin ich nach mittlerweile 3h zu sauer ...

Neue Wissensbeiträge
Multimedia & Zubehör
AVM Fritz USB WLAN Sticks schneller einschalten
Tipp von NetzwerkDude vor 16 StundenMultimedia & Zubehör

Die AVM Fritz WLAN Sticks haben in der Firmware 2 Modis: Einmal als Massenspeicher und einmal als WLAN Netzwerkkarte ...

Windows Server

Windows Server Backup schlögt Fehl -Lösung 2008-2016

Tipp von BiGnoob vor 18 StundenWindows Server

Hi zusammen , ich möchte gerne einen Lösungstipp abgeben für folgenden fehler: lösung ist folgende:

Humor (lol)
Telekom vs. O2 - 3:2
Erfahrungsbericht von the-buccaneer vor 1 TagHumor (lol)3 Kommentare

Unglaublich aber wahr: Nachdem mein privater Anschluss am 19.04.18 auf VOIP und VDSL umgestellt wurde, hatte ich seitdem 1,5 ...

Batch & Shell

Windows 10 Heimnetzgruppe abgeschaft. Ein Script für einfache Netzwerk - Freigabe im Heimnetzwerk

Anleitung von treehe vor 1 TagBatch & Shell3 Kommentare

Anleitung für eine einfache Netzwerkfreigabe unter Windows 10 Wie weiter hab mal ein kleines CMD - Script gebastelt. Womit ...

Heiß diskutierte Inhalte
Netzwerke
IP-Adresse am zweiten Domänencontroller fest vergeben - Server verschwunden
gelöst Frage von DanielG1974Netzwerke26 Kommentare

Ich hab ein Problem, was ich bisher noch nicht erlebt habe Ich habe erfolgreich einen zweiten Server mit ActiveDirectory ...

Windows Tools
Virtueller Drucker gesucht (Schnittstelle: USB oder Seriell)
Frage von chrisButterflyWindows Tools19 Kommentare

Hi, ich suche einen virtuellen Drucker, den ich über eine USB oder serieller Schnittstelle ansprechen kann. Dieser Drucker soll ...

Windows Server
Windows Server 2012 - Update - Beim Booten bleibt der Server beim Windows Zeichen stehen
Frage von KeilbachWindows Server15 Kommentare

Hallo Zusammen, ich grüße euch, mein Name ist Michele. Ich bin hier ganz Neu - da ich einfach nicht ...

Firewall
Sophos SG 125 nicht mehr erreichbar
Frage von GwaihirFirewall14 Kommentare

Hallo zusammen, ausgerechnet über die Feiertage stimmt etwas mit meiner Firmen-Firewall nicht. Es ist eine Sophos SG 125 und ...