Office: Zeile abwechseld färben

Hi Leute, brauche mal Hilfe. Komme nicht weiter.


Folgende Situation:

Ich möchte ein Makro in Excel schreiben, dass mir abwechselnd, von unten anfangend, per Knopfdruck 6 untereinander liegende Zeilen einfärbt. Leider habe ich viele Sachen versucht aber kam nie wirklich zu einem Ergebnis.

Bis jetzt bin ich zu diesem Code gekommen, färbt mir aber nur die underste Zelle, dann gehts nicht mehr weiter:

-------------------------------------------

Const constZeilenZahl1 As Integer = 8

Private Sub btnKlick1_Click()

Tabelle2.Activate

If constZeilenZahl1 - Spalte1 > 2 Then
If (constZeilenZahl1 - Spalte1) Mod 2 <> 0 Then schalten
Tabelle2.Cells(constZeilenZahl1 - Spalte1, 3).Interior.ColorIndex = 8
Else
Tabelle2.Cells(constZeilenZahl1 - Spalte1, 3).Interior.ColorIndex = 4
End If

Spalte1 = Spalte1 + 1

Else
MsgBox "Die Spalte ist voll, Du musst woanders klicken"
Exit Sub
End If


End Sub
----------------------------------------------

Habe Office 2003 falls das was hilft.

THX schonmal :mrgreen:

 

Hallo!

Dieses Makro färbt dir die Zeile der aktiven Zelle plus die fünf darüber liegenden Zeilen abwechelnd grün und blau:

Code:

Sub Färben()
Dim i As Integer
On Error Resume Next
For i = 0 To 5
If i Mod 2 = 0 Then ActiveCell.Offset(-i, 0).EntireRow.Interior.ColorIndex = 8
If i Mod 2 = 1 Then ActiveCell.Offset(-i, 0).EntireRow.Interior.ColorIndex = 4
Next i
End Sub

 

Vielen Dank, aber geht es auch nicht ohne eine Schleife?

Per Knopfdruck, wie ich es ursprünglich vorgesehen habe?!
Weitere bedingung wäre halt, dass der Start z.B auf Kooridinat B9 ist, und sich das färben langsam nach oben hin arbeitet bis zu Koordinate B4. Also 6 Zellen insgesamt. Und wenn diese sozusagen voll sind, er eine Msg Box ausgibt das sie voll sind.


THX :-)

 

Hallo!

Dann teste dies:

Code:

Option Explicit
Dim i As Integer

Sub test()
i = i + 1
If 6 >= i Then
If i Mod 2 = 0 Then Range("B10").Offset(-i, 0).Interior.ColorIndex = 8
If i Mod 2 = 1 Then Range("B10").Offset(-i, 0).Interior.ColorIndex = 4
End If
If i > 6 Then MsgBox "Alles voll!"
End Sub

Eventuell brauchst du dann noch einen zweiten Code, der dir das "i" wieder auf Null setzt.

 

Ja klingt schon besser, und habe das gleich mal meinem Bedürfnissen etwas angepasst, es sieht jetzt so aus, aber es färbt sich nur die Zelle ganz unten, und dann geht es nicht mehr weiter

Code:

Const start As Integer = 9

Private Sub CommandButton1_Click()

Dim zähler As Single


If zähler Mod 2 = 0 Then Tabelle1.Cells(start - zähler, 2).Interior.ColorIndex = 14
If zähler Mod 2 = 1 Then Tabelle1.Cells(start - zähler, 2).Interior.ColorIndex = 28

If zähler >= 5 Then MsgBox "Das Ding ist voll"
zähler = zähler + 1



End Sub

 

Die Variable "zähler" musst du ausserhalb der Sub deklarieren. Ausserdem sollte als Typ Integer reichen.

 

WOW :-D , vielen Dank! Klappt ja jetzt soweit .
Habe es nun global deklariert.

Aber ein Problem habe ich trotzdem noch:

Wenn ich das Spielfeld komplett befüllt habe, kommt ja die MsgBox die nun eine Meldung gibt.
Wenn ich aber trotzdem auf meinen Knopf drücke, dann führt sich das färben ausserhalb des Spielfeldes, weiter nach oben, fort. wenn es nun dann ganz oben angelangt ist, dann kommt berechtigterweise eine Fehlermeldung: Laufzeitfehler "1004":

wie kann ich dem Problem entgegen wirken, also nur ein Färben des vorgesehenen Spielfeldes zulassen?

 

Dafür hatte ich die zweite If-Bedingung eingefügt:

Code:

If 6 >= i Then
...
End If

Aber die wolltest du offensichtlich ja nicht haben...

 

würde ich sogar machen.
dadran habe ich auch schon gedacht, aber was soll ich nach dem then schreiben?



vielleicht ...then zähler =5 ?

