Problem mit Leerzellen in Schleife
15.10.2004 11:49:10
Patrick
dies ist ein Auszug aus meinem kleinen Makro welches für jeden Namen der in einer Zelle steht ein neues Datenblatt erstellt.
Allerdings habe ich ein Problem. Wenn Leerzellen vorkommen, dann stürtz das Makro ab. Wie kann ich das verhidern? Habe schon versucht die Funktion "DBANZAHL2" in das Makro einzubauen, was aber nicht geklappt hat.
Dim i As Integer
For i = 1 To Application.WorksheetFunction.CountA(Sheets("Vertriebe").Range("A:A"))
Sheets.Add after:=Sheets("Vertriebe")
ActiveSheet.Name = Sheets("Vertriebe").Cells(i, 1).Value
Next i
Gruß
Patrick