formulalocal Probleme
08.01.2020 10:46:15
Stefan
ich hab mal wieder ein vermutlich einfaches Problem.
In meiner Tabelle sind mehrere Anhäufungen von Indirekt formeln, in diesem Tabellenblatt sind es ca 600.
Da ich diese nun entfernen möchte und durch normale Zellenbezüge ersetzten will, hab ich einen Code geschrieben, der mir das ersetzt.
=WENN($B9"";INDIREKT($A9&"!"&E$3&E$4);"")
das war meine bisherige Formel in der ersten Zelle.
Private Sub einzelauswertungrest()
lZeile = 9
lSpalte = 5
X = 1
Z = 8
With Worksheets("Einzelauswertung")
For lSpalte = 5 To 13
X = X + 1
Z = 8
lspalteX = .Cells(3, 5)
kaka = .Cells(9, 14)
For lZeile = 8 To 90
If test = 1 Then
kaka = .Cells(lZeile, 14)
test = 0
Else
test = 1
End If
Z = Z + 1
Seite = Cells(Z, 1)
.Cells(lZeile, lSpalte).FormulaLocal = "=IF(" & kaka & " 0, " & Seite & " _
_
! " & lspalteX & ", """")"
Next lZeile
Next lSpalte
End With
End Sub
Dieser Code sollte das ganze ersetzten, bei den anderen Beispielen habe ich das auch hingekriegt, aber diesmal benötige ich eine "Wenn"-Formel und daran scheiterts glaube ich.
Wenn ich den Code ausführe, (auch wenn ich mit F8 jede Zeile durchgehe) bleibt er immer an _ dieser Codezeile hängen:
.Cells(lZeile, lSpalte).FormulaLocal = "=IF(" & kaka & " 0, " & Seite & "! " & lspalteX & ", """")"
und zeigt mir Laufzeitfehler 1004 "Anwendungs- oder objektdefinierter Fehler" an.
Weiß vielleicht eine Abhilfe?
Danke schonmal im vorraus und gruß
Stefan