Tabellenblätter nach Liste erstellen
03.12.2008 14:26:37
Hannes
ich möchte gerne nochmal meine frage von gestern auffrischen...
erst mal besten dank an Rudi...BESTEN DANK
die programmierung läuft fast richtig.
nur bei aktivierung haut ein LAUFZEITFEHLER 1004 dazwischen. wenn man dan beenden bzw debuggen drückt werden wie gewüsch alle tabellenblätter mit zugehörigen namen erstellt! + ein Tabellenblatt "Vorlage (2)"...was da eigentlich nicht hingehört.
der fehler erfolgt hier:
.Name = c.Value
hat jemand ne idee diesen fehler zu beheben?
hier nochmal die ganze programmierung:
Sub Sheets_aus_Liste()
Dim c As Range, rngNum As Range
Application.ScreenUpdating = False
With Sheets("Maschinendaten")
Set rngNum = .Range(.Cells(4, 1), .Cells(4, 1).End(xlDown))
End With
For Each c In rngNum
If Not SheetExists(c.Value) Then
Worksheets("Vorlage").Copy after:=Worksheets(Worksheets.Count)
With ActiveSheet
.Range("S6") = c.Value
.Name = c.Value
End With
End If
Next
Application.ScreenUpdating = True
End Sub
Function SheetExists(strSheetName As String) As Boolean
Dim wks As Worksheet
For Each wks In Sheets
SheetExists = SheetExists Or wks.Name = strSheetName
Next
End Function
Besten Dank schonmal