Könnt ihr mir bitte sagen, wie mein Makrö(n)chen abzuändern ist, daß in der Msgbox nicht jede Fundstelle einzeln angezeigt wird, sondern alle zusammen?
Sub FehlendeFormelAnzeigen()
Dim iZM As Integer
Dim iZe As Integer
Dim lZ As Long
With Sheets("Meine_Tabelle")
lZ = ActiveSheet.UsedRange.Rows.Count
iZM = .Range("A" & lZ).End(xlUp).Row
For iZe = iZM To 2 Step -1
If IsEmpty(.Cells(iZe, 2).Value) = False And .Cells(iZe, 110).HasFormula = False _
Then _
.Cells(iZe, 110).Interior.ColorIndex = 3
MsgBox "Formel fehlt in:" & Cells(iZe, 110).Address
End If
Next iZe
End With
End Sub
Also ich meine, daß mir alle Werte, die iZe annimmt, zusammen in der msgbox gelistet werden, nicht einzeln... Geht das überhaupt? Verzeiht meinen Dilletantismus und: Dank vorab!!! LG, Leonie