Formatierung cm^4

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() Dim cell As Range Dim x As String ActiveSheet.UsedRange.Select For Each cell In Selection x = Left(cell.Value, 2) If x = "cm" Then With cell.Characters(Start:=3, Length:=1).Font .Superscript = True End With End If Next cell End Sub

Sub Makro1() Dim cell As Range Dim x As String For Each cell In Selection x = Left(cell.Value, 2) If x = "cm" Then With cell.Characters(Start:=3, Length:=1).Font .Superscript = True End With End If Next cell End Sub

Hallo, @uke,
wie die Vorschläge schon zeigen, ist, hat meine keinen Schriftsatz, der das Hoch4 als Zeichen enthält, die Vorgehensweise über VBA-Makro zur Erzeugung der Dimension für das Trägheitsmoment eforderlich. Hierbei ist allerdings zu beachten, ob in der Zelle die mit Einheitsbezeichnung formatierte Zahl ausgegeben wird oder ob die Dimension eine eingene Zelle beansprucht.
Persönlich gehe ich wie folgt vor:

die Einheit hat eine eigene Zelle

folgendes Makro für die Grundeinheit cm wird geschrieben:


Option Explicit
Sub cmEinheitI()
ActiveCell.FormulaR1C1 = "cm4"
ActiveCell.Characters(Start:=3, Length:=1).Font.Superscript = True
End Sub

dem Marko weise ich die Schnelltastenkombination [STRG][UMSCH][I] zu

die auf cm basierte Dimension des Trägheitsmomens wird mit der Schnelltastenkombination in der betreffenden Zelle erzeugt
Je nach Einsatz sind auch weitere Lösungen denkbar, einschließlich der Verkettung des Zahlenwertes mit dieser Einheit, was allerding bei der Weiterbearbeitung entsprechnend zu berücksichtigen ist.
Gruß,
Uwe

Sub AllmEinheitI() Dim rng As Range For Each rng In ActiveSheet.UsedRange With rng If Rigth(.Value2,2)="m4" Then _ .Characters(Start:=Len(.Value2), Length:=1).Font.Superscript = True End With Next End Sub

Hallo, @uke,
hier hast Du wohl etwas falsch verstanden, denn es geht nicht darum, mit verketteten Dateien zu rechen, sondern mit einer zusammengesetzten Zeichenkette.
Doch letztlich hängt es von Deinem Tabellenaufbau ab, was geeignet ist. So ist es auch möglich, dass man die Veränderung eines Zelleninhalts überwacht (Workbook_SheetChange(...), um so immer aus einem m4 ein m⁴ werden zu lassen. Dazu hättest Du in die Arbeitsmappe die Prozedur:


Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range
For Each rng In Target
With rng
If InStr(.Value2, "m4") Or _
InStr(.Value2, "m3") Or _
InStr(.Value2, "m2") Then _
.Characters(Start:=Len(.Value2), Length:=1).Font.Superscript = True
End With
Next rng
End Sub

einzubauen.
Vorgehensweise:

mit [Alt][F11] aus EXCEL den VBA-Editor aufrufen
Doppelklick auf VBAProjekt dieser Arbeitsmappe
Code-Editorfenster für DieseArbeismappe anwählen und den oben angegeben Programmcode einfügen.
Mit [Alt][F11] zur EXCEL-Arbeitsmappe zurückkehren
Bei mm4, cm4, dm4 und m4 wird nun automatisch die 4 zur Hochzahl gewandelt.

Gruß,
Uwe

Private Sub Worksheet_Change(ByVal Target As Range) Dim p1 As Long Dim txt As String If Target.Cells.Count > 1 Then Exit Sub If Target.HasFormula Then Exit Sub txt = Target.Text p1 = 0 Do p1 = InStr(p1 + 1, txt, "cm4") If p1 = 0 Then Exit Do p1 = p1 + 2 With Target.Characters(Start:=p1, Length:=1).Font .Superscript = True End With Loop End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread