Werte in nächste freie Zellen von Datei schreiben
19.03.2017 20:15:44
Datei
ich möchte gerne per VBA die Werte von 3 Variablen in eine andere (zu diesem Zeitpunkt geschlossene) Excel-Datei schreiben.
Grundsätzlich funktioniert mein Code, da ich jedoch ziemlich neu bei VBA bin, habe ich noch folgende Fragen bzw. Probleme:
1) Wie kann ich in den Spalten A bis C der Zieldatei in die jeweils nächste freie Zelle schreiben (anstelle die Zellen fix im Code zu definieren, wie hier) ?
2) Wenn die Variable TimeStamp neben dem Datum auch eine Uhrzeit enthalten soll, verwende ich dann trotzdem Dim As Date ?
3) Gibt es hier sonst irgendwas, was ich noch anders schreiben sollte ?
Mein Code:
Sub LogStats()
Dim varCount As Long, varPath As String, varTimeStamp As Date, varUser As String
' zum Testen
varCount = 400
varTimeStamp = Format(Now, "yyyy-mm-dd")
varUser = "user4"
varPath = "C:\Users\xxx\Desktop\Book1.xlsx"
Application.ScreenUpdating = False
Workbooks.Open Filename:=varPath
With Worksheets(1)
.Select
.Range("A4").Value = varCount
.Range("B4").Value = varUser
.Range("C4").Value = varTimeStamp
End With
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
Vielen Dank im Voraus für Eure Hilfe,
Tim
Anzeige