Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 231
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von Piedro vom 08.01.2017, 21:28 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Zellen mit blinkendem Hintergrund

 (744 Hits)

Hallo Zusammen,
ich hätte eine Frage an das Forum, vielleicht kann mir jemand helfen,
In meiner Excel Tabelle hab ich eine Spalte mit vielen Datums, wie kann man zwei
bzw. mehrere Zellen mit dem gleichen Datum mit einem Makro zum blinken bringen ?
Vielleicht mit einer Wenn-Funktion ?
Das Blinken sollte bei einem bestimmten Klick dann aufhören, vielleicht geht das mit
einem CommandButton ?
Und ein zweites Makro dass das gleiche macht anstelle des Datums ein Text in der
Zelle steht ? Spalten sollen dann frei wählbar sein.
Vielen Dank schon mal im voraus
Gruß Peter


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von Flupo vom 09.01.2017, 08:25 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Eine "Blinken"-Eigenschaft für Zellen gibt es meines Wissens nach
nicht. Man könnte sie in einem Makro in der Art nachbauen, dass man in
regelmäßigen Abständen die Vorder- oder Hintergrundfarbe ändert.
Ich nutze für sowas eher die bedingten Formatierungen.
Wenn man im Fehlerfall die Hintergrundfarbe auf einen markanten Wert
setzt, hilft das in den meisten Fällen schon weiter. Blinken muss da nicht
unbedingt sein.

Gruß Flupo


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst
Antwort 2 von Nighty__ vom 09.01.2017, 13:05 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hi Community ^^

Wenn es die Laufzeit erlaubt :-)
Ein Beispiel!

Gruss Night

Das Makro "BlinkendeFilterung" arbeitet in Wechselwirkung!
Ein wiederholter Start schaltet es wieder aus!

Public NextBlink As Double

Public FilteredRange As Range

Sub BlinkendeFilterung()
    Dim Qdate As Date
    If NextBlink = 0 Then
        Qdate = "01." & Mid(Date, 4, 7)
        ActiveSheet.Range("G1").AutoFilter Field:=1, Criteria1:="<" & CDbl(Qdate)
        Set FilteredRange = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
        ActiveSheet.Range("G1").AutoFilter
        Call BlinkStart
    Else
        Call BlinkStopp
    End If
End Sub

Sub BlinkStart()
If FilteredRange.Interior.ColorIndex = 3 Then
FilteredRange.Interior.ColorIndex = 0
Else
FilteredRange.Interior.ColorIndex = 3
End If
NextBlink = Now + TimeSerial(0, 0, 1)
Application.OnTime NextBlink, "BlinkStart", , True
End Sub

Sub BlinkStopp()
    On Error Resume Next
    Application.OnTime NextBlink, "BlinkStart", , False
    FilteredRange.Interior.ColorIndex = 0
    NextBlink = 0
End Sub


Antwort noch nicht bewertet
Antwort 3 von Nighty__ vom 09.01.2017, 13:07 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

hi all ^^

Es wird in Spalte G ein Datum gesucht das kleiner als der Laufende Monat ist
und in Blinkzustand versetzt

Gruss Nighty


Antwort noch nicht bewertet
Antwort 4 von Piedro vom 10.01.2017, 15:04 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hi Nighty,

kann man dein Makro auch so verändern das in der gleichen Spalte zwei oder mehrere Zellen blinken die das gleiche Datum enthalten ??
Ich habe dein Makro getestet, es funktioniert nur teilweise, bedeutet: ich habe in 5 zellen ein größeres Datum eingetragen als Januar 2017 und in 2 Zellen ein Datum aus 2016. Die zellen mit Datum aus 2016 blinken, wenn ich aber dann in den zellen aus 2016 ein Datum nach Januar 2017 eintrage und die Datei speicher und wieder öffne, blinken noch immer diese zwei zellen obwohl sie jetzt größer sind als das heutige Datum !?

Gruß Peter


Antwort noch nicht bewertet
Antwort 5 von Nighty__ vom 10.01.2017, 17:41 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

hi all ^^

Nutze den Filter!

gruss nighty

"BlinkStopp" Makro ergänzt

Sub BlinkStopp()
On Error Resume Next
Application.OnTime NextBlink, "BlinkStart", , False
FilteredRange.Interior.ColorIndex = 0
NextBlink = 0
FilteredRange = Nothing
End Sub


Antwort noch nicht bewertet
Antwort 6 von Piedro vom 10.01.2017, 19:50 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hi Nighty,

