Hilfe bei Makro
29.12.2008 01:46:54
Markus
will hoffen ihr habt die Feiertage gut überstanden?
Ich habe da gleich mal ein Problem:
Das folgende Makro soll auch das Privat Sub aus der Tabelle "Muster" mit in die neuen Blätter kopieren,
wie müßte das Makro dann lauten?
Vielen Dank im Voraus.
Gruß Markus
Sub Blätter_erstellen()
Dim Zelle As Range
With Sheets("Vorgaben")
On Error Resume Next
For Each Zelle In .Range(.Cells(8, 2), .Cells(105, 2).End(xlUp)).SpecialCells( _
_xlCellTypeConstants)
Err = 0
Sheets(Zelle.Value).Select
Select Case Err
Case 0
Case Else
ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = Zelle.Value
Sheets("Muster").Cells.Copy Destination:=ActiveSheet.Cells
Range("A7").Select
ActiveWindow.FreezePanes = True
Range("D8").Select
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
End Select
Next
On Error GoTo 0
End With
Application.DisplayAlerts = False
Sheets("Ende").Delete
Application.DisplayAlerts = True
Sheets("Vorgaben").Select
Range("C2").Select
End Sub