problem mit makro
06.10.2005 14:55:40
Hansi
ich habe folgende code:
[code]
Sub Formel_daneben()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange.Columns(3)
If Zelle.HasFormula Then
Zelle.Offset(0, 1).Value = "'" & Zelle.Formula
End If
Next Zelle
End Sub
[/code]
ich bekomme weder eine fehlermeldung, noch das ergebnis was ich möchte...
Ich möchte das in der Spalte "C" alle Formeln in der daneben befindlichen Spalte ausgeschrieben werden.
irgendwo scheint ein fehler mit dem usedrange.columns(3) zu sein...hab da aber schon rumprobiert und konnte den fehler leider nicht finden...
habt ihr eine idee?
besten dank
Hansi
Anzeige