Hallo FormelExperten,
in eine Zelle einen Text eingeben und einen Teil des Textes markieren und per Formatierung anders darstellen ist kein Problem.
Frage: Gibt es auch eine einfache Möglichkeit, die beiden Textteile aus anderen Zellen zusammenzufügen und in der Ausgabezelle gleichermaßen in gemischter Formatierung auszugeben?
Beispiel:
A1: = B1 & C1 ( so geht´s natürlich nicht )
B1: 'x
C1: '2
bzw.
Z1S1: =Z1S2 & Z1S3 ( als Ergebnis sollte x^2 hier stehen )
Z1S2: 'x
Z1S3: '2
Hallo,
probier mal, das Rechenzeichen als Text.
A1: =B1&"^"&C1 (zweimal das Kaufmanns-Und, shift6)
B1: x (Das x ist Text)
C1:'2 (Die Zahl mit dem Apostroph als Text)
Gruss Helmut
x mit einer hochgestellten 2
Hallo Helmut,
vielen Dank für Deine Antwort. Es ist aber leider in meiner Fragestellung noch nicht klar gewesen, was ich mit „( als Ergebnis sollte x^2 hier stehen )“ gemeint habe. „x^2“ ist eine Umschreibung für ein >>x mit einer hochgestellten 2
Frage: Gibt es auch eine einfache Möglichkeit, die beiden
Textteile aus anderen Zellen zusammenzufügen und in der
Ausgabezelle gleichermaßen in gemischter Formatierung
auszugeben?
Hallo Thomas,
sehe da nur was mit Vba.
Code erwartet erstes Zeichen in Ax, zweites Zeichen in Bx, Ergebnis wird automatisch in Cx dargestellt wenn Ax UND Bx gefüllt sind.
Wenn du dir die Spalten anpassen willst, kein Akt,
Bei Range(„A:B“) ist es ja einfach.
Bei Cells(…, 1) steht hinten die 1 für A, also erste Spalte, B=2 , C=3 usw, AA=27…IV=256
Code gehört in das Modul des Blattes!
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zei As Long, Zei2 As Long, Z As Long
On Error GoTo hell
Set Target = Intersect(Target, Range("A:B"))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
Columns(3).ClearContents
Zei = Cells(Rows.Count, 1).End(xlUp).Row
Zei2 = Cells(Rows.Count, 2).End(xlUp).Row
If Zei2 \> Zei Then Zei = Zei2
For Z = 1 To Zei
If Cells(Z, 1).Value "" And Cells(Z, 2).Value "" Then
Cells(Z, 3).Value = Cells(Z, 1).Value & Cells(Z, 2).Value
Cells(Z, 3).Characters(Start:=2, Length:=1).Font.Superscript = True
End If
Next Z
hell:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Danke für VBA-Lösung
Hallo Reinhard,
für Deine Beantwortung meiner Frage und besonders für die Ausarbeitung der VBA-Lösung meinen herzlichen Dank.
Einen schönen Tag wünscht Dir
Thomas
