SoftMaker.de

Ich möchte folgendes Makro von Visaul Basic portieren, es fehlt aber die Funktione Replace:

Attribute VB_Name = "Modul2"
Sub BerechneFormel()
Attribute BerechneFormel.VB_Description = "Berechnet den markierten Formel-Ausdruck in der Spalte rechts davon "
Attribute BerechneFormel.VB_ProcData.VB_Invoke_Func = " \n14"
' Berechnung von Formeln:
' Formel aus einer markierten Spalte wird zu einem Ausdruck umgewandelt und die
' Spalte rechts davon eingetragen
ACSheet = ActiveSheet.Name
With Worksheets(ActiveSheet.Name)
For Each xcell In Selection
Row = xcell.Row
Col = xcell.Column + 1
If Len(xcell) > 0 Then
S$ = Trim(xcell.Value)
S$ = "=" & Replace(S$, ",", ".")
Worksheets(ACSheet).Cells(Row, Col).Value = S$
End If
Next xcell
End With

End Sub

Function Replace (iStr as String,vStr as String,nStr as String)
Dim nc as Integer, n as Integer
nc = len(iStr)
n = 1
While n <= nc
If Mid(iStr,n,1) = vStr Then
Mid(iStr,n) = nStr
end if
n = n + 1
Wend

End Function

Auch die Funktione mid MID(S1,1) = "X" funktioniert nicht.
Wie kann ich ein Zeichen ändern?

Ein kleines Beispiel als Anregung, hilft dir vielleicht weiter, beim Namen "Müller" wird das "ü" durch ein "ue" ersetzt.

****** Beginn Code

n = "Müller"
x = InStr(1, n, "ü")
neu = Mid(n, 1 , x - 1) & "ue" & Mid(n, x + 1 , len(n)-x)
MsgBox neu

****** Ende Code

Den Befehl »MID(S1,1) = "X"« gibt es in BM nicht.
Es gibt nur die (fehlerhafte) Funktion t = Mid(String, Start [, Länge])



Hier eine Replace Funktion:

Danke für die Hinweise.

Aus verschiedenen Skrpits (die ich dankbarer Weise auf diesen Seiten gefunden habe) zusammengebaut, nun das Endprodukt "pmBerechneFormel.bas".
Das Skript wertet die Formeln in einer markierten Spalte aus und überträgt sie in die Nachbarspalten wo sie von PlanMaker ausgewertet werden. In meinem Fall wird diese Spalte beim Drucken ausgeblendet.

Das Skript mit Tabelle als Beispiel:

Ich habe mir das Skript mal kurz angeschaut und ich mag mich irren, aber… …wieso nimmst Du nicht einfach die Zell-Funktion INDIREKT?

Es geht Folgendes:
in der Spalte B werden die Berechnungsformeln als Text eingetragen.
in der Spalte D sollen die Zischenergebnisse und Ergebnisse der Formeln aufscheinen.

Für die Behörde, die jeden Rechenvorgang überprüfen möchte, drucke ich die Spalten A,B und D aus. Für die Auswertung der Formeln habe ich nichts (auch in Excel) gefunden als den Zwischenschritt über ein Makro den Text in eine Formel umzuwandeln.

Bin für jede Vereinfachung Dankbar.

OK, vergiss das wieder. Ich war irgendwie auf dem falschen Gleis abgebogen…

Ich würde mit der Eigenschaft "FORMULA" arbeiten.

Ein kleines Beispiel für eine Zelle, hier für Zelle "C3". Da du ja Scripts schreiben kannst, habe ich mir erspart, das Script für einen Durchlauf für alle Zellen auszubauen. Falls es doch Probleme gibt, melde dich wieder.

************************
Dim pm as Object

Set pm = CreateObject("PlanMaker.Application") ' Verbindung aufbauen
pm.Application.Visible = True

Formel = "=" & pm.ActiveSheet.Cells.Item(3,2).Value
pm.ActiveSheet.Range("C3").Formula = formel

Set pm = Nothing ' Verbindung aufheben
*********************************

So ähnlich hatte ich es gemacht und so (mit der notwendigen Verfeinerung) steht es im Skript zum Herunterladen. Für mich ist der Fall erledigt.