|
So hallo zusammen,
nach einem langen Morgen mit 5h voller hoffnungslosen Versuchen mein Programm zu schreiben, wende ich mich nun doch an euch ;)
Und zwar muss ich fürs Studium ein Programm in VBA schreiben, welches via Userform ein eingegebenes Wort, rückwärts geschrieben wieder ausgibt.
Das hab ich auch alles hinbekommen. Als kleine "Schwierigkeit" muss das Programm nun noch überprüfen, ob das Wort vorwärts wie rückwärts gleich ist, also Otto oder Anna...
Und wenn dies der Fall ist, soll die Userform 10 mal rot weiß blinken...
Und das Blinken bekomm ich einfach nicht elegant hin ;)
Mein bisheriges Programm sieht so aus:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Option Explicit
Public Eingabe, Ausgabe As String
Private Sub bt_start_Click()
Eingabe = Eingabefeld.Value
If Eingabe = "" Then
MsgBox ("Bitte ein Wort eingeben")
End If
Ausgabe = StrReverse(Eingabe)
Ausgabefeld.Value = Ausgabe
If LCase(Eingabe) = LCase(Ausgabe) Then
XXXX
End If
End Sub
|
Damit die Userform blinkt hab ich schon die application.wait methode, die ontime methode, sleep, usw versucht, aber bin immer gescheitert.
Lediglich eins hat funktioniert, war jedoch alles andere als elegant:
1 2 3 4 5 6 7 | Application.OnTime Now() + TimeSerial(0, 0, 1), "Farbe1"
Application.OnTime Now() + TimeSerial(0, 0, 2), "Farbe2"
Application.OnTime Now() + TimeSerial(0, 0, 3), "Farbe1"
Application.OnTime Now() + TimeSerial(0, 0, 4), "Farbe2"
|
usw... das ganze dann 20 Mal...
hat jemand ne Idee wie das eleganter geht? Eine "for next schleife" hat auch nicht geklappt...
Danke und viele Grüße
John
|