VBA Code
30.10.2007 16:43:00
Bigi
Dank euerer Hilfe ist unten genannter Code entstanden.
Private Sub CommandButton7_Click()
Dim WB As Workbook
Dim Namen As String
Dim intx As Integer, inty As Integer
Set WB = ActiveWorkbook
Namen = InputBox("Bitte geben Sie den Namen für die neue Tabelle ein:")
If Namen "" Then
WB.Sheets.Add.Name = Namen
Sheets("Vorlage").Cells.Copy Sheets(Namen).[A1]
'Blätter sortieren :
For intx = 1 To Sheets.Count
For inty = intx To Sheets.Count
If UCase(Sheets(inty).Name)
Kann man noch hingehen und den neuen Tabellenblatt-Namen im Blatt "Suchen" in Spalte P ab Zelle 2 sortiert übertragen da hier ein LinkFillRange aus einer ComboBox steht
Hoffentlich hat jemand eine Lösung
Gruss
Bigi