also ich habe überhaupt keine Ahnung wie man ein Makro schreibt, ich weiß zwar wo man so ein Makro einfügt und des startet, das ist aber auch schon alles. Erstens weiß ich nicht was du meinst mit "Nutze den Filter" , zweitens ist es nicht das was ich suchte. Z.B habe ich die Datums untereinander in einer Spalte geschrieben, A1 = 10.01.2017, A2 = 15.01.2017, A3 = 20.01.2017, A4 = 25.01.2017, A5 = 30.01.2017, A6 = 15.01.2017, A7 = 15.01.2017. Mein Wunsch wäre jetzt das ein Makro die Zellen A2, A6 und A7 zum Blinken bringt (gleiches Datum). In meiner Tabellenspalte sind nur Geburtstage eingetragen, in etwa über 2000, damit ich schnell einen Doppeleintrag oder Mehrfacheintrag finde soll das Makro diese Spalte durchlaufen und diese Doppel- oder Mehrfacheinträge zum Blinken bringen.

Gruß Peter


Antwort noch nicht bewertet
Antwort 7 von Nighty__ vom 11.01.2017, 09:48 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Peter ^^

Blinkt auf einmalige gefilterte Daten in Spalte A!

Andersherum habe ich noch keine Idee!

Gruss Nighty

Public NextBlink As Double

Public FilteredRange As Object

Sub AusblendenZweiKreterien()
    If NextBlink = 0 Then
        Dim LZeile As Long
        LZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        ActiveSheet.Range("A1:A" & LZeile).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
        Set FilteredRange = Range("A1:A" & LZeile).SpecialCells(xlCellTypeVisible).Cells
        ActiveSheet.Range("A1:A" & LZeile).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
        Call BlinkStart
    Else
        Call BlinkStopp
    End If
End Sub

Sub BlinkStart()
If FilteredRange.Interior.ColorIndex = 3 Then
FilteredRange.Interior.ColorIndex = 0
Else
FilteredRange.Interior.ColorIndex = 3
End If
NextBlink = Now + TimeSerial(0, 0, 1)
Application.OnTime NextBlink, "BlinkStart", , True
End Sub

Sub BlinkStopp()
    On Error Resume Next
    Application.OnTime NextBlink, "BlinkStart", , False
    FilteredRange.Interior.ColorIndex = 0
    NextBlink = 0
    FilteredRange = Nothing
End Sub


Antwort noch nicht bewertet
Antwort 8 von Nighty__ vom 11.01.2017, 21:23 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Peter und All ^^

Hab es hinbekommen :-)

Gruss Nghty

Doppelte in Spalte A blinken,wiederholter Start schaltet es wieder aus

Public NextBlink As Double

Public FilteredRange As Object

Sub DoppelteBlinken()
    If NextBlink = 0 Then
        Dim LZeile As Long
        Dim FilteredRangeSp As Object
        LZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        ActiveSheet.Range("A1:A" & LZeile).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
        Set FilteredRangeSp = Range("A1:A" & LZeile).SpecialCells(xlCellTypeVisible).Cells
        ActiveSheet.Range("A1:A" & LZeile).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
        FilteredRangeSp.EntireRow.Hidden = True
        Set FilteredRange = Range("A1:A" & LZeile).SpecialCells(xlCellTypeVisible).Cells
        FilteredRangeSp.EntireRow.Hidden = False
        Call BlinkStart
    Else
        Call BlinkStopp
    End If
End Sub

Sub BlinkStart()
If FilteredRange.Interior.ColorIndex = 3 Then
FilteredRange.Interior.ColorIndex = 0
Else
FilteredRange.Interior.ColorIndex = 3
End If
NextBlink = Now + TimeSerial(0, 0, 1)
Application.OnTime NextBlink, "BlinkStart", , True
End Sub

Sub BlinkStopp()
    On Error Resume Next
    Application.OnTime NextBlink, "BlinkStart", , False
    FilteredRange.Interior.ColorIndex = 0
    NextBlink = 0
    FilteredRange = Nothing
End Sub
[/code]


Antwort noch nicht bewertet
Antwort 9 von Piedro vom 12.01.2017, 11:53 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Nighty,


