Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem mit Makro Code ? Blinkende Zeile
zurück: *T*Speichern als PDF - Papierformat weiter: *T*R² Potenzfunktion?!! Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Wind1945
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Mai 2011, 11:53
Rufname:

Problem mit Makro Code ? Blinkende Zeile - Problem mit Makro Code ? Blinkende Zeile

Nach oben
       Version: Office 2007

Hallo Leute

Mein Problem ich möchte wenn ein Wert = 0 wird, das dann "Kirmes" ist. Es soll dann die Zeile blinken von A bis J, in der entsprechende Zelle. Die Zellen sind in der Spalte G ("G1:G10"). Ich habe natürlich schon Im Forum was gefunden hier der Link (http://www.office-loesung.de/ftopic105733_0_0_asc.php ) ab ich habe Probleme den Code anzupassen.

extreme Probleme habe ich mit dem CODE, welcher in das "Modul" eingespeichert wird hier meine CODE-Schnipsel.

Achja vorab Danke an Nepumuk, der Codes geschrieben hat

Arbeitsmappe:

Option Explicit

Private Sub Workbook_Activate()
Tabelle1.Worksheet_Calculate
End Sub

Private Sub Workbook_Deactivate()
Call prcResetTimer
End Sub

Tabelle1:

Option Explicit

Public Sub Worksheet_Calculate()
Dim objCell As Range
Dim blnNot_0 As Boolean
For Each objCell In Range("G1:G8") 'Spalte die abgesucht wird
If objCell.Value = 3 Then
blnNot_0 = True
Me.Range("A1:J9").Interior.ColorIndex = xlNone 'Bereich der blinken soll
Call prcResetTimer
Exit For
End If
Next
If blnNot_0 Then
blnFlash = True
Call prcFlash
Else
blnFlash = False
End If
End Sub

Modul:

Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)

Public blnFlash As Boolean

Public Sub prcFlash()
Dim lngRow As Long
If blnFlash Then
With Tabelle1
For lngRow = 1 To 8 ' Welche Zeilen blinken von wo
.Range(.Cells(lngRow, 1), Cells(lngRow, 9)).Interior.ColorIndex = _
IIf(.Cells(lngRow, 1).Interior.ColorIndex = 3, xlNone, 3)
.Range(.Cells(lngRow, 1), Cells(lngRow, 9)).Interior.ColorIndex = xlNone
Next
End With
Application.OnTime Time + TimeSerial(0, 0, 10), "prcFlash"
Else
Tabelle1.Range("A1:J9").Interior.ColorIndex = xlNone
End If
End Sub

Public Sub prcResetTimer()
Dim intIndex As Integer
If blnFlash Then
blnFlash = False
For intIndex = 1 To 100
Sleep 10
DoEvents
Next
End If
End Sub

Grüße
werni
Solala


Verfasst am:
21. Mai 2011, 20:53
Rufname: werni
Wohnort: Ennenda GL

AW: Problem mit Makro Code ? Blinkende Zeile - AW: Problem mit Makro Code ? Blinkende Zeile

Nach oben
       Version: Office 2007

Hallo Wind

Versuch es mal mit diesen Codes und der Bedingten Formatierung.

Microsoft Excel Objekt DieseArbeitsmappe
Option Explicit 
Private Sub Workbook_Activate() 
Start 
End Sub 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
Stoppen 
End Sub 
 
Private Sub Workbook_Deactivate() 
Stoppen 
End Sub 

Code eingefügt mit VBA in HTML 2.0.0.3

Modul Taktgeber
Option Explicit 
Private UhrAktiv As Boolean 
Dim lngI As Long 
Public Sub Start() 
    UhrAktiv = True 
    MSchleife 
End Sub 
Public Sub MSchleife() 
   [IV1] = "" 
   If UhrAktiv = True Then 
    Application.OnTime Now + TimeValue("00:00:01"), "MSchleife" 
    End If 
End Sub 
Public Sub Stoppen() 
    UhrAktiv = False 
    For lngI = 1 To 100000 
        DoEvents 
    Next 
End Sub 

Code eingefügt mit VBA in HTML 2.0.0.3

Arbeitsblatt mit dem Namen 'Tabelle1'
 ABCDEFGHIJ
1Z32xxxxxxxxyyyyyyyzzzz6   
2A31xxxxxxxxyyyyyyyzzzz3   
3B11xxxxxxxxyyyyyyyzzzz1   
4C11xxxxxxxxyyyyyyyzzzz1   
5D13xxxxxxxxyyyyyyyzzzz3   
6E20xxxxxxxxyyyyyyyzzzz0   
7F31xxxxxxxxyyyyyyyzzzz3   
8G39xxxxxxxxyyyyyyyzzzz27   
9H47xxxxxxxxyyyyyyyzzzz28   
10I58xxxxxxxxyyyyyyyzzzz40   

ZelleFormel
G1=B1*C1
G2=B2*C2
G3=B3*C3
G4=B4*C4
G5=B5*C5
G6=B6*C6
G7=B7*C7
G8=B8*C8
G9=B9*C9
G10=B10*C10

