Leere Zellen ins Spalten finden und ausgeben

Sub Leerzelle() For Each rng In Range("k7:k256") If IsEmpty(rng) Then MsgBox "In Spalte k bei Zelle k" & rng.Row & " fehlt eine Formel !!! " _ _ & vbLf & _ "Die Formel muss nachprogrammiert werden !!!": Exit Sub Next MsgBox "keine leere Zelle gefunden" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Leerzelle() Dim RnG As Range Dim Loletzte&, x& Loletzte = Range("EndeBereich").Row - 1 For x = 9 To Loletzte If IsEmpty(Cells(x, 11)) Then MsgBox "In K" & x & " fehlt eine Formel und muss nachprogrammiert werden" End If Next End Sub

Option Explicit Sub Leerzelle() Dim RnG As Range Dim Loletzte&, x&, j& Loletzte = Range("EndeBereich").Row - 1 For j = 11 To 19 If j = 12 Then j = 16 If j = 17 Then j = 18 For x = 9 To Loletzte If IsEmpty(Cells(x, j)) Then MsgBox "In " & Cells(x, j).Address(0, 0) & " fehlt eine Formel ..." End If Next Next End Sub

Option Explicit Sub Leerzelle() Dim RnG As Range Dim Loletzte&, x&, j& Loletzte = Range("EndeBereich").Row - 1 For j = 11 To 19 If j = 12 Then j = 16 If j = 17 Then j = 18 For x = 9 To Loletzte If IsEmpty(Cells(x, j)) Then If MsgBox("In " & Cells(x, j).Address(0, 0) & " fehlt eine Formel ..." & vbLf & vbLf & " _ weiter suchen?", vbYesNo) vbYes Then Exit Sub End If Next Next End Sub

Sub Leerzelle() Dim RnG As Range Dim Loletzte&, x&, j& Loletzte = Range("EndeBereich").Row - 1 For j = 11 To 19 'Spalte K bis S If j = 12 Then j = 16 If j = 17 Then j = 18 For x = 7 To Loletzte 'ab Zeile 7 wird geprüft If IsEmpty(Cells(x, j)) Then If MsgBox("In " & Cells(x, j).Address(0, 0) & " fehlt eine Formel ..." & vbLf & _ "weiter suchen?", vbYesNo) vbYes Then Exit Sub End If Next Next End Sub

Hallo Erwin,
das automatische Einfügen der Formeln nach OK könnte man wie folgt lösen.
Allerdings muss du in Spalte P die Datengültigkeitsprüfung löschen, da deine einen Leerstring zurückgeben kann, was zu einem Fehler im Ablauf fürht, da deine Datengültigkeit als Ergebnis eine Zahl &gt 0 erfordert.
Gruß
Franz

Sub Leerzelle()
Dim RnG As Range
Dim Loletzte&, x&, Spalte&, Antwort&
Loletzte = Range("EndeBereich").Row - 1
For x = 9 To Loletzte
For Spalte = 1 To 19
Select Case Spalte
Case 11, 16, 18
If IsEmpty(Cells(x, Spalte)) Then
Cells(x, Spalte).Select
Antwort = MsgBox("In " & Cells(x, Spalte).Address _
& " fehlt eine Formel und muss nachprogrammiert werden", _
vbYesNoCancel, "Prüfen leere Zellen")
If Antwort = vbYes Then
Select Case Spalte
Case 11 'K
'Formel Spalte K
ActiveSheet.Cells(x, Spalte).FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(RC[-1]=System!R6C18," _
& """nein"",""Fehler"")))"
Case 16 'P
'Formel Spalte P
ActiveSheet.Cells(x, Spalte).FormulaR1C1 = _
"=IF(RC[-2]="""","""",IF(RC[-1]="""",RC[-2],RC[-2]-RC[-1]))"
Case 18 'R
'Formel Spalte R
ActiveSheet.Cells(x, Spalte).FormulaR1C1 = _
"=IF(RC[-4]="""","""",IF(RC[-3]="""",1,RC[-2]/RC[-4]))"
End Select
ElseIf Antwort = vbCancel Then
GoTo Beenden
End If
End If
End Select
Next
Next
Beenden:
End Sub

Beliebteste Forumthreads (12 Monate)

Leere Zellen ins Spalten finden und ausgeben

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

345 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leere Zellen ins Spalten finden und ausgeben

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

345 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread