Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
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
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle fett formatieren

Zelle fett formatieren
David
Hallo zusammen,
manchmal verzweifle ich echt an VBA.
Ich möchte in einem bestimmten Bereich alle Zellen, die eine Formel enthalten, fett formatieren.
Folgendes war mein Ansatz:
Sub fett()
Dim cell As Range
For Each cell In Range("C4:F163")
If cell.HasFormula = True Then cell.Font.Bold = True
Next
End Sub
Allerdings kommt dabei immer die Meldung "Objekt unterstützt diese Eigenschaft oder Methode nicht". Ich hab's schon mit Range(cell) und Range(cell.address) versucht - ohne Erfolg.
Wie schreibe ich den Teil nach Then... richtig?
Gruß
David

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelle fett formatieren
14.10.2009 17:47:27
Tino
Hallo,
versuche es mal so
With Range("C4:F163")
.Font.Bold = False
On Error Resume Next
.SpecialCells(xlCellTypeFormulas).Font.Bold = True
On Error GoTo 0
End With
Gruß Tino
AW: Zelle fett formatieren
14.10.2009 17:52:39
David
Hallo Tino.
leider nein, bei der Zeile .font.bold kommt ein "Anwendungs- und objektorientierter Fehler". Kommentiere ich die Zeile aus, passiert gar nix (vermutlich aufgrund des Abschaltens der Fehlerunterbrechung).
Gruß
David
Blattschutz?
14.10.2009 17:59:12
F1
F1
AW: Blattschutz?
15.10.2009 07:23:39
David
Jepp, das wars.
Danke und Gruß
David
Ist Deine Tabelle geschützt?
14.10.2009 18:34:39
Tino
Hallo,
, versuche es mal so.
Sub Beispiel()
    With Sheets("Tabelle1") 'Tabelle anpassen 
        'Passwort anpassen 
        .Protect Password:="Passwort", UserInterfaceOnly:=True
        With .Range("C4:F163")
            .Font.Bold = False
            On Error Resume Next
            .SpecialCells(xlCellTypeFormulas).Font.Bold = True
            On Error GoTo 0
        End With
    End With
End Sub
Hier noch ein Beispiel
https://www.herber.de/bbs/user/65083.xls
Gruß Tino
Anzeige
AW: Ist Deine Tabelle geschützt?
15.10.2009 07:27:07
David
Hallo Tino.
Tatsächlich, der Blattschutz war aktiv. Dies war mir bisher nicht bewusst, da ich in der Tabelle alle anderen Aktionen uneingeschränkt machen konnte, einschließlich löschen, bearbeiten, einfügen etc.
Bei der Datei handelt es sich um eine Export-Datei aus SAP, anscheinend wird dies dann so mitgegeben. Ich hatte auch gesehen, dass SAP diversen Code mit in der Datei gespeichert hatte, den hatte ich testhalber schon mal rausgelöscht, da z. Bsp. auch Ereignis-Prozeduren dabei waren.
Die Fehlermeldung von VBA ist dann allerdings auch sehr irreführend.
Nunja, wieder was gelernt.
Danke dir und auch allen Anderen.
Gruß
David
Anzeige
AW: Zelle fett formatieren
14.10.2009 17:56:42
Josef
Hallo David,
Sub fett()
  Dim rng As Range
  
  With Range("C4:F163")
    .Font.Bold = False
    On Error Resume Next
    Set rng = .SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    If Not rng Is Nothing Then rng.Font.Bold = True
  End With
  
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Zelle fett formatieren
15.10.2009 07:23:02
David
Hallo Josef.
Hab deine Lösung jetzt nicht ausprobiert, da der Blattschutz (SAP!!!) der Fehler-Verursacher war.
Trotzdem danke für deine Mühe.
Gruß
David

300 Forumthreads zu ähnlichen Themen

Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Anzeige
Statt Zahl "Textausgabe" in 3D Formel
Lorenz

Guten Morgen!
Mit folgender 3D-Formel wird aus mehreren Blättern(In diesem Fall "1."."2."."3.")nach dynamischen Suchkriterien ein Wert "ZAHL" ausgegeben. Funktioniert wunderbar!!!. Leider gelingt es mir nicht einen anderen Wert (den Zellinhalt als "Text") auszugeben
=SUMME(SUMMEWENN(IND...
14.08.2009 07:14:45
Thread-ID: 1095457
2 Beiträge
per VBA Teile einer Zelle formatieren
Steinritz

Hallo!
Ich habe folgendes Problem:
Habe in Excel mit der VERKETTEN Funktion 4 Zellen verkettet.
Im Ergebnis z.B.
Nach Abzug der Gebühr in Höhe von 10,- € ergibt sich ein Gesamtbetrag von 200,- €.
Jetzt möchte ich in dieser Zelle nur den letzen Zahlenwert mit dem Währungssymb...
10.09.2009 18:45:11
Thread-ID: 1101849
3 Beiträge
Anzeige
Formel automatisch in einem Textfeld sichtbar
ropa

Hallo,
ich benutze sehr oft Textfelder um dann eine Formel zu kopieren und mit dem Textfeld als Info sichtbar zu machen.
Gibt es eine Möglichkeit eine Zelle mit einem Textfeld zu verknüpfen, so das automatisch immer die richtige Formel in dem Textfeld sichtbar.
Da ich manchmal Spalt...
13.10.2009 00:26:44
Thread-ID: 1109212
2 Beiträge
Cells(MyRow, 1).Value = Me.TextBox1.Text
reinhardt

Hallo,
ich habe eine Datei, die mir über eine Userform Daten in verschiedene Tabellenblätter einträgt.
' Werte übertragen
Cells(MyRow, 1).Value = Me.TextBox1.Text 'Datum
Cells(MyRow, 2).Value = Me.ComboBox1.Text 'km
Mein Problem:
Im Tabellenblatt möchte ich Summen...
11.01.2010 13:02:40
Thread-ID: 1128837
2 Beiträge
Textformat in Zelle mit Formel
joerg

Hallo,
Ich hätte gern in einer Zelle in der Kopfzeile eine Mischung aus Text und Werten aus anderen Zellen, etwa so:
A B Total: 1 netto 1234,56 brutto 2345,67 2 Dabei hätte ich gern das Wort "Total" fett und schwarz, die beiden anderen Zeilen klein...
10.02.2010 01:20:13
Thread-ID: 1137218
6 Beiträge
Fettschrift per VBA
Peter

Hallo,
ich möchte eine Zeile mit Text befüllen per
.Cells(x,y).Value = "" Dabei soll nur ein Wort in fett dargestellt werden, z.B. "Produkt A" Gibt es dafür einen Befehl?
LG, Peter
06.04.2010 12:30:13
Thread-ID: 1150324
7 Beiträge
Textformatieren in einer Formel
Jochen

Hallo Freunde,
ich verkette einen Text mit Zeilenumbruch, die Formel:
=verketten(a1;zeichen(10);b1).
Nun mein Problem:
den dritten Teil " b1 " soll aber in einer kleineren Schriftgröße und nicht Fett erscheinen.
Danke im voraus
Gruß
Jochen
19.05.2010 19:23:46
Thread-ID: 1157901
8 Beiträge
Anzeige

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
2
2
1
2
7
1
1
5
6
7
4
17
1
3
9
2
3
3
5
1
6
4
6
2
2