VBA alle Windows aus-/einblenden
27.10.2016 17:07:37
Thomas
die beiden simplen Makros sollen alle Fenster aus- oder einblenden.
_________________________________
Public Sub EinblendenWindows()
Dim i As Integer
For i = 1 To Windows.Count
Windows(i).Visible = True
Next
End Sub
_________________________________
Public Sub AusblendenWindows()
Dim i As Integer
For i = 1 To Windows.Count
Windows(i).Visible = False
Next
End Sub
Das Einblenden funktioniert wunderbar.
Zum Ausblenden muss ich das Makro merhmals laufen lassen:
1. Durchlauf
Windows.count = 6
i = 1: Fenster wird ausgeblendet
i = 2: Fenster wird ausgeblendet
i = 3: Fenster wird ausgeblendet
i = 4: Fenster wird nicht ausgeblendet
i = 5: usw.
2. Durchlauf
Windows.count = 6
i = 1: Fenster wird ausgeblendet
i = 2: Fenster wird ausgeblendet
i = 3: Fenster wird nicht ausgeblendet
i = 4: usw.
3. Durchlauf
i = 1: Fenster wird ausgeblendet
i = 2: Kein Fenster zum ausblenden da
Auch irritiert mich, dass z.b. i = 1 bei jedem Durchlauf ein anderes window anspricht.
Hat jemand eine Idee woran es liegt?
Viele Grüße
Anzeige