ich habe einen kleinen VBA Code geschrieben, um in einer Arbeitsmappe nach Blättern suchen und zu ihnen navigieren zu können. Jetzt ist es so, dass ich natürlich jeden Namen der Blätter kenne und mit der Suche keine Probleme habe. Kollegen, die nicht jeden Namen kennen, können das Makro natürlich nicht benutzen.
Daher meine Frage ist es möglich eine Input- oder MsgBox mit einer DropDownliste oder sowas in der Art zu erstellen, die alle Namen der verschiedenen Blätter anzeigt?
Viele Grüße
Nils
Mein Code:
Sub Blattsuchen()
Dim strBlattname As String
Dim i As Integer
strBlattname = InputBox("Bitte geben Sie den gesuchten Blattnamen ein!")
For i = 1 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(i).Name = strBlattname Then
ActiveWorkbook.Sheets(i).Activate
Exit Sub
End If
Next
MsgBox "Das gesuchte Blatt " & strBlattname & " wurde nicht gefunden."
End Sub