ich habe noch wenig Erfahrung mit VB Programmierung.
Ich habe das Problem, daß ich in VB/Macro die in einem Tabellenblatt stehende Formel aus lesen und verändern will.
z.B. steht in a1 366*0,5
wenn ich das mit ActiveCell auslese erhalte ich 183 und nicht 366*0,5
Somit kann ich nicht nach dem * suchen und die Zahl davor ersetzten.
Ich habe folgendes versucht:
Stelle = InStr(1, ActiveCell, "*", 1)
If Stelle Then
NeuPreis = Preis + Right(ActiveCell, Stelle)
ActiveCell = NeuPreis
Else
ActiveCell = Preis
End If
Wer kann mir helfen ?
Ein weiteres Problem wäre noch die letzte verwendete Zeile zu selktieren, um nicht bis ans Tabellenende zu suchen.
Vielen Dank im Voraus
mfg Alex