Habe in einem Tabellenblatt in Spalte A:A 14 bis 20 Mannschaften stehen.
Nun soll per Makro für jede Mannschaft ein Blatt erstellt werden.
Bitte um Hilfe
Danke
Walter
dim Zelle as Range
For Each Zelle in Range("A:A").SpecialCells(xlcelltypeconstants, 2)
Sheets.Add
ActiveSheet.Name = Left(Zelle.Value, 31)
Next
Sub Test()...End Sub
) fehlen.
Sub aaa()
Dim Zelle As Range, wks As Worksheet
For Each Zelle In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
Set wks = Nothing
On Error Resume Next
Set wks = Worksheets(Zelle.Text)
On Error GoTo 0
If wks Is Nothing Then
Set wks = Worksheets.Add
wks.Name = Left(Zelle.Text, 31)
End If
Next Zelle
End Sub
Function LegalSheetName(strName As String) As String
Dim arrNotAllowed As Variant
Dim n As Integer
'Im Tabellennamen nicht zulässige Zeichen
arrNotAllowed = Array(":", "\", "/", "?", "*", "[", "]")
'unerlaubte Zeichen durch "" ersetzen
For n = 0 To UBound(arrNotAllowed)
strName = Replace(strName, arrNotAllowed(n), "")
Next
'Namen auf 31 Zeichen begrenzen
LegalSheetName = Left(strName, 31)
End Function
....
wks.Name = LegalSheetName(Zelle.Text)
....
Gruß