09.10.2019, 13:50
Hallo zusammen,
ich möchte die Zeilen- & Spaltenbeschriftung ausblenden, es sei denn, ein bestimmter Benutzer meldet sich an.
Aktuell hat die Excel nur ein Tabellenblatt. Das kann zukünftig aber mehr werden.
Aktuell bekomme ich folgenden Fehler beim Öffnen:
Hier einmal mein gesamter Code:
Arbeitsmappe
Modul
Mache ich einen Denkfehler?!
Danke schon einmal für eure Hilfe.
ich möchte die Zeilen- & Spaltenbeschriftung ausblenden, es sei denn, ein bestimmter Benutzer meldet sich an.
Aktuell hat die Excel nur ein Tabellenblatt. Das kann zukünftig aber mehr werden.
Aktuell bekomme ich folgenden Fehler beim Öffnen:
Code:
Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt
Hier einmal mein gesamter Code:
Arbeitsmappe
Code:
Private Sub Workbook_Open()
Dim Username As String
Username = Environ("USERNAME")
Select Case Username
Case "U12345": Erg = Header(True) '--> Name des Users
Case Else: Erg = Header(False)
End Select
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.DisplayHeadings = False
End Sub
Modul
Code:
Function Header(status)
If status = True Then
ActiveWindow.DisplayHeadings = True '<--------------------- Wird mir beim Öffnen/Debuggen markiert
End If
End Function
Mache ich einen Denkfehler?!
Danke schon einmal für eure Hilfe.