Problem mit Makro
25.10.2003 21:59:44
Jörg
Bei folgendem Makro soll der Inhalt der Spalte A1 in das Feld A 15 geschrieben werden, wenn in den Spalten A2 bis A10 mind. eine 1 steht.Der Inhalt von B1 auch in Feld A 15 wenn von B2 bis B10 mind. eine 1 steht. Desgl C1 in A 15...
Mein Makro funktioniert aber nur wenn die 1 in Zeile 2 steht, wenn Zeile 2 = 0 ist, und Zeile 3 gleich 1 dann wird die Spalte A1 nicht in A 15 geschrieben.
Wo liegt hier mein Fehler? Wer hilft mir weiter?
Sub test()
For y = 1 To 3
For i = 2 To 9
If Cells(i, y).Value = 1 Then
x = x + 1
Else
Exit For
End If
Next
If x = 1 Then Range("A15") = Range("A15") & " " & Cells(1, y)
x = 0
Next
End Sub
Anzeige