Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
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
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaltfläche umformatieren

Schaltfläche umformatieren
18.09.2004 15:12:50
Frank
Hallo Excel-Freunde,
ich habe eine Mappe mit 15 Tabelllenblättern erstellt,
Tabellenblatt 1 enthält 15 Schaltflächen zum wechsel auf
die dazugehörenden Blätter in denen Daten berechnet werden.
Ist es möglich den unteren Code so zu ändern
das wenn im jeweiligen Tabellenblatt in Zeile B9
der Wert größer als 0 ist die Schaltfläche im Tabellenblatt 1
nicht mehr im Standartformat angezeigt wird sondern in Farbe rot
als besseren Überblick in welcher Tabelle schon Werte eingetragen sind.
Code:

Sub Zu_Tabelle_3()
Sheets("Tabelle 3").Select
Range("F14").Select
End Sub

Gruß
Frank

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche umformatieren
ransi
hallo frank
musst die namen für die commandbuttons noch anpassen.
dann sollte das klappen.
der code wird jedesmal abgearbeitet wenn du etwas im tabellenblatt änderst.
er könnte angepasst aber auch ins click ereignis deines buttons rein.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("b9").Address Then Exit Sub
If IsNumeric(Range("B9")) Then If [b9] > 0 _
Then Worksheets("tabelle1").CommandButton1.BackColor = &HFF&
If Not IsNumeric(Range("B9")) Or [b9] <= 0 _
Then Worksheets("tabelle1").CommandButton1.BackColor = &H8000000F
End Sub

Anzeige
AW: Schaltfläche umformatieren
Frank
Hallo ransi,
wie kann ich die namen für die commandbuttons noch anpassen.
Danke
Frank
AW: Schaltfläche umformatieren
ransi
hallo frank
der code muss in JEDES tabellenblatt.
mit anpassen meinte ich folgendes:
Die 15 button in blatt1 heissen ja nicht alle "commandbutton1".
du musst also im code in jeder seite den namen vom aufrufenden Button anpassen.
also z.B für blatt2 heisst der aufrufende button z.B.cmb2. dann schreibst in den code jedesmal anstatt commanbutton1 dann cmb2.
ich hoffe ich habe mich verständlich ausgedrückt. wenn nicht frag ruhig nochmal nach.
gruß ransi
AW: Funkt nicht
Frank
Hallo ransi,
irgendwie funktionierts nicht,
wenn ich in Tabelle 2 in Zelle B9
einen Wert größer 0 eingebe sollte der Button
sich in Tabelle 1 automatisch rot formatieren
das macht er aber nicht.
Versuchsmappe:
https://www.herber.de/bbs/user/11075.xls
Danke für deine Bemühung
Frank
Anzeige
AW: Funkt nicht
ransi
hallo frank
der code muss in tabelle 2, den die zelle die überwacht wird liegt ja in tabelle2.
ausserdem hast du den button falsch angesprochen.
"Worksheets("tabelle2").CommandButton1...." heisst
commandbutton1 in tabelle2.
in tabelle2 ist aber kein button, daher muss es heissen:
Worksheets("tabelle2").CommandButton1....
also den ursprunglichen code ins TABELLENBLATT2, und alles ist gut...
ransi

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige