Leilen nacheinander füllen ohne Leerzeilen (z=z+1)
27.08.2003 12:51:59
abdi
Beim u.s. Befehl passt eigentlich fast alles...NUR, dass wenn ich im Arbeitsblatt "Prüfergebnisse" Leerzeilen habe, die mit in "Abweichungen" übernommen werden. Ich hätte es gerne, das er mir eine Zeile nach der anderen beschreibt.
Wie geht das?
Danke
Gruß Abdi
Sub Abweichungen()
Dim z As Integer
Dim a As Integer
z = z + 1
For z = 12 To 200
a = a + 1
If Worksheets("Prüfergebnisse").Cells(z, 10) = "x" Then
Worksheets("Abweichungen").Cells(a + 8, 2) = Worksheets ("Prüfergebnisse").Cells(z, 2)
Next z
End Sub