somit müsste ich ja theoretisch immer verhindern, dass zähler nie über 6 kommt, also kann ja nie eine zelle dadrüber eingefärbt werden.

 

Da schreibst du gar nichts hinter...

Code:

Const start As Integer = 9
Dim zähler As Integer

Private Sub CommandButton1_Click()

If 5>= zähler Then
If zähler Mod 2 = 0 Then Tabelle1.Cells(start - zähler, 2).Interior.ColorIndex = 14
If zähler Mod 2 = 1 Then Tabelle1.Cells(start - zähler, 2).Interior.ColorIndex = 28
End If
If zähler >= 5 Then MsgBox "Das Ding ist voll"
zähler = zähler + 1

End Sub 

 

Genial, genu was ich will.

Vielen Dank, nun ist es perfekt.


Ich werde nochmal rumfummeln und das Werk beenden. :mrgreen:


Wenn nochwas ist, melde ich mich,

 

So, da gibts wieder ein Prob ^^ Bzw. was ich noch zusätzlich einbauen möchte.

Und zwar habe ich nun ein Spielfeld damit erzeugt und es klappt soweit wunderbar. Nur jetzt hätte ich gerne noch eine Funktion, die mir wieder die gazen Zellen "Leer" macht.
Auch wieder per Knopdruck. Ich dachte da an eine for Schleife, aber weiss nicht wie ich das umsetzen soll.

THX

Hier mein Code:

Code:

Option Explicit

Const start1 As Integer = 16
Const start2 As Integer = 16
Const start3 As Integer = 16
Const start4 As Integer = 16
Const start5 As Integer = 16
Const start6 As Integer = 16
Dim zähler1 As Integer
Dim zähler2 As Integer
Dim zähler3 As Integer
Dim zähler4 As Integer
Dim zähler5 As Integer
Dim zähler6 As Integer

Private Sub btn1_Click()

If 5 >= zähler1 Then
If zähler1 Mod 2 = 0 Then Tabelle1.Cells(start1 - zähler1, 4).Interior.ColorIndex = 14
If zähler1 Mod 2 = 1 Then Tabelle1.Cells(start1 - zähler1, 4).Interior.ColorIndex = 28
End If
If zähler1 >= 5 Then MsgBox "Das Ding ist voll"
zähler1 = zähler1 + 1


End Sub

Private Sub btn2_Click()

If 5 >= zähler2 Then
If zähler2 Mod 2 = 0 Then Tabelle1.Cells(start2 - zähler2, 5).Interior.ColorIndex = 14
If zähler2 Mod 2 = 1 Then Tabelle1.Cells(start2 - zähler2, 5).Interior.ColorIndex = 28
End If
If zähler2 >= 5 Then MsgBox "Das Ding ist voll"
zähler2 = zähler2 + 1

End Sub

Private Sub btn3_Click()

If 5 >= zähler3 Then
If zähler3 Mod 2 = 0 Then Tabelle1.Cells(start3 - zähler3, 6).Interior.ColorIndex = 14
If zähler3 Mod 2 = 1 Then Tabelle1.Cells(start3 - zähler3, 6).Interior.ColorIndex = 28
End If
If zähler3 >= 5 Then MsgBox "Das Ding ist voll"
zähler3 = zähler3 + 1

End Sub

Private Sub btn4_Click()

If 5 >= zähler4 Then
If zähler4 Mod 2 = 0 Then Tabelle1.Cells(start4 - zähler4, 7).Interior.ColorIndex = 14
If zähler4 Mod 2 = 1 Then Tabelle1.Cells(start4 - zähler4, 7).Interior.ColorIndex = 28
End If
If zähler4 >= 5 Then MsgBox "Das Ding ist voll"
zähler4 = zähler4 + 1

End Sub

Private Sub btn5_Click()

If 5 >= zähler5 Then
If zähler5 Mod 2 = 0 Then Tabelle1.Cells(start5 - zähler5, 8).Interior.ColorIndex = 14
If zähler5 Mod 2 = 1 Then Tabelle1.Cells(start5 - zähler5, 8).Interior.ColorIndex = 28
End If
If zähler5 >= 5 Then MsgBox "Das Ding ist voll"
zähler5 = zähler5 + 1

End Sub

Private Sub btn6_Click()

If 5 >= zähler6 Then
If zähler6 Mod 2 = 0 Then Tabelle1.Cells(start6 - zähler6, 9).Interior.ColorIndex = 14
If zähler6 Mod 2 = 1 Then Tabelle1.Cells(start6 - zähler6, 9).Interior.ColorIndex = 28
End If
If zähler6 >= 5 Then MsgBox "Das Ding ist voll"
zähler6 = zähler6 + 1

End Sub

 

Das wären dann jeweils Einzeiler, z.B.

Range("A1:E20").Interior.ColorIndex = xlColorIndexNone