Zugriff auf dynamischen Zellbereich
18.05.2020 10:30:48
Christoph
ein einfache Frage:
Ich möchte gerne auf die Werte die in einer Zeile eines anderen Tabellenblattes stehen in Abhängigeit von dem Tabellenblattnamen auf dem man sich gerade befindet zugreifen.Die Werte befinden sich immer in einer Zeile, die mit dem Namen des Tabellenblattes auf dem man sich gerade befindet beginnt. Konkret geht des darum Schaltflächen auf einer Userform zu aktivieren oder zu deaktivieren.
Über diesen Code bekomme ich das auch gut hin:
Code im Tabellenblatt
Private Sub Worksheet_Activate()
WKS_Name = ActiveSheet.Name
With Sheets("Einstellung")
Command1 = .Range("B2").Value
Command2 = .Range("C2").Value
Command3 = .Range("D2").Value
End With
Debug.Print Command1, Command2, Command3
End Sub
Private Sub UserForm_Initialize()
WKS_Name = ActiveSheet.Name
Debug.Print WKS_Name
UserForm1.CommandButton1.Enabled = False
UserForm1.CommandButton2.Enabled = False
UserForm1.CommandButton3.Enabled = False
If Command1 = True Then UserForm1.CommandButton1.Enabled = True
If Command2 = True Then UserForm1.CommandButton2.Enabled = True
If Command3 = True Then UserForm1.CommandButton3.Enabled = True
End Sub
Die Kür wäre, dass ich nicht nur die Zeile dynamisch anpasst, und ich von da aus sozusagen zwei nach rechts im zum Wert für den Command1 komme, sondern dies irgendwie aus Zeile und Spalte kombiniert wird.
Zb. Ich bin auf Tabellenblatt A3, dann soll der Wert für die Variable Command2 aus der Kombination von Zeile A2 und Spalte Command2 in der Tabelle Einstellungen ermittel werden. Das wäre aber nur die Kür.
Eine Beispielmappe befindet sich hier: https:\/\/www.herber.de/bbs/user/137609.xlsm
Vielen Dank im Voraus!