Daten schreiben
11.10.2017 23:32:35
stef26
ich hab da mal ne Frage.
Mit folgenden Code schreibe ich einen Status (0 oder 1) in eine Zelle einer anderen Arbeitsmappe.
Sub AbgerundetesRechteck1_Klicken()
Dim shZiel As Worksheet, shQuelle As Worksheet
Dim lngZeile As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Set shQuelle = ThisWorkbook.Sheets("Steuerung")
Set shZiel = GetObject("C:\Users\Desktop\Steuerung.xlsx").Sheets("Test")
With shZiel
Range("C2") = 1
With .Parent
.Close SaveChanges:=True
End With
End With
Application.ScreenUpdating = True
Application.EnableEvents = True 'Auf Ereignise reagieren einschalten
End Sub
Kann man dies irgendwie anders unterdrücken?
Gruß
Stefan