1. Zeile in Zelle fett

Forumthread: 1. Zeile in Zelle fett

Tobias

Hallo,
ich hab folgendes Problem:
Ich habe mehrere Zellen die z.B. 3 Zeilen enthalten
ISP50-001
1U0
Baustromverteiler
Als Umbruch Zeichen habe ich "&ZEICHEN(10)" verwendet.
Nun soll die 1. Zeile als "ISP50-001" fett markiert werden und der Rest normal.
ISP50-001
1U0
Baustromverteiler
Das bekomm ich auch hin, wenn ich es Manuell fett mache.
Nun möchte ich das auf die anderen Zellen übertragen die ebenfalls 3 Zeilen haben z.B. über den Pinsel (Format übertragen)
Nur macht er die ganze Zelle also alle drei Zeilen fett.
Gibt es hier ein Makro oder einen Befehl, dass er das genau so übernimmt wie bei der Vorlage?
Vielen Dank.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: 1. Zeile in Zelle fett

JogyB
AW: 1. Zeile in Zelle fett

Tobias

AW: 1. Zeile in Zelle fett

22.11.2010 15:46:39

JogyB

Hallo Tobias,
die Zellen markieren und folgendes Makro ausführen:

Sub ersteZeileFett()
Dim zeLLe As Range
Dim umbrPos As Long
For Each zeLLe In Selection
umbrPos = InStr(zeLLe, vbLf)
If umbrPos  0 Then
zeLLe.Characters(1, umbrPos).Font.Bold = True
End If
Next
End Sub

Oder wenn es alle Zellen mit genau 3 Zeilen so machen soll:

Sub ersteZeileFett()
Dim zeLLe As Range
For Each zeLLe In ActiveSheet.UsedRange
If UBound(Split(zeLLe, vbLf)) = 2 Then
zeLLe.Characters(1, InStr(zeLLe, vbLf)).Font.Bold = True
End If
Next
End Sub

Das Makro bearbeitet das aktive Arbeitsblatt.
Gruß, Jogy

AW: 1. Zeile in Zelle fett

22.11.2010 16:36:21

Tobias

Hallo Jogy,
funktioniert bestens!
Vielen Dank
Gruß Tobias

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die erste Zeile in einer Zelle fett zu formatieren, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

Kopiere und füge den folgenden Code ein:

Sub ersteZeileFett()
   Dim zeLLe As Range
   Dim umbrPos As Long
   For Each zeLLe In Selection
       umbrPos = InStr(zeLLe, vbLf)
       If umbrPos > 0 Then
           zeLLe.Characters(1, umbrPos).Font.Bold = True
       End If
   Next
End Sub

Schließe den VBA-Editor und gehe zurück nach Excel.
Wähle die Zellen aus, in denen die erste Zeile fett formatiert werden soll.
Drücke ALT + F8, wähle ersteZeileFett aus und klicke auf Ausführen.

Das Makro wird die erste Zeile in jeder ausgewählten Zelle fett formatieren, während der Rest der Zelle normal bleibt.

Häufige Fehler und Lösungen

Fehler: Das Makro funktioniert nicht.
- Lösung: Stelle sicher, dass du die Zellen ausgewählt hast, bevor du das Makro ausführst. Überprüfe auch, ob der Code korrekt eingefügt wurde.
Fehler: Alle Zeilen werden fett formatiert.
- Lösung: Überprüfe, ob der Umbruch in der Zelle korrekt gesetzt ist. Das Makro funktioniert nur, wenn es einen Zeilenumbruch (vbLf) gibt.

Alternative Methoden

Falls du kein Makro verwenden möchtest, kannst du die erste Zeile manuell fett formatieren. Dies ist jedoch nicht ideal für große Datenmengen. Eine weitere Möglichkeit ist, die Funktion "Format übertragen" zu verwenden, aber beachte, dass dabei die Formatierung für die gesamte Zelle angewendet wird.

Praktische Beispiele

Wenn du mehrere Zellen hast, die ähnlich aufgebaut sind (z. B. mit 3 Zeilen), kannst du das Makro wie folgt anpassen:

Sub ersteZeileFett()
    Dim zeLLe As Range
    For Each zeLLe In ActiveSheet.UsedRange
        If UBound(Split(zeLLe, vbLf)) = 2 Then
            zeLLe.Characters(1, InStr(zeLLe, vbLf)).Font.Bold = True
        End If
    Next
End Sub

Dieses Makro überprüft alle Zellen im aktiven Arbeitsblatt und formatiert die erste Zeile fett, wenn die Zelle genau 3 Zeilen enthält.

Tipps für Profis

Verwende die Formatierungsoptionen: Du kannst das Makro erweitern, um auch andere Formatierungen anzuwenden (z. B. Schriftart oder -größe).
Speichere das Makro: Speichere deine Excel-Datei als .xlsm, um das Makro zu behalten.
Teste das Makro auf einer Kopie: Bevor du das Makro auf wichtige Daten anwendest, teste es auf einer Kopie deiner Datei.

FAQ: Häufige Fragen

1. Kann ich das Makro in Excel Online verwenden?
Nein, VBA-Makros sind nur in der Desktop-Version von Excel verfügbar.

2. Was passiert, wenn es keinen Zeilenumbruch gibt?
Das Makro wird in diesem Fall keine Änderungen vornehmen. Stelle sicher, dass deine Zelle einen Zeilenumbruch enthält, um die gewünschte Formatierung zu erreichen.

Beliebteste Forumthreads (12 Monate)