Exitierende Formeln erweitern
18.10.2018 11:06:16
Oliver
ich verzweifle gerade mit meinem VBA code
Folgende Aufgabe habe ich:
Ich habe viele Zellen mit "absouten" Beziehungen:
z.B. Tab1!A1=Tab2!$F$1772
Die Werte entsprechen hierbei Zeitangaben, also z.B. 9:30
Diese möchste ich nun, (zur besseren Lesbarkeit) in 9,5 umwandlen.
Von der Logik her habe ich mir gedacht, ich multipliziere alle Werte mit 24 und ändere das Format in "Zahl". (würde zumindest das machen, was ich will)
Ich muss mit den Werten nicht weiterrechnen, es dient nur als "kopiervorlage.
So, da ich das nun für "tausende" von Zellen machen muss, dachte ich bastel mir ein Makro.
Das läuft auch ohne Fehlermeldung, macht aber scheinbar nichts....
Hat jemand vielleicht eine Idee, wo mein Fehler liegen könnte?
Hier der Code, (eingebettet in TAB1)
Sub Fromeln_ergänzen()
Dim A As String
Dim Zelle As Range
On Error Resume Next
A = InputBox("Formel ergänezen um")
For Each Zelle In Selection.Cells
Zelle.FormulaLocal = "=(" & Zelle.FormulaLocal & ")" & A
Next Zelle
On Error GoTo 0
End Sub
Die Inputbox kommt, aber wenn ich dann auf Ok klicke passiert einfach gar nix...
Wäre um jede Idee dankbar! (auch um andere Lösungsansätze ;-))
Viele Grüße
Oliver