Private Sub UserForm_Activate()
Dim ws As Worksheet
For Each ws In Worksheets
ComboBox1.AddItem ws.Name
Next ws
End Sub
Mit dieser sub kann ich ein Dopdownmenü mit allen Tabellenblättern erstellen
Ich hätte aber gerne nicht alle Tabellenblätter, sondern nur die Tabellenblätter die ich im Bereich A1:A10 im Tabellenblatt xyz festgelegt habe...
Könnt ihr mir helfen?
Ohne VBA würde ich das so machen:
=BEREICH.VERSCHIEBEN('99 Berechnungen'!$A$1;1;0;SUMME(1*(LÄNGE('99 Berechnungen'!$A$1:$A$15)>=1))-1; 1)
Aber wie ginge das mit VBA
Viele Grüsse
Matz