Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergrössern des Hochstellungszeichen m2

Vergrössern des Hochstellungszeichen m2
Hugo
Hallo
Stelle mit folgendem Code bei m2 / m3 die Zahl hoch.
Columns(4).Replace "m2", "m²", xlPart
Columns(4).Replace "m3", "m³", xlPart
Nun wird aber die hochgestellte Ziffer ziemlich klein (Schriftgrad 10 kann ich auch nicht vergrössern).
Kann man nur per VBA der hochgestellten Ziffer eine andere Schriftgrad zuweisen?
Besten Dank und Gruss
Hugo

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Vergrössern des Hochstellungszeichen m2
31.10.2010 18:23:30
Hugo
meine natürlich nicht nur mit VBA sondern mit VBA
AW: Vergrössern des Hochstellungszeichen m2
31.10.2010 18:48:36
Josef

Hallo Hugo,
probier mal.
Sub hugo()
  Dim rng As Range, rngC As Range
  Dim intPos As Integer
  
  On Error Resume Next
  Set rngC = Columns(4).SpecialCells(xlCellTypeConstants)
  On Error GoTo 0
  
  If Not rngC Is Nothing Then
    Application.ScreenUpdating = False
    For Each rng In rngC
      intPos = Application.Max(InStr(1, rng.Text, "m2"), InStr(1, rng.Text, "m3"))
      If intPos > 0 Then
        With rng.Characters(intPos + 1, 1).Font
          .Superscript = True
          .Size = 12
        End With
      End If
    Next
    Application.ScreenUpdating = True
  End If
  
  Set rngC = Nothing
  Set rng = Nothing
End Sub



Gruß Sepp

Anzeige
AW: Vergrössern des Hochstellungszeichen m2
31.10.2010 18:55:34
Hugo
Hallo Sepp
Das ist super genau so läuft's.
Vielen Dank für deine Hilfe
Gruss Hugo
AW: Vergrössern des Hochstellungszeichen m2
31.10.2010 18:25:03
Hajo_Zi
Hallo Hugo,
nur wenn Du jede Zelle einzeln bearbeitest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige