Blätter in Inputbox
Uwe
ich will alle Blätter dynamisch in eine Inputbox ausgeben.
Ich habe eine halb-dynamische Version. Die Inputbox muss sich noch automatisch "verlängern"
(Je nach Blattanzahl)
Es sind max 12 Blätter
Public Sub Blattnamen()
Dim WkSh As Worksheet
Dim vBlatt() As String
Dim iIndx As Integer
For Each WkSh In ThisWorkbook.Worksheets
ReDim Preserve vBlatt(iIndx)
vBlatt(iIndx) = WkSh.Name
iIndx = iIndx + 1
Next WkSh
' For iIndx = LBound(vBlatt) To UBound(vBlatt)
' MsgBox vBlatt(iIndx)
' Next iIndx
Dim sAdr As String
nocheinmal:
sAdr = InputBox("Welches Blatt?" & vbNewLine & vbNewLine & _
"1. >>> " & vBlatt(0) & vbNewLine & _
"2. >>> " & vBlatt(1) & vbNewLine & _
"3. >>> " & vBlatt(2) & vbNewLine & _
'hier sollen sich dann die Zeilen untereinander je nach Blattanzahl abbauen
"99. >>> Abbruch KEIN", "Blatt auswählen", 1)
If Not IsNull(sAdr) And sAdr "" And IsNumeric(sAdr) Then
If sAdr = 99 Then Exit Sub
If sAdr