In einer Excel-Tabelle befindet sich
- ein Bereich mit dem Namen „x“
- rationale Zahlen wie „1,3“ und
- Textausdrücke wie „*x+“
Aus den Zahlen und Textausdrücken soll eine Formel (lineare Gleichungen) gebildet werden, die mit den Werten im Bereich „x“ rechnet.
Im Excel kenne ich hierzu keine Möglichkeit.
Im VBA hat man das Problem mit den „Kommazahlen“.
Also: Wie ersetzt man das Trennzeichen "," durch "."?
Soweit bin ich gekommen:
Private Sub CommandButton1_Click()
Dim a(1 To 3) As String
With Tabelle2
a(1) = .Cells(13, 3) ‘ eine rationale Zahl
a(2) = .Cells(14, 3) ‘ ein Textausdruck
a(3) = .Cells(15, 3) ‘ noch eine rationale Zahl
End With
‘Das funktioniert (bei mir?) nicht:
‘ActiveCell.Replace What:=",", Replacement:="."
‘Die Mid-Anweisung habe ich offensichtlich auch nicht richtig angewendet:
‘suchtext = Range("c13")
‘suchzeichen = ","
‘ersatz = "."
‘Mid(suchtext, InStr(suchtext, suchzeichen), 0) = ersatz
Gl_1 = "=" & a(1) & a(2) & a(3)
Range("f2").Formula = Gl_1
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F6"), Type:=xlFillDefault
Range("32").Select
End Sub
Für mehr reicht´s bei einem „Selectierer“ wie mir leider nicht! Wer kann mir eine Lösung zeigen?
Danke.
Peter