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

Forumthread: Schriftgröße ändern innerhalb einer Zelle

Schriftgröße ändern innerhalb einer Zelle
Zuther
Hallo!
Gibt es eine Möglichkeit innerhalb einer Zelle per VBA verschiedene Schriftgrößen einzustellen.
z.B. Cells(z1, 3).Value = spieler1 & " / " & Spieler2 & " " & Chr(10) & verein1 & " / " & verein2
nach CHR(10) sollte die Schriftgröße 8 sein.
Vorab vielen Dank für Euere Bemühungen
mfg
Hans
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Schriftgröße ändern innerhalb einer Zelle
09.08.2010 00:23:16
JogyB
Hallo Hans,
probier das mal:
With Cells(z1, 3)
.Value = spieler1 & " / " & spieler2 & " " & Chr(10) & verein1 & " / " & verein2
.Characters(InStr(.Value, Chr(10)) + 1, Len(.Value) - InStr(.Value, Chr(10))).Font.Size = 8
End With

Gruß, Jogy
Anzeige
AW: Schriftgröße ändern innerhalb einer Zelle
10.08.2010 22:11:24
Zuther
Hallo Jogy,
vielen Dank für deine schnelle Hilfe. Funktioniert einwandfrei.
mfg
Hans
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Schriftgröße innerhalb einer Zelle anpassen


Schritt-für-Schritt-Anleitung

Um die Schriftgröße innerhalb einer Zelle in Excel zu ändern, insbesondere bei der Verwendung von VBA, kannst Du folgenden Schritten folgen:

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

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)", wähle "Einfügen" und dann "Modul".

  3. Kopiere den folgenden Code in das Modul:

    Sub SchriftgrößeAnpassen()
       Dim z1 As Integer
       z1 = 1 ' Beispielzeile
    
       With Cells(z1, 3)
           .Value = "Spieler1 / Spieler2" & Chr(10) & "Verein1 / Verein2"
           .Characters(InStr(.Value, Chr(10)) + 1, Len(.Value) - InStr(.Value, Chr(10))).Font.Size = 8
       End With
    End Sub
  4. Führe das Makro aus: Drücke F5 oder gehe zu "Ausführen" > "Sub/UserForm ausführen".

Damit wird die Schriftgröße nach dem Zeilenumbruch (Chr(10)) auf 8 geändert. Diese Methode ermöglicht es Dir, die Excel Schriftgröße an Zelle anzupassen und verschiedene Schriftgrößen innerhalb einer Zelle zu verwenden.


Häufige Fehler und Lösungen

  • Fehler: VBA-Code läuft nicht
    Lösung: Stelle sicher, dass Du den richtigen Arbeitsblattnamen verwendest und dass der VBA-Code in einem Modul und nicht in einem Arbeitsblatt platziert ist.

  • Fehler: Schriftgröße wird nicht geändert
    Lösung: Überprüfe, ob der Text nach Chr(10) korrekt erkannt wird. Möglicherweise ist der Inhalt der Zelle nicht wie erwartet formatiert.


Alternative Methoden

Falls Du keine VBA-Lösungen verwenden möchtest, kannst Du die Schriftgröße in einer Zelle auch manuell anpassen:

  1. Markiere die Zelle: Klicke auf die Zelle, in der Du die Schriftgröße ändern möchtest.
  2. Öffne die Schriftart-Optionen: Gehe zu "Start" und finde die Schriftart-Einstellungen.
  3. Ändere die Schriftgröße: Wähle die gewünschte Schriftgröße aus dem Dropdown-Menü.

Diese Methode ist einfach, jedoch nicht so flexibel wie die VBA-Lösung, wenn Du unterschiedliche Schriftgrößen innerhalb derselben Zelle benötigst.


Praktische Beispiele

Angenommen, Du möchtest die Schriftgröße für einen Text in einer Excel-Tabelle ändern:

  • Beispiel 1: Du hast einen Text mit mehreren Spielern und Vereinen. Verwende den VBA-Code, um den Text in einer Zelle so zu formatieren, dass die Schriftgröße für den Vereinsnamen kleiner ist.

  • Beispiel 2: Bei der Erstellung einer Excel-Liste mit verschiedenen Daten, die unterschiedliche Schriftgrößen benötigen, kannst Du den oben genannten VBA-Ansatz adaptieren, um die Lesbarkeit zu erhöhen.


Tipps für Profis

  • Nutze die Tastenkombinationen in Excel, um schnell die Schriftgröße zu ändern: STRG + 1, um das Formatierungsfenster zu öffnen, und dort die Schriftgröße anzupassen.
  • Experimentiere mit dem Zeichenabstand ändern in den Schriftart-Optionen, um den Text besser an die Zelle anzupassen.
  • Verwende VBA-Funktionen, um die Schriftgröße basierend auf bestimmten Bedingungen dynamisch zu ändern.

FAQ: Häufige Fragen

1. Wie kann ich die Schriftgröße in einer Excel-Tabelle für alle Zellen ändern?
Du kannst die gesamte Tabelle markieren und dann die Schriftgröße über die Schriftart-Optionen im Menü "Start" ändern.

2. Gibt es eine Tastenkombination, um die Schriftgröße in Excel zu ändern?
Ja, Du kannst STRG + SHIFT + P drücken, um das Schriftart-Dialogfeld zu öffnen und die Schriftgröße schnell zu ändern.

3. Ist es möglich, den Zeichenabstand in Excel zu ändern?
Ja, Du kannst den Zeichenabstand über das Schriftart-Dialogfeld anpassen, indem Du auf "Erweitert" gehst und den gewünschten Abstand einstellst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige