Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon bokap1975 vom 17.08.2019, 10:53 Options

kurzens Einblenden oder befristetes Formatieren.

Hallo zusammen.

Ich habe ein Tabellenblatt, wo der Benutzer zu Anfang sein Augenmerk auf ein bestimmtes Kontrollkästchen richten soll, da er hier eventuell eine Angabe machen soll. Danach ist das Kästchen nicht mehr von allzugroßer Bedeutung. Wenn sich jetzt bestimmte Felder ändern z.B. A10:A20 wäre es gut wenn er nur kurz auf dieses Kontrollkästchen aufmerksam gemacht würd. Wie, ist recht egal. z. B. Farblich verändert oder kurz einen pfeil drauf zeigen lassen. Diese veränderung sollte allerdings nur so zwei Sekunden halten und dann wieder weg sein.

Geht das irgendwie??

Viele Grüße
boris

Antwort schreiben

Antwort 1 von Beverly vom 17.08.2019, 11:12 Options

Hi Boris,

da du nicht geschrieben hast, wo sich das Kontrollkästchen befindet, hier mal ein Beispielcode, wie man bei Änderung von Werten im Bereich A10:A20 die Zelle D1 für 3 Sekunden lang Rot blinken lassen kann

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inWarten As Integer
    If Intersect(Target, Range("A10:A20")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target <> "" Then
        For inWarten = 1 To 3
            Application.Wait (Now + TimeValue("0:00:01"))
            Range("D1").Interior.ColorIndex = 3
            Application.Wait (Now + TimeValue("0:00:01"))
            Range("D1").Interior.ColorIndex = xlNone
        Next inWarten
    End If
End Sub

Bis später,
Karin

Antwort 2 von bokap1975 vom 17.08.2019, 11:27 Options

Du bist super,

genau so hab ich mir das Vorgestellt.
DANKE.

lg,boris

Antwort 3 von bokap1975 vom 17.08.2019, 15:20 Options

Hi Karin,

ich nochmal kurz. Meine veränderbaren Felder werden duch Optionsbutton verhändert. Da reagiert der Code leider nicht sondern nur durch tatsächliche eingabe über die Tasten. Weißt Du wie man das Umstellen kann.

PS. War übrigens auf Deiner und Hajo`s HP. Sehr schön.

grüße boris

Antwort 4 von Beverly vom 17.08.2019, 16:41 Options

Hi Boris,

freut mich, dass dir unsre HP's gefallen und vielleicht auch bei der Lösung des einen oder anderen Problems helfen können.

Welche Optionsfelder verwendest du? Den Optionsfeldern aus der Formular-Symbolleiste kannst du ein Makro zuweisen (also den Code in ein allgemeins Modul kopieren) , die aus der Steuerelement-Toolbox haben in Click-Ereignis (Code in das Ereignis kopieren). Dann wird der Code immer ausgeführt, sobald das Optionsfeld betätigt wird.

Bis später,
Karin

Antwort 5 von bokap1975 vom 20.08.2019, 08:49 Options

Hallo Karin,

Danke für Deine Antwort.

Hab das versucht den Code in das Ereignis zu kopieren. Ich benutze Optionsfelder aus der Steuerelement-Toolbox. Ich gehe mal davon aus, dass nur ein bestimmter Teil des Code in das Ereignis kopiert werden soll. Hab es mit mehreren Varianten probiert - bislang erfolglos. Mir fehlt leider auch das Verständnis für VBA. Beschäftige mich erst kurz damit.

Viele Grüße
boris

Antwort 6 von Beverly vom 20.08.2019, 15:31 Options

Hi Boris,

der Code müsste dann so lauten

Private Sub OptionButton1_Click()
    Dim inWarten As Integer
    If OptionButton1.Value = True Then ' Wenn der Optionsbutton angeklickt wurde
        For inWarten = 1 To 3   ' Schleife 3 mal durchlaufen
        Application.Wait (Now + TimeValue("0:00:01"))  ' eine Sekunde warten
        Range("D1").Interior.ColorIndex = 3  ' Füllfarbe von D1 auf Rot
        Application.Wait (Now + TimeValue("0:00:01")) ' 1 Sekunde warten und Rot lassen
        Range("D1").Interior.ColorIndex = xlNone ' Füllfarbe wieder entfernen
        Next inWarten
    End If
End Sub

Bis später,
Karin

Antwort 7 von Bokap1975 vom 21.08.2019, 07:50 Options

Du bist die beste. :-)

Danke, läuft super.

Ps. Ich finde das echt super und erstaunlich dass es hier Menschen gibt, die völlig selbstlos anderen helfen. Findet man nicht oft. Kompliment.

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..

Neue Einträge

Tipp einschicken

News einschicken