Kann man mit VBA einen Text aus einem String hochstellen?

Hi, ich habe einen String aus mehreren Textfeldern, einen Teil davon möchte ich gerne hochstellen. Kann man das irgendwie mit Superscribt machen? Diesmal irgendwie schwierig etwas dazu bei Google zu finden.

Der String sieht aus wie folgt. Den Teil mit "TextBox_ToleranceUP.Text & " " & TextBox_ToleranceLO.Text" möchte ich gerne hochstellen. Danke im Voraus.

connect = TextBox_InspectionCriterion.Text & " " & TextBox_ToleranceUP.Text & " " & TextBox_ToleranceLO.Text

Answer 1

[IchMalWiederXY]

Dim laenge1, laenge2
connect = TextBox_InspectionCriterion.Text & " " & TextBox_ToleranceUP.Text & " " & TextBox_ToleranceLO.Text

laenge1 = Strings.Len(TextBox_InspectionCriterion.Text & " ")
laenge2 = Strings.Len(TextBox_ToleranceUP.Text)
Range("A1").Value = connect

Range("A1").Select
With ActiveCell.Characters(Start:=Laenge1, _
Length:=Laenge2).Font
  .Superscript = True
End With

Comments

[fx8350]

Genau das habe ich gesucht. Konnte es anpassen und es funktioniert. Danke!

Answer 2

[IchMalWiederXY]

Die Hochstellung ist 'nur' eine Visualisierung. Die Zeichen, die gestellt werden befinden sich nach wie vor im "Font" Höhenbereich.

Unter der 27 (bzw. über der 34) ist immer noch Font Information.
Eine Textbox lässt die manipulation der Font Eigenschaften in geringem Rahmen zu. Ggf ist es mit der Rich Text Box möglich. (Kann über eine Referenz in Excel verwendet werden)

https://docs.microsoft.com/de-de/dotnet/api/system.windows.forms.richtextbox.selectioncharoffset?view=netcore-3.1

Comments

[fx8350]

Hi. Mir geht es darum, dass ich einen Text aus einem Textfeld hochstellen möchte. Dieser Text soll aber dann in der Zelle hochgestellt sein. Der hochgestellte Text wird hinter einen anderen Text aus einem String zusammengefügt.

Answer 3

[geri3d]

Nein das geht in Textboxen nicht.

connect wird reiner Test ohne Sub und Superscript.

Woher ich das weiß: eigene Erfahrung

Comments

[fx8350]

Ja das weiß ich. Aber kann man das nicht irgendwie realisieren, dass ich den gewünschten Teil des Strings irgendwie so formatiert bekomme? Ggf. auch trennen und dann wieder zusammen fügen? Sodass in den entsprechenden Bereich dann Die beiden Textteile eingetragen werden, wobei ein Teil des Textes hochsteht, wie Zahlen ²³ z.B.