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

Forumthread: Verketten mit Format fett und Format normal

Verketten mit Format fett und Format normal
17.08.2004 14:01:52
Heinz
Hallo!
Ich bin schon lange auf der Suche nach der Lösung folgenden Problems:
in Zelle A1 steht: Auto (Text fett)
in Zelle A2 steht: Bus (Text normal)
in Zelle A3 möchte ich nun diese zwei Texteinträge verketten, und zwar
so, dass Auto fett erscheint und Bus normal.
Wie geht`n das, weiss einer eine Lösung?
Vielen Dank für Eure Hilfe,
schöne Grüsse
Heinz
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verketten mit Format fett und Format normal
17.08.2004 14:14:54
Bertram
Hallo Heinz,
probier's mal so:


Sub TextVerkettenMitFormat()
Range("A2").Value = Range("A1") & Range("B1")
Range("A2").Characters(1, Len(Range("A1").Value)).Font.Bold = True
End Sub


Gruß
Bertram
Anzeige
AW: Verketten mit Format fett und Format normal
17.08.2004 14:27:58
Bertram
Nachtrag:
So funktioniert's auch nach dem ersten Mal noch:


Sub VerkettenMitFormat()
With Range("A2")
    .Value = Range("A1") & Range("B1")
    .Characters(1, Len(Range("A1").Value)).Font.Bold = True
    .Characters(Len(Range("A1").Value) + 1).Font.Bold = False
End With
End Sub


Gruß
Bertram
Anzeige
AW: Verketten mit Format fett und Format normal
Heinz
funkttioniert!!! toll, danke vielmals!
Heinz
AW: Verketten mit Format fett und Format normal
17.08.2004 14:30:49
Heinz
Hallo Bertram,
vielen Dank für Deine Hilfe, ich habe die Zellen etwas verändert:

Sub fett()
Range("A3").Value = Range("A1") & Range("A2")
Range("A3").Characters(1, Len(Range("A1").Value)).Font.Bold = True
End Sub

Nun funktionierts beim "ersten Mal", danach wird A3 auf Format fett gestellt,
bei der zweiten Ausführung ist dann A3 komplett fett. Gibt es eine
Lösung, dass die Zelle auf "nichtfett" eingestellt bleibt?
Vielen Dank für die erste und schnelle Hilfe!
Heinz
Anzeige
AW: Verketten mit Format fett und Format normal
17.08.2004 14:43:54
Bertram
Hallo Heinz,
siehe mein Nachtrag:-)
Gruß
Bertam
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Verketten von Text mit unterschiedlichen Formaten in Excel


Schritt-für-Schritt-Anleitung

Um in Excel Text mit unterschiedlichen Formaten zu verketten, benötigst Du ein wenig VBA (Visual Basic for Applications). Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (dein Arbeitsbuchname)" und wähle "Einfügen" > "Modul".

  3. Kopiere den folgenden Code in das Modul:

    Sub VerkettenMitFormat()
       With Range("A3")
           .Value = Range("A1") & Range("A2")
           .Characters(1, Len(Range("A1").Value)).Font.Bold = True
           .Characters(Len(Range("A1").Value) + 1, Len(Range("A2").Value)).Font.Bold = False
       End With
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Füge in Zelle A1 den Text "Auto" (fett) und in Zelle A2 den Text "Bus" (normal) ein.

  6. Führe das Makro aus: Drücke ALT + F8, wähle VerkettenMitFormat und klicke auf "Ausführen".

Jetzt sollte in Zelle A3 "Auto" fett und "Bus" normal erscheinen.


Häufige Fehler und Lösungen

  • Fehler: Die Formatierung wird nicht beibehalten.

    • Lösung: Stelle sicher, dass Du den Code korrekt eingegeben hast und dass die Zellreferenzen stimmen.
  • Fehler: Nach erneutem Ausführen des Makros ist der gesamte Text in A3 fett.

    • Lösung: Achte darauf, die Formatierung für den zweiten Teil des Textes (Bus) im Code richtig zu setzen.

Alternative Methoden

Eine andere Methode, um in Excel zu verketten und die Formatierung beizubehalten, ist die Verwendung von Hilfsspalten:

  1. Verwende eine Hilfsspalte für den Text mit Format.
  2. Verwende die Formel: =A1 & A2 in einer Zelle.
  3. Formatiere die Zellen manuell, um sicherzustellen, dass die gewünschte Formatierung vorhanden ist.

Diese Methode ist weniger flexibel, bietet jedoch eine einfache Möglichkeit, Texte zusammenzuführen.


Praktische Beispiele

  • Beispiel 1: Verketten von Namen und Nachnamen, wobei der Vorname fett dargestellt wird.

    Sub VerkettenNamen()
       With Range("A1")
           .Value = Range("B1") & " " & Range("C1")
           .Characters(1, Len(Range("B1").Value)).Font.Bold = True
           .Characters(Len(Range("B1").Value) + 2, Len(Range("C1").Value)).Font.Bold = False
       End With
    End Sub
  • Beispiel 2: Verketten von Daten, wobei das Datum formatiert bleibt.

    Sub VerkettenDatum()
       Range("A1").Value = Format(Range("B1").Value, "dd.mm.yyyy") & " - " & Range("C1").Value
    End Sub

Tipps für Profis

  • Nutzung von Named Ranges: Verwende benannte Bereiche für häufig genutzte Zellen, um die Lesbarkeit des Codes zu erhöhen.
  • Fehlerbehandlung einbauen: Setze On Error Resume Next, um unerwartete Fehler zu vermeiden.
  • VBA-Dokumentation: Nutze die Excel-Hilfe oder Online-Ressourcen, um mehr über die Verwendung von VBA zu lernen und die Flexibilität Deiner Lösungen zu erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich die Formatierung beibehalten, wenn ich mehrere Zellen verketten möchte?
Du kannst das gleiche Verfahren mit einer Schleife verwenden, um durch die Zellen zu iterieren und die Formatierung entsprechend zu setzen.

2. Funktioniert das in allen Excel-Versionen?
Ja, die beschriebenen VBA-Methoden sind in den meisten Excel-Versionen ab 2007 verfügbar. Stelle sicher, dass Makros in Deinen Excel-Einstellungen aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige