Vereinfachung Variablendeklaration
SteffenS
ich bestimme ich in jedem Makro eines Blattes die Excelversion (Endung).
Wie kann ich meinen Code vereinfachen, dass ich nicht überall so viel stehen habe.
Hier mein Beispielcode:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo raus
'Ermittlung der Excel Version
Dim xlv As String, xmenu As String
Dim appvers As Long
appvers = Left(Application.Version, Len(Application.Version) - 2)
If appvers
'----------------------------------------------------------------------------------------------------------------------------------
Private Sub gbl_einst_box1_Change()
'Ermittlung der Excel Version
Dim xlv As String, xmenu As String
Dim appvers As Long
appvers = Left(Application.Version, Len(Application.Version) - 2)
If appvers
Private Sub gbl_einst_box2_Change()
'Ermittlung der Excel Version
Dim xlv As String, xmenu As String
Dim appvers As Long
appvers = Left(Application.Version, Len(Application.Version) - 2)
If appvers
Danke Euch im Voraus.MFG
Steffen Schmerler