Zellebedingte Formatierung...Format
A11: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=1)abc
A12: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=0)abc
B11: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=1)abc
B12: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=0)abc
C11: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=1)abc
C12: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=0)abc
D11: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=1)abc
D12: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=0)abc
E11: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=1)abc
E12: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=0)abc
F11: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=1)abc
F12: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=0)abc
G11: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=1)abc
G12: =UND($G1<>"";$G1=0;REST(SEKUNDE(JETZT());2)=0)abc
A21: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=1)abc
A22: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=0)abc
B21: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=1)abc
B22: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=0)abc
C21: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=1)abc
C22: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=0)abc
D21: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=1)abc
D22: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=0)abc
E21: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=1)abc
E22: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=0)abc
F21: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=1)abc
F22: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=0)abc
G21: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=1)abc
G22: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=0)abc
H21: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=1)abc
H22: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=0)abc
I21: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=1)abc
I22: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=0)abc
J21: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=1)abc
J22: =UND($G2<>"";$G2=0;REST(SEKUNDE(JETZT());2)=0)abc
A31: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=1)abc
A32: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=0)abc
B31: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=1)abc
B32: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=0)abc
C31: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=1)abc
C32: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=0)abc
D31: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=1)abc
D32: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=0)abc
E31: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=1)abc
E32: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=0)abc
F31: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=1)abc
F32: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=0)abc
G31: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=1)abc
G32: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=0)abc
H31: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=1)abc
H32: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=0)abc
I31: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=1)abc
I32: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=0)abc
J31: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=1)abc
J32: =UND($G3<>"";$G3=0;REST(SEKUNDE(JETZT());2)=0)abc
A41: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=1)abc
A42: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=0)abc
B41: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=1)abc
B42: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=0)abc
C41: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=1)abc
C42: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=0)abc
D41: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=1)abc
D42: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=0)abc
E41: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=1)abc
E42: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=0)abc
F41: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=1)abc
F42: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=0)abc
G41: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=1)abc
G42: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=0)abc
H41: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=1)abc
H42: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=0)abc
I41: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=1)abc
I42: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=0)abc
J41: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=1)abc
J42: =UND($G4<>"";$G4=0;REST(SEKUNDE(JETZT());2)=0)abc
A51: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=1)abc
A52: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=0)abc
B51: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=1)abc
B52: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=0)abc
C51: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=1)abc
C52: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=0)abc
D51: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=1)abc
D52: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=0)abc
E51: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=1)abc
E52: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=0)abc
F51: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=1)abc
F52: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=0)abc
G51: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=1)abc
G52: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=0)abc
H51: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=1)abc
H52: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=0)abc
I51: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=1)abc
I52: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=0)abc
J51: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=1)abc
J52: =UND($G5<>"";$G5=0;REST(SEKUNDE(JETZT());2)=0)abc
A61: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=1)abc
A62: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=0)abc
B61: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=1)abc
B62: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=0)abc
C61: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=1)abc
C62: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=0)abc
D61: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=1)abc
D62: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=0)abc
E61: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=1)abc
E62: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=0)abc
F61: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=1)abc
F62: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=0)abc
G61: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=1)abc
G62: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=0)abc
H61: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=1)abc
H62: =UND($G6<>"";$G6=0;REST(SEKUNDE(JETZT());2)=0)
_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Wind1945
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Mai 2011, 09:06
Rufname:


AW: Problem mit Makro Code ? Blinkende Zeile - AW: Problem mit Makro Code ? Blinkende Zeile

Nach oben
       Version: Office 2007

Hi Werni

vielen Dank für deine Lösung funktioniert super. Ist meiner Meinung nach, die beste Lösung die ich je im Netz gesehen habe.

Gruß
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Shortcuts ändern oder in ein Makro einbinden? 0 Tobstar 5683 10. Okt 2005, 18:34
Tobstar Shortcuts ändern oder in ein Makro einbinden?
Keine neuen Beiträge Excel Formeln: Frage zu Spalte ==> Zeile 2 Sven 15 519 23. Sep 2005, 11:03
Sven 15 Frage zu Spalte ==> Zeile
Keine neuen Beiträge Excel Formeln: SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1? 4 homer_134 3721 20. Sep 2005, 23:48
homer_134 SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1?
Keine neuen Beiträge Excel Formeln: Vergleich Zeile mit einem Bereich (in einer WENN Funktion)? 2 GelbesAuge 2395 22. Aug 2005, 21:24
Gast Vergleich Zeile mit einem Bereich (in einer WENN Funktion)?
Keine neuen Beiträge Excel Formeln: [Excel 2003] Wenn zeile D8-D38 1 dann wert +1 1 quicksilver 728 22. Aug 2005, 11:15
KingPing [Excel 2003] Wenn zeile D8-D38 1 dann wert +1
Keine neuen Beiträge Excel Formeln: Zeile einfügen - Formeln mit einfügen 0 Pazi 648 03. Aug 2005, 08:33
Pazi Zeile einfügen - Formeln mit einfügen
Keine neuen Beiträge Excel Formeln: Zeile einfügen - Verknüpfungen beibehalten **fridgenep** 2 Pack 1680 15. Jun 2005, 13:10
c0bRa Zeile einfügen - Verknüpfungen beibehalten **fridgenep**
Keine neuen Beiträge Excel Formeln: Makro einbinden 1 danyboy 856 03. Jun 2005, 15:50
fl618 Makro einbinden
Keine neuen Beiträge Excel Formeln: Letzte ausgefülte Zeile suche 1 kira 1073 02. Jun 2005, 15:48
fl618 Letzte ausgefülte Zeile suche
Keine neuen Beiträge Excel Formeln: Spalte mit Zahlen mit einer Zeile multiplizieren !? 2 McK 1268 26. Mai 2005, 16:10
McK Spalte mit Zahlen mit einer Zeile multiplizieren !?
Keine neuen Beiträge Excel Formeln: Formel oder Makro??? 4 Karlito 1259 16. Mai 2005, 13:10
Gast Formel oder Makro???
Keine neuen Beiträge Excel Formeln: Zeile in fremder Tabelle ermitteln? 6 CaBe 1357 06. Apr 2005, 16:05
fl618 Zeile in fremder Tabelle ermitteln?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web