none
Blinkende Schrift und Zelle RRS feed

  • Frage

  • Ich habe folgende Prozedur geschrieben:

    Voraussetzung: EXCEL 2007,

    Beispiel in der Spalte H steht in verschiedenen Zelle die Ziffer 1.  In Spalte A soll das Wort" Kaufen" blinken und grün unterlegt sein.

    In meinem Beispiel steht das Wort "Kaufen" schon in der Zelle.

    Folgendes Problem steht ich komme aus der inneren Scheife nicht raus. Nach dem Blinken  soll die nächste Zelle in Spalte H gesucht werden, die die Ziffer "1" enthält und so fort.

    Wer kann helfen? Besitze nur Grundkenntnise im VBA Makro schreiben:

    Danke für die Antworten   Alfi

    '---------------------------------------------------

    Sub Funktion_BlinkenOffset()
    'Sub ersteFarbe()
        Dim i As Integer
        i = 1
        i = i + 1
        If i = 10 Then
      
        End If
           
        'If Range("H1").Offset(i, 1) = 1 Then
        With Selection.Interior
                ThisWorkbook.Worksheets("Tabelle1").Range("A1").Offset(i, 1).Font.Color = RGB(0, 0, 0)
        ThisWorkbook.Worksheets("Tabelle1").Range("A1").Offset(i, 1).Interior.ColorIndex = 4
           
        End With
        VaEt = Now + TimeValue("00:00:01")
        Application.OnTime VaEt, "zweiteFarbe3"
        'End If
    End Sub

    Sub zweiteFarbe3()
     Dim i As Integer
        i = 1
        i = i + 1
        If i = 14 Then
        End If

        ThisWorkbook.Worksheets("Tabelle1").Range("A1").Offset(i, 1).Font.Color = xlNone
            ThisWorkbook.Worksheets("Tabelle1").Range("A1").Offset(i, 1).Interior.ColorIndex = xlNone
            VaEt = Now + TimeValue("00:00:01")
        Application.OnTime VaEt, "ersteFarbe"

    End Sub

    Montag, 29. April 2013 14:43

Alle Antworten

  • Ich habe eine Lösung gefunden. For Next-Schleife sucht in Spalte H alle Zellen mit 1 und Programm 1 und 2 laufen wechselseitig so dass der Eindruck des Blinckens entsteht,

    Sub Blinken()
        Dim i As Integer
        Dim j As Integer


    Sheets("Tabelle1").Select

    Range("H1").Select

    'Set rng = ActiveCell.Offset(0, 0)
    For i = 0 To 10      'äußere Schleife (beginnt bei 0)
       
        j = 1                   'Initialisierung der inneren Schleife
          
       Do Until j = 10    'innere Schleife, läuft maximal bis Endwert
           If Range("H1").Offset(i, 0).Value = 1 Then
         Range("A1").Offset(i, 0).Font.Color = RGB(0, 0, 0)
         Range("A1").Offset(i, 0).Interior.ColorIndex = 4
         VaEt = Now + TimeValue("00:00:01")
         End If
       
        Exit Do
          j = j + 1
      
      Loop
        Next i
      Application.OnTime VaEt, "Blinken_Gegen"
    End Sub


    Sub Blinken_Gegen()
        Dim i As Integer
        Dim j As Integer


    Sheets("Tabelle1").Select

    Range("H1").Select

    'Set rng = ActiveCell.Offset(0, 0)
    For i = 0 To 10      'äußere Schleife (beginnt bei 0)
       
        j = 1
          
       Do Until j = 10    'innere Schleife, läuft maximal bis Endwert
           If Range("H1").Offset(i, 0).Value = 1 Then
         Range("A1").Offset(i, 0).Font.Color = xlNone
         Range("A1").Offset(i, 0).Interior.ColorIndex = xlNone
         VaEt = Now + TimeValue("00:00:01")
         End If
       
        Exit Do
          j = j + 1
      
      Loop
        Next i
        Application.OnTime VaEt, "Blinken"

    End Sub

     

    Montag, 29. April 2013 18:42