Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fettschrift und F9 per Button /Toogle ?

Forumthread: Fettschrift und F9 per Button /Toogle ?

Fettschrift und F9 per Button /Toogle ?
08.04.2005 10:38:20
Werner
Hallo zusammen, wenn ich eine Zahl im Bereich B10:K25 mit Fett markiere und im Anschluss F9 drücke, so wird die Zahl vom Ergebnis abgezogen, was in Ordnung ist. Nun meine Frage, ist es möglich das über einen Button bzw. Toogle zu erledigen und wie würde dieser ausehen ? Hier mal der VBA Code dazu, (ist von WernerB)
Im voraus besten Dank
WernerH
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Code fehlt....o.T.
08.04.2005 10:41:08
Martin
AW: Code fehlt....o.T.
08.04.2005 11:08:22
WernerH
Hallo Martin, da habe ich wohl noch geschlafen, aber Danke für den hinweis. Hier der Code.
Option Explicit
'Summiert die Zellen in einem Bereich in dem die Schrift Fett-Formatiert wurde
'Funktionsaufruf =SummeFett(Bereich)

Function SummeFett(Bereich As Range) As Variant
Dim i As Range
Application.Volatile
For Each i In Bereich.Cells
If i.Font.Bold Then
SummeFett = SummeFett + i
End If
Next
End Function

Gruss WernerH
Ps. der Code ist nicht von mir, sondern von WernerB
Anzeige
AW: Code fehlt....o.T.
08.04.2005 13:48:35
WernerH
Hallo, ich habe diesen Code in der Recherche gefunden, der ist von Ulf, kann man den abändern, sodas Fettschrift bzw. Normal Schrift und gleichzeitig F9 zum Aktualisieren möglich ist ? Ich habe leider keine Ahnung hiervon.
Gruss Werner
Option Explicit
Dim stopp As Boolean

Private Sub ToggleButton1_Click()
If stopp Then Exit Sub
If ToggleButton1 Then
ToggleButton1.Caption = "Fett"
Else
ToggleButton1.Caption = "schlank"
End If
Selection.Font.Bold = ToggleButton1
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Set c = ActiveCell
stopp = True
If c.Font.Bold Then
ToggleButton1.Caption = "Fett"
Else
ToggleButton1.Caption = "schlank"
End If
ToggleButton1 = c.Font.Bold
stopp = False
End Sub

Anzeige
selbst geschaft!!!!
08.04.2005 16:24:03
WernerH
Hallo zusammen, ich habe das Problem selber lösen können.
Gruss WernerH
;

Forumthreads zu verwandten Themen

Wenn Wert Fettschrift...
Josef

Hallo!Ich hatte im Jahr 2002 einal eine Anfrage und zwarwenn in z.B. in der Spalte A der Wert in Fettschrift erscheint sollte in der Zelle rechts daneben (Spalte B) der Wert "kvL" eingetragen werden. Ist der Wert nicht in Fettschrift so sollte in der Zelle rechts daneben der Wert "vl" eingetrag...
25.01.2003 14:36:41
Thread-ID: 208827
5 Beiträge
Wenn Wert Fettschrift...
Josef

Hallo!Ich habe z.B. in Spalte G eine Menge Beträge (ca. 13.000)stehen.Dazwischen sind viele in Fettschrift. Nun sollten alle Werte, welche in Fettschrift in der Spalte stehen, auf den Wert 0,00 gesetzt werden, egal welcher Wert in Fettschrift in der Spalte steht.
Gäbe es hier bitte eine VBA...
16.04.2003 18:57:24
Thread-ID: 246118
5 Beiträge
Anzeige
If-Entscheidung mit Fettschrift
Rafael

Liebe Boardgemeine,ich weiss nicht warum diese If-Entscheidung nicht funktioniert?
... wahrscheinlich ist die Lösung ganz einfach, aber ich hab' mir schon 'nen Wolf probiert. Obwohl der Wert in der entsprechenden Zelle des angesteuerten Sheets von Workbook ("041103") in fetter Schrift angeze...
25.04.2003 15:50:04
Thread-ID: 249199
5 Beiträge
Anzeige
If-Entscheidung mit Fettschrift
Rafael

Liebe Boardgemeine,ich weiss nicht warum diese If-Entscheidung nicht funktioniert?
... wahrscheinlich ist die Lösung ganz einfach, aber ich hab' mir schon 'nen Wolf probiert. Obwohl der Wert in der entsprechenden Zelle des angesteuerten Sheets von Workbook ("041103") in fetter Schrift angeze...
25.04.2003 15:50:10
Thread-ID: 249200
2 Beiträge
Anzeige
Nach Fettschrift sortieren
Josef
Hallo!
Gibt es bitte eine Möglichkeit, wenn es z.B. in der Spalte B Beträge fett und nicht fett gibt, diese nach Fettschrift zu sortieren?
Danke
Josef
13.01.2004 10:18:10
Thread-ID: 362818
4 Beiträge
Inhalt einer Zelle autrennen (nach Fettschrift)
Steffen

Hallo,
ich möchte für einen Vokabeltrainer die Vokabeln aufbereiten und habe dazu die Vokabeln mit OCR Software eingelesen und dann in Excel geöffnet.
Nun habe ich das Problem das der Englische und der Deutsche Teil einer Vokabel
jeweils in einer Zelle steht. Der Englische Teil ist...
29.10.2004 15:46:21
Thread-ID: 509121
6 Beiträge
Anzeige
Ich kann d. Schrift nicht zu Fettschrift ändern
Serap

siehe Anhang.
Ich hoffe mir kann einer Helfen.
Im voraus einen mega super Dank für die Antwort. Seit 1 Stunde sitze ich vor mein pc und komm einfach nicht weiter
02.09.2005 09:33:47
Thread-ID: 661521
2 Beiträge
Combobox 1. Eintag in Fettschrift
Norbert

Hallo ...,
ich lasse mir in einer Combobox Länder zum Auswählen anzeigen.
ComboBox3.Clear
ComboBox3.AddItem "Hier Land A-E wählen"
ComboBox3.AddItem "Angola"
ComboBox3.AddItem "Belgien"
ComboBox3.AddItem "Bulgarien"
ComboBox3.AddItem "Burkina Faso"
ComboBox3.AddI...
03.04.2007 08:31:00
Thread-ID: 859800
3 Beiträge
Zellen suchen und Inhalt in Fettschrift
Ingo
Hallo Ihr Excel-Profis,
ich benötige mal Eure Hilfe.
Ist bestimmt ganz einfach, aber ich tue mich da gerade etwas schwer.
Ich habe eine Datei in der in mehreren Zellen Dateinamen (z.B 123.jpg oder Bild.png) stehen
Nun möchte ich per VBA in der gesamten Datei nach Zellen mit *.png suc...
30.11.2021 09:26:33
Thread-ID: 1859191
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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