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 MFG
Steffen Schmerler
Anzeige