Makro um MsgBox ergänzen
27.06.2013 06:44:30
Erwin
ich habe nachfolgenden Code, der funktioniert und mir fehlende Formeln generiert:
Sub Leerzelle_pruefen_ergaenzen()
Dim RnG As Range
Dim Loletzte&, x&, j&
Loletzte = Range("EndeBereich").Row - 1 'im Namensnanager definiert s.ausgeblendete Zeile
For j = 11 To 11 '11 = Spalte K
For x = 7 To Loletzte 'ab Zeile 7 wird geprüft
If IsEmpty(Cells(x, j)) Then 'wenn Zelle leer, dann
Cells(x, j).Select 'Zelle wird markiert
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"")))"
If MsgBox("In " & Cells(x, j).Address(0, 0) _
& " wurde die fehlende Formel eingefügt:" _
& vbLf & vbLf & Cells(x, j).FormulaLocal & vbLf & vbLf & vbLf _
& "Weitersuchen?", vbYesNo) vbYes Then Exit Sub
End If
Next
Next
End Sub
Wenn jetzt aber überall Formeln enthalten sind und das Makro nichts machen muss, merkt man es auch nicht, dass alles passt.Ich wollte nur nur noch eine kleine MsgBox, dass das Makro gelaufen ist und keine Formeln zu ergänzen waren.
Wo und wie muss es in den Code?
Grüße
Erwin