Datei prüfen beim öffnen
20.12.2017 10:19:37
Sarah
ich öffne bei Klick auf den Commandbutton die Datei Test, um Werte in diese zu schreiben.
Private Sub CommandButton1_Click()
'Datei öffnen
Dim Claim As Workbook, bereich As Range
Set Claim = Workbooks.Open("Test.xlsx")
Set bereich = Claim.Sheets("Archiv").UsedRange
'hier startet der Eintrag
Dim intZ As Integer
intZ = Range("C65536").End(xlUp).Row + 1
Cells(intZ, 1) = CStr(intZ + 4000)
Ich habe leider bisher über Google keine Lösung gefunden die funktioniert.
Anzeige