Combo Box Makro Hilfe
05.06.2019 09:20:44
r4mun
ich nutze derzeit ein Makro das ich aus mehreren google suchen zusammengeflickt habe. Es funktioniert, jedoch hätte ich da gerne eine Änderung. Jedoch scheitere ich da schon seit ein paar Tagen da meine VBA Kentnisse etz nicht so Top sind.
Das Makro
Option Explicit
Dim mblnNoEvent As Boolean
Private Sub ComboBox1_Change()
If Not mblnNoEvent Then
ThisWorkbook.Sheets(ComboBox1.Text).Visible = True
ThisWorkbook.Sheets(ComboBox1.Text).Activate
Unload Me
End If
End Sub
Private Sub UserForm_Activate()
Dim objSheet As Object
Dim avntInsert As Variant
Dim ialngIndex As Long
Dim strName As String
avntInsert = Array("test", "Test2", "Test3", "Test4", "Test5", "Test6", "Test7") 'hier die _
_
_
anzuzeigenden Tabellen eintragen
For Each objSheet In ThisWorkbook.Worksheets
strName = objSheet.Name
For ialngIndex = LBound(avntInsert) To UBound(avntInsert)
If avntInsert(ialngIndex) = strName Then
ComboBox1.AddItem strName
Exit For
End If
Next
Next
mblnNoEvent = True
ComboBox1.Text = "Schichtplan für"
mblnNoEvent = False
End Sub
Damit nutze ich eine Kombibox mit der ich auf bestimmte Blätter springen will.
Die Box befindet sich in einer Userform. Die Blätter auf die ich springen will sind "veryhidden". Wie gesagt es klappt so ganz gut.
Die Änderung die ich jedoch will: Ich möchte die Namen der Tabellenblätter nicht hier in das Makro schreiben wollen - sondern diese sollen aus einen anderen Blatt der Mappe aus einen Bereich genommen werden. Habe da schon mit "Worksheet und Range herumprobiert probiert komme da jedoch auf Ergebnis.
Wäre dankbar wenn da wer drüberschauen kann.