kann mir denn keiner helfen?
Private Sub ComboBox1_Change()
ComboBox2.Clear
If ComboBox1.Value <> "" Then
With Worksheets("M_" & ComboBox1.Value)
For Spalte = 2 To .Cells(1, .Columns.Count).End(xlToLeft).Column
ComboBox2.AddItem .Cells(1, Spalte)
Next
End With
End If
End Sub
Private Sub ComboBox2_Change()
Dim Spalte As Integer
If ComboBox2.Value <> "" Then
End If
End Sub
Private Sub Worksheet_Activate()
ComboBox1.Clear
For Each WS In ActiveWorkbook.Worksheets
With WS
If Left(.Name, 2) = "M_" Then
ComboBox1.AddItem Mid(.Name, 3)
End If
End With
Next
End Sub