mit einer function einen sheet kopieren
28.03.2006 23:52:51
peter
ich habe eine blöde frage: kann ich mit einer 'function' die ich im excel aufrufe einen sheet kopieren.
ich habe folgende 'function' die alle befehle tadellos ausführt die zeilen 7 und 8. Geht sowas prinzipiell?
Ich übergebe der 'function' im excel einen string!
Function Sheet_erzeugen(Name As String)
1 Dim i As Integer
2 For i = 1 To Worksheets.Count
3 If Name = ActiveWorkbook.Worksheets(i).Name Then
4 MsgBox ("Name schon vorhanden")
5 Exit Function
6 Else
7 Sheets("Vorlage").Copy After:=Sheets(Worksheets.Count)
8 ActiveSheet.Name = Name
9 End If
10 Next i
11 Sheet_erzeugen = "0"
End Function
vielen dank!
lg peter