kann ich eine Zelle so einstellen das die letzte Zahl hochgestellt, wie zb beim Benzinpreis: also 1,37 und dann die 9 Hochgestellt?
Wie geht das?
Grüße
Lars
Sub hochstellen()
Dim c As Range, intStellen As Integer, strWert As String
Dim intStart As Integer, intLaenge As Integer
intStellen = 1
For Each c In Selection
c.NumberFormat = "@"
c.HorizontalAlignment = -4152
strWert = c.Value
c.Formula = strWert
intStart = Len(c) - intStellen + 1
c.Characters(intStart, intStellen).Font.Superscript = True
Next
End Sub
Problemstellung
Ich möchte die letzte nichtleere Zelle in einer anderen Spalte ermitteln. Wie mache ich das?
Problemstellung
Wie ermittle ich den letzten Text-Wert im Bereich A1:A500?
Problemstellung
Wie kann ich in einer benutzerdefinierten Funktion den Wert der äußersten rechten, unteren Zelle eines Bereiches ermitteln?
Problemstellung
Wie kann ich das letzte Speicherdatum in die Fußzeile aller Tabellenblätter eintragen lassen?
Problemstellung
Wie kann ich eine Formel in Spalte B bis zur letzten Zelle mit Inhalt in Spalte A kopieren? In Spalte A sind die Zellen nicht durchgehend belegt.
Problemstellung
Mit der Tastenkombination ENDE+Pos1 wird nicht immer die real letzte Zelle markiert. Wie kann ich das Problem beheben?
Problemstellung
Wie kann ich die letzte, in einem Tabellenblatt enthaltene Verknüpfung löschen?
Problemstellung
Wie kann ich dem Formatmenü Menüpunkte zum Hoch-/Tiefstellen der jeweils letzten Zeichen der Werte einer Zellauswahl hinzufügen?