gibt es eine Möglichkeit, mir die verschiedenen Tabellenblattnamen in einer Auswahlliste auf einem Tabellenblatt anzuzeigen?
Und wenn ja, wie?
LG
Sascha
Sub Tabellennamen_auflisten()
Dim MyListe$, MyCell$, Anzahl%, MyRange$, Ok%, i%
MyListe = ActiveSheet.Name
MyCell = ActiveCell.Address
Anzahl = Worksheets.Count
MyRange = Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row + Anzahl - 1, _
ActiveCell.Column)).Address
Worksheets(MyListe).Range(MyRange).Select
Ok = MsgBox("ACHTUNG: Der markierte Bereich wird überschrieben !" & vbCrLf & _
Chr(13) & " Trotzdem fortfahren ?", vbYesNo)
If Ok vbYes Then Exit Sub
For i = 1 To Worksheets.Count
Sheets(MyListe).Cells(Range(MyCell).Row + i - 1, Range(MyCell).Column) = Sheets(i).Name
Next i
Range(MyCell).Select
MsgBox ("Es befinden sich ") & ThisWorkbook.Worksheets.Count & (" Tabellenblätter in dieser _
Arbeitsmappe."), vbOKOnly, ThisWorkbook.Name
End Sub
Sub Tabellennamen_auflisten()
Dim MyListe$, MyCell$, Anzahl%, MyRange$, Ok%, i%
MyListe = ActiveSheet.Name
MyCell = ActiveCell.Address
Anzahl = Worksheets.Count
MyRange = Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row + Anzahl - 1, _
_
ActiveCell.Column)).Address
Worksheets(MyListe).Range(MyRange).Select
Ok = MsgBox("ACHTUNG: Der markierte Bereich wird überschrieben !" & vbCrLf & _
Chr(13) & " Trotzdem fortfahren ?", vbYesNo)
If Ok vbYes Then Exit Sub
For i = 1 To Worksheets.Count
Sheets(MyListe).Cells(Range(MyCell).Row + i - 1, Range(MyCell).Column) = Sheets(i).Name
Next i
Range(MyCell).Select
MsgBox ("Es befinden sich ") & ThisWorkbook.Worksheets.Count & _
(" Tabellenblätter in dieser Arbeitsmappe."), vbOKOnly, ThisWorkbook.Name
End Sub