Vereinfachung Variablendeklaration

SteffenS

Hallo Zusammen,
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

AW: Vereinfachung Variablendeklaration

01.08.2009 00:28:32

Adelhorst

Hallo Steffen.
Füge in dein VB ein Modul dein und füge deine Funktionen/Makros die du öfters brauchst dort ein. Erkläre sie dort als 'Public', dann kannst du sie im gesamten Projekt und von jeder Tabellenseite her aufrufen.
Gruss Adelhorst

AW: Vereinfachung Variablendeklaration

01.08.2009 00:35:53

Adelhorst

Hallo Steffen.
Nach dem folgenden Schema kannst du dir verschiedene Funktionen in einem Modul zusammenstellen, die du im gesamten Projekt aufrufen und immer wieder nutzen kannst, ohne den Code mehrfach schreiben zu müssen:
In einem Modul fügst du z.B. diesen Code ein, dann kannst du ihn im gesamten Projekt aufrufen.

Public Function GetVersion() As String
'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

Aufruf innerhalb einer Routine wäre dann dementsprechend wie folgt:
'Makro aktivieren
If Workbooks(GetVersion).Sheets("adm_einst").Range("K42").Value = 1 Then
'Makro aufrufen
Application.Run (GetVersion & "!PL_doppelclick.neg_betrag_pruefen"), (Target.Address(RowAbsolute: _
=False, ColumnAbsolute:=False))
End If
Hoffentlich hilfst dir,
Gruss Adelhorst

Danke Dir

06.08.2009 01:55:02

SteffenS

das ging so
MFG
Steffen

Vereinfachung Variablendeklaration

Forumthread: Vereinfachung Variablendeklaration

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Vereinfachung Variablendeklaration

Forumthread: Vereinfachung Variablendeklaration

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread