Problem mit Leerzellen in Schleife

Forumthread: Problem mit Leerzellen in Schleife

15.10.2004 11:49:10

Patrick

Hallo an alle,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Problem mit Leerzellen in Schleife

15.10.2004 11:56:24

Bert
AW: Problem mit Leerzellen in Schleife

15.10.2004 14:08:43

Patrick
AW: Problem mit Leerzellen in Schleife

15.10.2004 20:09:52

andre

AW: Problem mit Leerzellen in Schleife

15.10.2004 11:56:24

Bert

Dim i As Integer
For i = 1 To Application.WorksheetFunction.CountA(Sheets("Vertriebe").Range("A:A"))
If not isempty(cells(i,1) then
Sheets.Add after:=Sheets("Vertriebe")
ActiveSheet.Name = Sheets("Vertriebe").Cells(i, 1).Text
end if
Next i
Bert

AW: Problem mit Leerzellen in Schleife

15.10.2004 14:08:43

Patrick

Hi Bert, danke für die Antwort.
Ein kleines Problem hab ich aber noch. Nun wird nur der erste der in der Spalte A steht abgeschrieben. Der zweite taucht nicht mehr auf. Er wechselt nicht mehr das Tabellenblatt zu Vertriebe.
Dim i As Integer
For i = 1 To Application.WorksheetFunction.CountA(Sheets("Vertriebe").Range("A:A"))
If Not IsEmpty(Cells(i, 1)) Then
Sheets.Add after:=Sheets("Vertriebe")
ActiveSheet.Name = Sheets("Vertriebe").Cells(i, 1).Text
End If
Next i

AW: Problem mit Leerzellen in Schleife

15.10.2004 20:09:52

andre

Hallo Patrick,
du zählst wie viele nicht leere Zellen Du hast. Da geht das Makro dann natürlich nicht bis in die letzte ausgefüllte, wenn leere dabei sind ...
Versuchs mal so:


Sub test()
Dim i As Integer
'For i = 1 To Application.WorksheetFunction.CountA(Sheets("Vertriebe").Range("A:A"))
For i = 1 To Sheets("Vertriebe").Cells(Rows.Count, 1).End(xlUp).Row
'geht nur richtig, wenn die letzte Zelle leer ist
If Not IsEmpty(Cells(i, 1)) Then
Sheets.Add after:=Sheets("Vertriebe")
ActiveSheet.Name = Sheets("Vertriebe").Cells(i, 1).Text
End If
Next i
End Sub

Beliebteste Forumthreads (12 Monate)

Problem mit Leerzellen in Schleife

Forumthread: Problem mit Leerzellen in Schleife

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread