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
Was noch sehr unschön ist, dass beim einschreiben man trotz ausgeschalteten screenupdate man erkennt, wie die Exceldatei aufgemacht wird.Kann man dies irgendwie anders unterdrücken?
Gruß
Stefan