AW: Variable in den unterschiedlichen Modulen..
29.05.2017 11:45:22
Der
Hallo ihr zwei
hab es durch eure Hinweise jetzt so gelöst
in einem Modul
Option Explicit
'*** Variable zur gemeinsamen Nutzung deklinieren
Public Tb01 As Worksheet, Tb02 As Worksheet, Tb03 As Worksheet, Tb04 As Worksheet, Tb05 As Worksheet
Public RNG As Range, SndMail As Boolean, JaNein
Public strTo As String, strCC As String, strBCC As String, strSubj As String, strBody As String
Public Belegt As Boolean 'Set nur 1x ausführen
Sub Var_Bel()
If Belegt = False Then
Set Tb01 = ThisWorkbook.Sheets("Einstellungen")
Set Tb02 = ThisWorkbook.Sheets("Erfassung")
Set Tb03 = ThisWorkbook.Sheets("Archiv")
Set Tb04 = ThisWorkbook.Sheets("Daten")
Set Tb05 = ThisWorkbook.Sheets("Tabelle5")
Belegt = True
End If
End Sub
in jedem Makro rufe ich dann ... auf
beim 1. mal erfolgt dann die Zuweisung.
z.B. so
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Ende
Call Var_Bel 'Variablen Belegung
'....
Danke für eure Hilfe, Gruß Uwe