Ich habe eine Tabelle in den in folgenden Zellen Namen stehen:
B6, I6, Q6, X 6 usw. bis HZ6(immer in gleichen Abständen).
Wie bekomme ich das hin, dass wenn ich eine dieser Zellen
anklicke diese zu blinken anfängt?
Danke für eure Hinweise.
Rolf
diese Funktion ist in Excel leider nicht standardmäßig vorgesehen. Einen Blinkeffekt kann man aber per Makro programmieren, indem man die Schriftfarbe im Wechsel Schwarz/Weiß macht. Dadurch wird bei Weiß der Zelleninhalt nicht mehr vom Hintergrund unterschieden. Wenn du Interesse an einem solchen Makro hast, dann gib einfach nochmal Bescheid, dann setze ich mich mal dran.
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
aus dem unerschoepflichen reservoir von Hans.
nicht getestet.
gruss thomas
Die Frequenz soll so kurz wie möglich sein, es sollen sich nur
zwei Farben immer abwechseln, z.B. blauer Hintergrund, weiße Schrift (wenn es möglich ist) andere Farben gehen auch.
Es soll so lange blinken, bis man eine andere Zelle anklickt (diese Zeit ist unterschiedlich).
Das Beispiel von th.heinrich habe ich ausprobiert:
funktioniert aber nicht, ich habe es bei der Tabelle1 eigeschrieben, aber die Zeile "If.Characters" bleibt immer rot.
... oder wo muß ich den "VBA" einschreiben ? und wo anklicken
damit etwas passiert ?
Was bedeutet eigentlich die Angabe (3, 1) ?
Wenn Du noch eine Idee hast wäre ich Dir dankbar.
Rolf
das war garnicht so einfach, denn für die Verteilung der Zellen lässt sich kein vernünftiger Algorithmus entwickeln.
Folgenden Code ins Klassenmodul "Diese Arbeitsmappe":
Option Explicit
Private Sub Workbook_Open()
pruefen
End Sub
Private Sub Workbook_Deactivate()
Beenden
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Beenden
End Sub
Folgenden Code ins Klassenmodul der Tabelle:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
pruefen
End Sub
Folgenden Code in ein normales Modul:
Gruß
Nepumuk
If ((ActiveCell.Column - 2) Mod 5 = 0 Or (ActiveCell.Column + 1) Mod 5 = 0) And ActiveCell.Column < 235 Then
das sollte eigentlich nur eine Zeile sein. Für die Darstellung in zwei Zeilen kann ich nichts, die ist durch die Software der Site vorgenommen worden.
Rolf