Variablen definieren und benutzen
21.05.2021 14:34:53
Giuseppe
Ich würde gerne Variablen definieren, um Zeilen auszublenden.
Dazu habe ich 3 Module erstellt:
Sub VAR()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Variablen definieren
' 3 Variablen, die in der Tabelle "VBA" definiert sind
Dim Erste_Tabelle As String
Dim Zeile_A As Integer
Dim Zeile_B As Integer
Erste_Tabelle = Worksheets("VBA").Range("A1").Value
Zeile_A = Worksheets("VBA").Range("A2").Value
Zeile_B = Worksheets("VBA").Range("A3").Value
End Sub
Sub Einblenden()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Einblenden
VAR ' gehe zu "Variablen definieren"
Worksheets(Erste_Tabelle).Range(.Cells(Zeile_A, Zeile_B)).EntireRow.Hidden = True
End Sub
Sub Ausblenden()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Ausblenden
VAR ' gehe zu "Variablen definieren"
Worksheets(Erste_Tabelle).Range(.Cells(Zeile_A, Zeile_B)).EntireRow.Hidden = False
End Sub
Wenn ich die "Variabendefinition" in jedem Modul einfüge, funktioniert der Code.
Aber ich möchte die Variablen nur ein einem Ort definieren und in X-Modulen zahlreich verwenden.
Kann mich jemand Unterstützen?
Vielen Dank
Giuseppe