Live-Forum - Die aktuellen Beiträge
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige