Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle blinken lassen

Zelle blinken lassen
30.11.2002 17:00:53
Andrea
Hallo,
ich möchte, daß Zelle "A1" bei einem, durch eine in dieser Zelle stehenden Formel, erzeugten Wert von "1" automatisch blinkt und bei "0" wieder aufhört. Habe mit Macros nocht nicht so große Erfahrungen, wäre dann natürlich über eine ausführliche Beschreibung dankbar.
Bis dann
Andrea

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zelle blinken lassen
30.11.2002 17:20:02
Hajo
Hallo Andrea

das ist auch nich so einfach. Hier mal ein Code der bei 10 die Zelle A1 blinken läst. Bei anderen Werten blinkt Sie nicht.


In VBA

in DieseArbeitsmappe
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Ende
End Sub

Private Sub Workbook_Open()
    Farbe = ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex
    If ThisWorkbook.Worksheets("Tabelle1").Range("A1") = 10 Then ersteFarbe
End Sub


in ein Modul
Option Explicit
Public ET As Variant
Public Farbe As Integer

Sub ersteFarbe()
    ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = 3
    ET = Now + TimeValue("00:00:01")
    Application.OnTime ET, "zweiteFarbe"
End Sub

Sub zweiteFarbe()
    ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = 33
    ET = Now + TimeValue("00:00:01")
    Application.OnTime ET, "ersteFarbe"
End Sub

Sub Ende()
    On Error Resume Next
    Application.OnTime EarliestTime:=ET, Procedure:="ErsteFarbe", Schedule:=False
    Application.OnTime EarliestTime:=ET, Procedure:="zweiteFarbe", Schedule:=False
    ET = ""
    ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = Farbe
End Sub

in die Tabelle
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") = 10 Then
         If ET = "" Then ersteFarbe
    Else
        Ende
    End If
End Sub

 

     Code eingefügt mit Syntaxhighlighter 1.16


Gruß Hajo
Anzeige
Re: Zelle blinken lassen
30.11.2002 17:24:09
Ralf
Hallo

In VBA
in DieseArbeitsmappe

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Ende
End Sub

Private Sub Workbook_Open()
Farbe = ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex
If ThisWorkbook.Worksheets("Tabelle1").Range("A1") = 10 Then ersteFarbe
End Sub


in ein Modul
Option Explicit
Public ET As Variant
Public Farbe As Integer

Sub ersteFarbe()
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = 3
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "zweiteFarbe"
End Sub

Sub zweiteFarbe()
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = 33
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "ersteFarbe"
End Sub

Sub Ende()
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="ErsteFarbe", Schedule:=False
Application.OnTime EarliestTime:=ET, Procedure:="zweiteFarbe", Schedule:=False
ET = ""
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = Farbe
End Sub

in die Tabelle
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 10 Then
If ET = "" Then ersteFarbe
Else
Ende
End If
End Sub

mfg Ralf

Anzeige
Re: Zelle blinken lassen
30.11.2002 17:28:26
Hajo
Hallo Ralf

ich halte es bei meinen Beiträgen immer so das ich bei Sachen die nicht von mir sind die Quelle angebe.

Gruß Hajo

Re: Zelle blinken lassen
30.11.2002 17:37:49
Andrea
Hallo Hajo,
danke für die schnelle Antwort. Irgendwie klappt das bei mir aber nicht. Es kommt die Meldung "Fehler beim Kompilieren: Variable nicht definiert". Das ET in der 5. Zeile von ganz unten (habe die letzten Zeilen nochmal eingefügt) ist dann blau unterlegt.

...

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 10 Then
If ET = "" Then ersteFarbe
Else
Ende
End If
End Sub


Vielleicht gibt es da ja eine Lösung.
Bis dann und nochmal DANKE.
Andrea

Anzeige
Re: Zelle blinken lassen
30.11.2002 17:47:13
Hajo
Hallo Andrea

hast Du den Code an die Stellen kopiert wie ich es geschrieben habe??
Mir scheint Du hast nicht den Code ins Modul kopiert.

Gruß Hajo

Re: Zelle blinken lassen
30.11.2002 18:12:06
Andrea
Hallo Hajo,
Hier meine Schrittreihenfolge. Habe eine neue Datei geöffnet. Bin mit Rechtsklick auf das Registerblatt der ersten Tabelle, dann auf "Code". Habe im VBA-Explorer dann "diese Arbeitsmappe" angeklickt. Dort habe ich den ersten Teil Deines Codes bis zum fünften End Sub reinkopiert. Anschließend den Rest des Codes in "Tabelle 1" eingefügt. Ich bin wie gesagt, noch nicht ganz mit VBA vertraut und hoffe natürlich, alles richtig gemacht zu haben.
Gruß Andrea
Anzeige
Re: Zelle blinken lassen
30.11.2002 18:15:14
Hajo
Hallo Andrea

schaue noch mal genau in mein Posting, da stand

in DieseArbeitsmappe
in ein Modul
in die Tabelle

Ansonsten kann ich Dir nur meine Datei schicken.

Gruß Hajo

Gruß Hajo

Re: Zelle blinken lassen
30.11.2002 18:25:27
Andrea
Hallo Hajo,

KLASSE, SUPER, TOLL!

Es hat geklappt, ich bin zufrieden.

Kompliment und DANKE, der Abend ist gerettet.

Andrea


Re: Zelle blinken lassen
30.11.2002 21:47:43
Ralf
Gib nur dann einen guten Rat, wenn du gefragt wirst.
Ich habe dich nicht gefragt.OK
Re: Zelle blinken lassen
30.11.2002 21:58:34
PeterW
Hallo Ralf,

selbst auf die Gefahr hin, mir Deinen Unwillen zuzuziehen, so geht es wirklich nicht. Das Forum lebt auch davon, dass Lösungen weiterentwickelt werden.

Jeder der hier schreibt geht das Wagnis ein, sich mit seinem möglichen falschen Lösungsansatz der Lächerlichkeit preis zu geben. Wenn es sehr gute Lösungsansätze gibt ist es wohl mehr als fair, bei Verwendung dieser Ansätze auf den Autor hinzuweisen.

Gruß
Peter

Anzeige
Der Ton macht die Musik...
30.11.2002 22:04:07
Ramses
... und du hast keine Ahnung was überhaupt ein Ton ist !

Die Arroganz deiner Antwort ist würdig, auf den Platz 1 der Überheblichkeitsskala gewählt zu werden.

Hoffentlich bist du die unrühmliche Ausnahme und das hier wird nicht zur Regel, sonst werde ich meine Hilfestellungen und Antworten einstellen.


Rainer

Der Ton macht die Musik...
30.11.2002 22:04:08
Ramses
... und du hast keine Ahnung was überhaupt ein Ton ist !

Die Arroganz deiner Antwort ist würdig, auf den Platz 1 der Überheblichkeitsskala gewählt zu werden.

Hoffentlich bist du die unrühmliche Ausnahme und das hier wird nicht zur Regel, sonst werde ich meine Hilfestellungen und Antworten einstellen.


Rainer

Anzeige
Re: Der Ton macht die Musik...
30.11.2002 22:16:35
Ralf

Am Sonntag morgen hab ich Zeit, da werde ich den Versuch machen, kräftig drüber abzulachen!
übrigens
Ich wurde mit Erziehung nicht behelligt. Seit dem 14. Lebensjahr habe ich machen können, was ich wollte.

und noch was
Sag mir, was Du von mir hältst, und ich sage Dir, was Du mich kannst!

Re: Zelle blinken lassen
30.11.2002 22:21:40
Ralf
Hi Peter
Was geht dir das an
Wer im Dunklen sitzt, zündet sich einen Traum an.
Und
Den Ahnungslosen schenkt der Herr einen leichten Schlaf.


Das war ein Nachteil...
30.11.2002 22:21:46
Ramses
... das mit der Erziehung meine ich :-)

Wie alt bist Du?
14 1/2

Jetzt klinke ich mich aus.
Das hier interessiert sowieso niemand aber musste noch gesagt werden.

Anzeige
Re: Zelle blinken lassen
30.11.2002 22:26:41
PeterW
Hallo Rolf,

was mich das angeht ist leicht erklärt... ach, vergiss es, jedes weitere Wort an Dich wäre Zeitverschwendung.

Peter

"Ralf" gibt ja nicht mal seine E-Mailadresse an ..
30.11.2002 23:06:27
Volker Croll
... warum wohl ?

Gruss Volker

Wo Für ?
01.12.2002 10:28:04
hans
Ich denke das braucht kein Mensch.

Stimmt ! ...
01.12.2002 10:47:15
Volker Croll
... meinte damit sein anonymes Versteckspiel.

199 Forumthreads zu ähnlichen Themen

Labels u. TextBoxen in UserForm blinken lassen
Lenhard

Moin Excellianer!
Wie bringe ich in einem UserForm die Caption mehrerer Labels und den Hintergrund von TextBoxen (z.B. Gelb/Weiß im Wechsel) zum blinken, wenn in der TextBox1 ein Wert steht? Wenn in der TextBox1 kein Wert steht, dann soll es auch nicht blinken in den Labels und TextBoxen.
19.12.2008 17:16:00
Thread-ID: 1034201
21 Beiträge
Anzeige
vba; markieren ohne 1.Zelle/Überschrift
Günter

Guten Morgen,
wie bekomme ich es hin, über VBA (vielleicht über einen Button mit Makrohinterlegung),
dass eine markierte Spalte alles ohne 1.Zelle/Überschrift kopiert wird?
Schönen Gruß
Günter
13.08.2009 08:37:35
Thread-ID: 1095472
5 Beiträge
von Textfeld auf Zelle übertragen (ohne VBA)
Textfeld

Hallo und schönen Guten Morgen,
hätte mal wieder eine Frage.
Ich habe in Tabelle1 ein Textfeld (Zeichenpalette) eingefügt.
Wie schaff ich es den Inhalt dieses Texfeldes in eine Zelle der Tabelle2 zu übertragen?
Andersrum geht es wunderbar Textfeld markieren, Bearbeitungszeile,...
22.07.2010 10:25:30
Thread-ID: 1168265
6 Beiträge
Anzeige
ZELLE.ZUORDNEN zusammen mit bedingter Formatierung
Annja

Hallo,
bis jetzt habe ich ZELLE.ZUORDNEN(63;...) nur eingesetzt, wenn explizit auch eine Farbe für eine Zelle gesetzt war.
Nun habe ich den Fall, dass die Farbe einer Zelle über bedingte Formatierung gesetzt wird, und als Ergebnis aus ZELLE.ZUORDNEN(63;...) immer nur 0 rauskommt, d.h. k...
08.11.2012 11:43:27
Thread-ID: 1285810
9 Beiträge
Zellen bedingt neu Auflisten (ohne VBA/Filter)
SebastianSchelb

Hallo liebe Forumuser,
ich brauche euere Hilfe.
Ich habe diese Tabelle:
https://www.herber.de/bbs/user/83422.xls
Die Matrix B:C soll durchsucht werden und bei von allen Zellen, in welcher ein "X" ist, die zugehörige Bezeichnung in einer neuen Tabelle (ohne Leerzellen) auflisten...
16.01.2013 12:03:34
Thread-ID: 1294571
3 Beiträge
TextBox in UF blinken lassen
Mister

Guten Morgen,
wie kann ich ein TextBox 5 Mal blinken lassen beim Starten einer UserForm?
Gruß
Martin
05.06.2013 08:04:00
Thread-ID: 1316332
4 Beiträge
Bestimmte Werte in Zellen blinken lassen
ropa

Hallo
ist es möglich Werte ab einer bestimmten Höhe optisch blinken zu lassen
Wenn möglich ohne Makro.
Viele Grüße
Roland
16.01.2014 09:29:18
Thread-ID: 1345412
6 Beiträge
Zellen blinken lassen
Thorsten

Für heute wirklich die letzte Frage
kann man Zellen blinken lassen?Thorsten
23.07.2002 16:14:34
Thread-ID: 139589
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
20
5
4
5
2
8
2
3
5
4
2
7
2
1
4
13
12
1
1
8
4
6
4
6
1