Gute Tag zusammen. Ich habe folgendes Problem. Mit einem Makro errechne ich in einer Spalte aus EuroPreisen den DollarWert. Jedoch stehen in manchen Zellen keine Werte, sondern die Ergebnisse von mehreren anderen Zellen. Wenn ich also das Makro laufen lassen rechnet er die betreffende Zelle im Prinzip 2mal um. Ich will also, dass das Makro erkennt, ob in einer Zelle eine Formel verwendet wird - und wenn, dann soll diese Zelle nicht berücksichtigt werden.
Hier das Makro
Dim wks As Worksheet, iSpalte%, lngZeile&, dblKurs#
Set wks = ActiveSheet
iSpalte = 2 'Spalte mit den Angaben in Euro
dblKurs = ActiveSheet.Range("M43").Value
With wks
For lngZeile = 1 To .Cells(.Rows.Count, iSpalte).End(xlUp).Row
If (Not IsEmpty(.Cells(lngZeile, iSpalte))) _
And IsNumeric(.Cells(lngZeile, iSpalte)) Then
.Cells(lngZeile, iSpalte).Value = .Cells(lngZeile, iSpalte) * dblKurs
End If
Next
End With