Exit Sub
23.09.2002 14:27:15
Josef
Ich habe in mehreren Arbeitsblättern Datensätze stehen.
mittels eines Makros werden die Seiten der Reihe nach aktiviert und sortiert.Jetzt gibt es aber z.B. auf einer Seite nur einen oder zwei Datensätze und darauf hin bleibt das Makro bei Next hängen.Wie kann ich hier den Fehler abfangen damit die nächste Seite augerufen und abgearbeitet wird.? Mit Exit Sub? Wie gehe ich da bitte vor?
Sub zeilenfärben1()
Dim farbe As Integer
Dim zelle As Range
Dim name As String
farbe = 2
For Each zelle In Range(Cells(1, 7), Range("G1").End(xlDown))
If zelle & zelle.Offset(0, 1) <> name Then
name = zelle & zelle.Offset(0, 1)
If farbe = 15 Then farbe = 2 Else farbe = 15
End If
Rows(zelle.Row).Interior.ColorIndex = farbe
Next
End Sub
Danke
Josef
Anzeige