Kombinationsfeld - Makros
Thorsten
Ich habe ein Kombinationsfeld, welches bei Auswahl eines Wertes ein Makro starten soll.
Es wird entweder ein Tabellenblatt erstellt, oder, wenn es schon erstellt ist, wird dorthin gesprungen.
Private Sub ComboBox2_Change()
Select Case ComboBox2.Value
Case "Leiste 1"
On Error Resume Next
If Worksheets("Leiste 1)") Is Nothing Then
On Error GoTo 0
Set NewSheet = Worksheets.Add
NewSheet.Name = "Leiste 1"
ElseIf Worksheets("Leiste 1)") Then
Sheets("Leiste 1").Visible = True
Sheets("Leiste 1").Activate
End If
Case "Leiste 2"
On Error Resume Next
If Worksheets("Leiste 2") Is Nothing Then
On Error GoTo 0
Set NewSheet = Worksheets.Add
NewSheet.Name = "Leiste 2"
ElseIf Worksheets("Leiste 2") Then
Sheets("Leiste 2").Visible = True
Sheets("Leiste 2").Activate
End If
End If
End Select
End Sub
Mein Problem ist, dass die Leisten nachher andere Namen haben. Also müsste das Makro unabhängig von den Namen sein und sich die Namen (wie das Kombinationsfeld) aus einem Bereich in der Tabelle ziehen.Wie geht das?
Vielen Dank im Voraus
Gruß, Thorsten