VBA: ComboBox/Tabellenblatt
14.06.2020 05:41:53
Charly
Ich bin grade dabei meinem Projekt etwas mehr "Benutzerfreundlich" zu Gestallten.
Hierzu zähle ich die Aufruf-Funktion der UF u. die erste Handlung der UF.
Dazu habe ich erstmal eine Frage, dazu aber gleich.
Erläuterung:
Im Moment Öffne ich die UF via Tabelle (Tab. 1;2;3) per Doppelklick in eine Zelle in (Spalte "B").
Danach wird im Anschluss über die CB "CB_Breich" ein Wert Ausgesucht. Soll heißen ich wähle Selbst einen Bereich (z.B. "Tabelle1") aus, dies wiederum bewirkt das immer die gewählte Tabelle Aktiv ist.
Nun zu meiner Frage, ist es möglich beim Doppelklick in die Zelle, die ComboBox gleich den Tabellen-Namen zu zuweisen. Somit möchte ich Verhindern das man versehentlich in der CB eine falsche Tabelle auswählt.
So sieht der Code aus zum Aufruf der UF, aus dem Tabellenblatt.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count = 1 Then
If Target.Column = 2 Then 'Spalte Anpassen (Begin Bereich Show(UF))
If Target.Row >= 3 Then 'Zeile Anpassen (Begin Bereich Show(UF))
If Target.Row Und so sieht im Moment der "CB_Breich_Change" Code aus.
With Workbooks("UF1_Austragen4_2.1.xlsm").Worksheets("Werte")
Select Case CB_Bereich
Case "Tabelle1"
Tabelle1.Activate
sbTab1bis7 3, 2, 102
lstrSh = "Tabelle1"
Case "Tabelle2"
Tabelle2.Activate
sbTab1bis7 3, 2, 102
lstrSh = "Tabelle2"
Case "Tabelle3"
Tabelle3.Activate
sbTab1bis7 3, 2, 102
lstrSh = "Tabelle3"
End Select
End With
Die "CB_Bereich gehört" zu einer Abhängigkeit mit zwei anderen CB´s.
Die Spalte "B" in Tab1; 2; 3 beinhaltet Namen (Bsp. Muster, Max).
Anbei meine Bsp.-Mappe:
https://www.herber.de/bbs/user/138269.xlsm
Gruß Charly
Anzeige