AW: bestimmte Teile einer Formel auslesen
22.08.2007 09:19:00
Chaos
Servus Dominic,
macht das, was du willst:
Sub test()
Dim s As String, t As String, w As String, w1 As String, t1 As String
Dim zw As Double, zwHinten As Double, zw1 As Double, zwHinten1 As Double
s = Range("A1").Formula ' z.B.:= 3,2*4,32*2,22
w = Len(s)
t = InStrRev(s, "*")
zw = t - 1
zwHinten = w - t
Range("A3").Value = Right(s, zwHinten) ' Das ist der hintere Teil = 2,22
w1 = Len(Left(s, zw))
t1 = InStrRev(Left(s, zw), "*")
zw1 = t1 - 1
Range("A4").Value = Left(s, zw1) ' Das ist der vordere Teil vom Gesamten = 3,2
zwHinten1 = w1 - t1
Range("A5").Value = Right(Left(s, zw), zwHinten1) ' Das der mittlere Teil = 4,32
End Sub
Liest aus der Formel in A1 die jeweiligen Einzelfaktoren aus.
Gruß
Chaos