Code Zusatz
28.11.2007 12:28:00
Mike
nach langer Suche bin ich in diesem Forum auf diesen Code gestoßen.
Dieser funktioniert genial, leider habe ich zu wenig Kentnisse mit VBA
um einen Zusatz einzubringen.
Ich möchte über eine Inputbox zusätzlich in Spalte Q zum dazugehörigen Namen eine Nummer vergeben.
Wäre toll wenn mir jemand behilflich wäre.
Gruss
Mike
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
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)