Microsoft Excel

Herbers Excel/VBA-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

Beiträge aus dem Excel-Forum zum Thema "VBA, 4 Informationen in 4 Zellen schreiben"