Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
Anzeige
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
;
Anzeige
Anzeige

Infobox / Tutorial

Zelle fett formatieren in Excel


Schritt-für-Schritt-Anleitung

Um in Excel Zellen, die Formeln enthalten, fett zu formatieren, kannst du VBA nutzen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    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
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Mit diesem Makro wirst du die Zellen in dem Bereich C4:F163, die eine Formel enthalten, fett formatieren.


Häufige Fehler und Lösungen

  • Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht"
    Diese Meldung tritt häufig auf, wenn der Blattschutz aktiv ist. Stelle sicher, dass der Blattschutz deaktiviert ist, bevor du das Makro ausführst.

  • Anwendungs- und objektorientierter Fehler
    Dies kann auch passieren, wenn du versuchst, Zellen zu formatieren, die keine Formeln enthalten. Das obige Makro behandelt dies, indem es überprüft, ob rng Nothing ist.


Alternative Methoden

Eine schnelle Möglichkeit, Zellen fett zu formatieren, ist die Verwendung von Excel-Shortcuts. Wenn du eine Zelle oder einen Bereich markierst, kannst du STRG + B drücken, um die Schrift fett zu formatieren.

Falls du viele Zellen mit Formeln hast und diese regelmäßig fett formatieren möchtest, ist das Erstellen eines Makros die beste Lösung.


Praktische Beispiele

Hier sind einige Beispiele, wie du die Schrift fett formatieren kannst:

  1. Mit einem Shortcut:

    • Markiere die Zelle und drücke STRG + B.
  2. Mit VBA:

    • Nutze das oben genannte Makro, um alle Zellen mit Formeln in einem bestimmten Bereich fett zu formatieren.
  3. VBA für spezifische Bedingungen:

    • Wenn du nur bestimmte Formeln fett formatieren möchtest, kannst du die If-Bedingung im VBA-Code anpassen, um spezifische Kriterien festzulegen.

Tipps für Profis

  • Verwende On Error Resume Next, um Fehler im Makro zu ignorieren, die auftreten können, wenn keine Zellen mit Formeln vorhanden sind.
  • Du kannst die Schriftart und -größe zusätzlich anpassen, indem du .Font.Size und .Font.Name im VBA-Code hinzufügst.
  • Um das VBA-Skript effizient zu nutzen, kannst du es an eine Schaltfläche im Excel-Dokument binden, sodass du es mit einem Mausklick ausführen kannst.

FAQ: Häufige Fragen

1. Wie kann ich Zellen in Excel ohne VBA fett formatieren?
Du kannst einfach die Zellen auswählen und STRG + B drücken, um die Schrift fett zu formatieren.

2. Was mache ich, wenn der Blattschutz aktiv ist?
Deaktiviere den Blattschutz, bevor du das Makro ausführst. Du kannst dies unter dem Menüpunkt Überprüfen in Excel tun.

3. Wie kann ich das Makro schneller ausführen?
Du kannst dem Makro eine Tastenkombination zuweisen, um es mit einem Shortcut zu starten. Gehe dazu auf Entwicklertools, wähle Makros und klicke auf Optionen, um eine Tastenkombination festzulegen.

Mit diesen Informationen kannst du problemlos Zellen in Excel fett formatieren, sei es durch einfache Shortcuts oder durch den Einsatz von VBA.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige