Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Vereinfachung Variablendeklaration

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

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

Betreff
Benutzer
Anzeige
AW: Vereinfachung Variablendeklaration
31.07.2009 22: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
31.07.2009 22: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
Anzeige
Danke Dir
05.08.2009 23:55:02
SteffenS
das ging so
MFG
Steffen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige