AW: Symbolleisten
17.06.2008 11:51:00
Bertram
Hallo Peter,
das gestrig erwähnte Tool find ich nicht mehr, aber ich glaube es war auch nicht ganz perfekt, denn es gibt zu viele unterschiedliche Ionen und Excel weiß ja nun nicht, ob es ne Ionenladung ist oder nicht. Z.B.
SO42- 4 tiefgestellt, 2- hochgestellt
O2- 2 tiefgestellt, - hochgestellt
Mg2+ 2+ hochgestellt etc.
Ein weiteres Problem ist, wenn du komplette Reaktionsgleichungen in einer Zelle hast. Es muß dann unterschieden werden, ob es sich um die Anzahl an Molekülen handelt oder nicht. Diese dürfen ja nicht verändert werden.
Das Add-In aus Cases Link ist da glaube ich ganz hilfreich. Ansonsten hier mal ne Notlösung, falls nur das Molekül bzw. das Ion in der Zelle steht (allerdings ohne die Stöchiometrie zu berücksichtigen):
Sub Tiefgestellt()
Dim Zelle As Range
Dim i As Integer
For Each Zelle In Columns(1).Cells
If Zelle "" Then
For i = 1 To Len(Zelle.Value)
If IsNumeric(Mid(Zelle.Value, i, 1)) Then
Select Case Mid(Zelle.Value, i + 1, 1)
Case "+", "-"
Zelle.Characters(i, 1).Font.ColorIndex = 3
Zelle.Characters(i, 2).Font.Superscript = True
Case Else
Zelle.Characters(i, 1).Font.Subscript = True
End Select
End If
Next i
End If
Next Zelle
End Sub
* Zahlen werden immer tiefgestellt, falls sie alleine stehen.
* Zahlen vor "+" oder "-" werden hochgestellt UND rot markiert, da hochgestellt nicht zwingend richtig ist.
* "+" und "-" werden immer hochgestellt.
Sorry, aber ich glaube es ist sehr aufwändig, falls du das ganze für komplette Reaktionsgleichungen haben willst.
Gruß
Bertram