Herbers Excel-Forum - das Archiv

VBA, 4 Informationen in 4 Zellen schreiben


Betrifft: VBA, 4 Informationen in 4 Zellen schreiben
von: Frank

Geschrieben am: 11.09.2019 19:53:31
Hallo Leute,
ich benötige nochmal eure Hilfe.
Ich möchte gern das aufrufen einer Arbeitsmappe in einer Historie aufnehmen.
Es funktioniert auch soweit.
Ich möchte gern den Text "Letzte Speicherung durch:", den Usernamen, das Datum und die Zeit jeweils in einer Zelle stehen haben (Also 4 Zellen hinter einander).
Irgendwie bekomme ich das nicht hin.
Wer kann da helfen ?
Danke und Gruß
Frank
Private Sub Workbook_Open()
Dim wsk As Worksheet
Dim lastc As Long
Set wsk = Sheets("013_Letzte_Speicherung")
lastc = wsk.Cells(Rows.Count, 1).End(xlUp).Row + 1
'wsk.Cells(lastc, 1).Value = Environ("username") & Date & Time
wsk.Cells(lastc, 1).Value = ("Letzte Speicherung durch: ") & " " & Environ("Username") & ", " &  _
Date & ", " & Time
End Sub

Betrifft: AW: VBA, 4 Informationen in 4 Zellen schreiben
von: 1712552.html
Geschrieben am: 11.09.2019 20:06:33
Hi,
versuhs mal so:

wsk.Cells(lastc, 1).Value = ("Letzte Speicherung durch: ")
wsk.Cells(lastc,2).Value = Environ("Username")
wsk.Cells(lastc,3).Value = Date
wsk.Cells(lastc,4).Value = Time 
Gruß
Regina

Betrifft: AW: DANKE
von: 1712562.html
Geschrieben am: 11.09.2019 21:24:15
Regina Resch-Jansen,
man beißt sich an einigen dingen die Zähne aus, dieses war eines davon.
Ich bin so froh dieses Forum gefunden zu haben. Hier wird man immer wieder
durch ganz vielen netten Menschen geholfen.
Vielen Dank für die Hilfe
Danke und Gruß
Frank

Excel-Beispiele zum Thema "VBA, 4 Informationen in 4 Zellen schreiben"
Dateiheaderinformationen abrufen Dateiinformationen auslesen
Speicherinformationen ermitteln Makros in Abhängigkeit vom Zellennamen aufrufen
Zellen auf Kommentar überprüfen Spalten bedingt summieren und Zellen formatieren
Text aus Textbox in Zellen aufteilen Zellen vergleichen und markieren
Zählen formatierter Zellen Daten aus Textdatei gezielt in Zellen übernehmen