Makro unter Windows 10
15.05.2018 09:49:54
Rene
ich habe eine kleine Datei mit Excel geschrieben die auf älteren Windows Versionen gut läuft. Bei Windows 10 funktioniert das nachfolgend angeführte Makro aber leider nicht. Nun weiß ich nicht weiter und würde mich freuen wenn Ihr mir weiter helft.
MfG René
Private Sub Workbook_Open()
Dim Blatt As Worksheet
For Each Blatt In Sheets
Blatt.Visible = True
Next Blatt
Dim User As Variant
User = Environ(" USERNAME ")
'Herr 1
If User = "A" Then
Sheets("Urlaubsplan QS 2018").Visible = True
Sheets("1").Visible = True
Sheets("2").Visible = True
Sheets("3").Visible = True
Sheets("4").Visible = True
Sheets("5").Visible = True
Sheets("6").Visible = True
Sheets("7").Visible = True
Sheets("8").Visible = True
Sheets("9").Visible = True
GoTo ende
Else
Sheets("Urlaubsplan QS 2018").Visible = True
Sheets("1").Visible = xlVeryHidden
Sheets("2").Visible = xlVeryHidden
Sheets("3").Visible = xlVeryHidden
Sheets("4").Visible = xlVeryHidden
Sheets("5").Visible = xlVeryHidden
Sheets("6").Visible = xlVeryHidden
Sheets("7").Visible = xlVeryHidden
Sheets("8").Visible = xlVeryHidden
Sheets("9").Visible = xlVeryHidden
End If
'Herr 2
If User = "B" Then
Sheets("Urlaubsplan QS 2018").Visible = True
Sheets("1").Visible = True
Sheets("2").Visible = True
Sheets("3").Visible = True
Sheets("4").Visible = True
Sheets("5").Visible = True
Sheets("6").Visible = True
Sheets("7").Visible = True
Sheets("8").Visible = True
Sheets("9").Visible = True
GoTo ende
Else
Sheets("Urlaubsplan QS 2018").Visible = True
Sheets("1").Visible = xlVeryHidden
Sheets("2").Visible = xlVeryHidden
Sheets("3").Visible = xlVeryHidden
Sheets("4").Visible = xlVeryHidden
Sheets("5").Visible = xlVeryHidden
Sheets("6").Visible = xlVeryHidden
Sheets("7").Visible = xlVeryHidden
Sheets("8").Visible = xlVeryHidden
Sheets("9").Visible = xlVeryHidden
End If
'Herr 3
If User = "C" Then
Sheets("3").Visible = True
Sheets("Urlaubsplan QS 2018").Visible = xlVeryHidden
Sheets("1").Visible = xlVeryHidden
Sheets("2").Visible = xlVeryHidden
Sheets("4").Visible = xlVeryHidden
Sheets("5").Visible = xlVeryHidden
Sheets("6").Visible = xlVeryHidden
Sheets("7").Visible = xlVeryHidden
Sheets("8").Visible = xlVeryHidden
Sheets("9").Visible = xlVeryHidden
GoTo ende
Else
Sheets("3").Visible = True
Sheets("Urlaubsplan QS 2018").Visible = xlVeryHidden
Sheets("1").Visible = xlVeryHidden
Sheets("2").Visible = xlVeryHidden
Sheets("4").Visible = xlVeryHidden
Sheets("5").Visible = xlVeryHidden
Sheets("6").Visible = xlVeryHidden
Sheets("7").Visible = xlVeryHidden
Sheets("8").Visible = xlVeryHidden
Sheets("9").Visible = xlVeryHidden
End If
'Herr 4
If User = "D" Then
Sheets("4").Visible = True
Sheets("Urlaubsplan QS 2018").Visible = xlVeryHidden
Sheets("1").Visible = xlVeryHidden
Sheets("2").Visible = xlVeryHidden
Sheets("3").Visible = xlVeryHidden
Sheets("5").Visible = xlVeryHidden
Sheets("6").Visible = xlVeryHidden
Sheets("7").Visible = xlVeryHidden
Sheets("8").Visible = xlVeryHidden
Sheets("9").Visible = xlVeryHidden
GoTo ende
Else
Sheets("4").Visible = True
Sheets("Urlaubsplan QS 2018").Visible = xlVeryHidden
Sheets("1").Visible = xlVeryHidden
Sheets("2").Visible = xlVeryHidden
Sheets("3").Visible = xlVeryHidden
Sheets("5").Visible = xlVeryHidden
Sheets("6").Visible = xlVeryHidden
Sheets("7").Visible = xlVeryHidden
Sheets("8").Visible = xlVeryHidden
Sheets("9").Visible = xlVeryHidden
End If
usw.
ende:
End Sub