durch die Hilfe des Forums habe ich folgenden Code erhalten, den ich erweitern möchte:
Option Explicit
Sub Leerzelle2()
Dim RnG As Range
Dim Loletzte&, x&, j&
Loletzte = Range("EndeBereich").Row - 1 'im Namensnanager definiert = ok
For j = 11 To 19 '11 = Spalte K ok 19 = Spalte S = ok
If j = 12 Then j = 16 '12 = keine Ahnung warum 16 = Spalte P = ok
If j = 17 Then j = 18 '17 = keine Ahnung warum 18 = Spalte S = ok
For x = 7 To Loletzte 'ab Zeile 7 wird geprüft
If IsEmpty(Cells(x, j)) Then 'wenn Zelle leer, dann folgende Formel eintragen
'=WENN(J17="";"";WENN(J17=System!$R$6;"nein";"Fehler")))
If j = 11 Then Cells(x, j).FormulaLocal = "=WENN(" & Cells(x, j - 1).Address(0, 0) _
& "="""";"""";WENN(" & Cells(x, j - 1).Address(0, 0) _
& "=System!$R$6;""nein"";""Fehler"")))"
'=WENN(N17="";"";WENN(O17="";N17;N17-O17))
If j = 16 Then Cells(x, j).FormulaLocal = "=WENN(" & Cells(x, j - 2).Address(0, 0) _
& "="""";"""";wenn(" & Cells(x, j - 1).Address(0, 0) _
& "="""";(" & Cells(x, j - 2).Address(0, 0) & ";""...""))" ' _
vbYes Then Exit Sub
End If
Next
Next
End Sub
Bist zur Spalte 11 (=Spalte K) funktioniert alles.In Spalte 16 (=Spalte P) und in Spalte 18 (=Spalte R) sollen noch die Formeln eingefügt werden.
Aber ich verzweifle; habe ich es falsch verbunden oder fehlen Hochkomme, keine Ahnung!
Wer kann mir hier weiterhelfen?
Grüße
Erwin