Hallo Forum,
ich folgenden Code:
<pre>Sub SystemInfo()
Dim twb As Workbook
Dim objFSO As Object
Dim objFile As Object
Dim str As String
Set twb = ThisWorkbook
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(twb.Path & "\" & twb.Name)
str = objFile.Path & Chr(10) & Chr(10)
str = str & "Erstellt am: " & objFile.DateCreated & Chr(10)
str = str & "Letzter Zugriff: " & objFile.DateLastAccessed & Chr(10)
str = str & "Zuletzt geändert: " & objFile.DateLastModified & Chr(10)
MsgBox str, vbInformation, "Systeminformationen"
End Sub</pre>
Nun möchte ich die Informationen nicht in einer msg Box ausgeben, sondern in Tabelle 1, Zelle A1 bis A3.
Ich kämpfe jetzt selber schon länger damit, bekomme es aber nicht hin.
Kann mich bitte jemand bei der Lösungsfindung unterstützen?
Vielen Dank im Voraus.
Viele Grüße
Ralf