Problem mit Makro

• Problem mit Makro von Jörg vom 25.10.2003 21:59:44
  • AW: Problem mit Makro - von Reinhard am 25.10.2003 22:20:11
    • AW: Problem mit Makro - von Jörg am 25.10.2003 22:28:00
      • Danke für die Rückmeldung o.w.T. - von Reinhard am 25.10.2003 23:04:14

Betrifft: Problem mit Makro
von: Jörg
Geschrieben am: 25.10.2003 21:59:44
Hallo Leute,

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

Betrifft: AW: Problem mit Makro
von: Reinhard
Geschrieben am: 25.10.2003 22:20:11
Hi Jörg,

Sub test()
For y = 1 To 3
For i = 2 To 9
If Cells(i, y).Value = 1 Then x = 1
Next i
If x = 1 Then Range("A15") = Range("A15") & " " & Cells(1, y)
x = 0
Next y
End Sub

Gruß
Reinhard

Betrifft: AW: Problem mit Makro
von: Jörg
Geschrieben am: 25.10.2003 22:28:00
Hallo Reinhard,

funktioniert, vielen Dank

Gruß Jörg

Betrifft: Danke für die Rückmeldung o.w.T.
von: Reinhard
Geschrieben am: 25.10.2003 23:04:14
.

Excel-Beispiele zum Thema " Problem mit Makro"
Verschnittproblem mit Solver lösen