Am Anfang hat es mich gefreut das es geklappt hat dann habe ich mal verschiedene Varianten getestet mit dem Makro, zuerst die, die ich schon aufgeschrieben habe A1 = 10.01.2017, A2 = 15.01.2017, A3 = 20.01.2017, A4 = 25.01.2017, A5 = 30.01.2017, A6 = 15.01.2017, A7 = 15.01.2017, es BLINKEN A6 und A7, A2 NICHT. Dann hab ich was anderes probiert, ich habe dann in A10 nochmal 15.01.2017 eingetragen, die Zelle hat dann auch geblinkt und A2 noch immer nicht. Außerdem haben zusätzlich auch die LEEREN Zellen A8, A9 auch geblinkt !? Teste mal indem du die oberen Datums stehen lässt von A1 bis A7 und versuche mal z.B. in A15 oder A25 oder in zwei weiteren Zellen ein Datum einzutragen welches schon in den oberen Zellen vorkommt. Dazwischen liegen dann leere Zellen, die werden dann auch blinken, was nicht mein Wunsch wäre und zusätzlich müsste ja auch die Zelle blinken die in den oberen 7 Zellen vorkommt.
Ich hoffe und bin sicher du kriegst das auch noch hin, vorerst vielen, vielen Dank für deine Mühe und lass dir Zeit, es eilt nicht so sehr

Gruß Peter


Antwort noch nicht bewertet
Antwort 10 von Nighty__ vom 12.01.2017, 12:18 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Peter ^^

1)
Der Spezialfilter prüft auf doppelte,ich wählte diese Methode,weil es recht flink ist
Bei 3 Treffer des selben Wertes werden 2 angezeigt,bei 4 entsprechend 3 etc.
Ich überleg mir was!

2)
Leerzellen könnten durch vorige Sortierung ausgeschlossen werden

Gruss Nighty


Antwort noch nicht bewertet
Antwort 11 von Nighty__ vom 12.01.2017, 17:02 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Peter ^^

Probier mal .-)

Gruss Nighty

Public NextBlink As Double

Public FilteredRange As Object

Sub DoppelteBlinken()
    If NextBlink = 0 Then
        Dim LZeile As Long, FeldIndex As Long
        Dim DatenSpA As Variant
        LZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
        Range("A2:IV" & LZeile).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        LZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
        DatenSpA = ActiveSheet.Range("A1:A" & LZeile)
        For FeldIndex = 2 To LZeile - 1
            If DatenSpA(FeldIndex, 1) <> DatenSpA(FeldIndex + 1, 1) And DatenSpA(FeldIndex, 1) <> DatenSpA(FeldIndex - 1, 1) And DatenSpA(FeldIndex, 1) <> "" Then DatenSpA(FeldIndex, 1) = "x"
        Next FeldIndex
        ActiveSheet.Range(Cells(1, Columns.Count), Cells(LZeile, Columns.Count)) = DatenSpA
        ActiveSheet.Cells(1, Columns.Count).AutoFilter Field:=1, Criteria1:="<>x"
        Set FilteredRange = ActiveSheet.Range("A1:A" & LZeile - 1).SpecialCells(xlCellTypeVisible)
        ActiveSheet.Cells(1, Columns.Count).AutoFilter
        Range(Cells(1, Columns.Count), Cells(LZeile, Columns.Count)).Clear
        Call BlinkStart
    Else
        Call BlinkStopp
    End If
End Sub

Sub BlinkStart()
If FilteredRange.Interior.ColorIndex = 3 Then
FilteredRange.Interior.ColorIndex = 0
Else
FilteredRange.Interior.ColorIndex = 3
End If
NextBlink = Now + TimeSerial(0, 0, 1)
Application.OnTime NextBlink, "BlinkStart", , True
End Sub

Sub BlinkStopp()
    On Error Resume Next
    Application.OnTime NextBlink, "BlinkStart", , False
    FilteredRange.Interior.ColorIndex = 0
    NextBlink = 0
    FilteredRange = Nothing
End Sub


Antwort noch nicht bewertet
Antwort 12 von Piedro vom 13.01.2017, 18:39 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Nighty,

also das mit dem Blinken funktioniert nicht richtig, jetzt verschiebt es die Datums von den unteren Zellen, also es sortiert sie in aufsteigender Reihenfolge mit dem kleinsten Datum oben und es blinken der 10.01 und 3 Zellen mit dem 15.01.
Ich will mich trotzdem bedanken für deine Mühe und die Zeit die du für mich geopfert hast.
Habe im Netz jetzt etwas anderes gefunden mit bedingter Formatierung in 2 Farben und mit einem Code mit welchem man die Zellen abwechselnd zum Blinken bringt. Das genügt mir vollkommen.
Also nochmals vielen , vielen Dank

Gruß Peter


Antwort noch nicht bewertet




Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Fri Sep 22 13:37:38 2017