Sheetsname
11.03.2020 20:14:57
bjoern
ich bin warscheinlich zu müden um den Fehler zu sehen, vielleicht habt ihr eine Idee
Sub iiff()
For a = 1 To Sheets.Count
If Not Sheets(Sheets(1).Cells(1, a).Value).exists Then Sheets.Add.Name = Sheets(1).Cells(1, a)
Next a
End Sub
das ist erstmal zur Übung aber vielleicht habt ihr auch alternativ Vorschläge... (oh oh gleich kommt wieder das das dim ws ....)