|
Hey ihr,
ich habe einen Code, mit dem ich in Buchstaben- und Zahlenfolgen in Zellen die Zahlen tieferstellen kann:
Sub Summenformel()
Dim rbt As Integer
Dim AcCell As Range
Dim SeRange As Range
Set SeRange = Selection
For Each AcCell In SeRange
For rbt = 1 To Len(ActiveCell)
If IsNumeric(AcCell.Characters(Start:=rbt, Length:=1).Text) Then
AcCell.Characters(Start:=rbt, Length:=1).Font.Subscript = True
End If
Next
Next
End Sub
Hab das mithilfe des Internets ausgeknobelt. Funktioniert soweit ganz gut, nur dass ich die Zellen ausgewählt haben muss, um das Makro erfolgreich durchzuführen. Ich schaffe es nicht, dem Makro zu sagen, dass er die Zellen C19 bis C28 auswählen soll (Range("C19:C8").select und er mit dieser Auswahl das Makro durchführen soll. Markiere ich im Excel-Dokument genau diesen Zellenbereich, funktioniert es einwandfrei?! Habe es auch mit
Set SeRange = Range("C19:C28")
probiert, leider erfolglos.
Wäre um jede Hilfe dankbar.
Beste Grüße, Chris
|