Herbers Excel-Forum - das Archiv
VBA, 4 Informationen in 4 Zellen schreiben
- VBA, 4 Informationen in 4 Zellen schreiben von Frank vom 11.09.2019 19:53:31
- AW: VBA, 4 Informationen in 4 Zellen schreiben - von Regina Resch-Jansen am 11.09.2019 20:06:33
- AW: DANKE - von Frank am 11.09.2019 21:24:15
Betrifft: VBA, 4 Informationen in 4 Zellen schreiben
von: Frank
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
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