MsgBox bei nicht erfüllter Bedingung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim lloRow As Long, lboNotOk As Boolean For lloRow = 4 To 20 If Range("H" & lloRow).Value = "" Then lboNotOk = True Exit For End If Next If Range("H22").Value = "" Then lboNotOk = True End If If lboNotOk = True Then MsgBox "Im Bereich H4:H20 und auch H22 müssen alle Zellen ausgefüllt sein. Bei mindestens einer Zelle fehlt der Eintrag noch." End If

Hi
den Vergleich "=" kannst du nur mit Einzelwerten verwenden.
Deine Range sind aber viele Werte.
Wenn du jetzt das "=" auf viele Werte anwendest, bekommst du entweder einen Fehler, oder es wird immer nur der erste Wert der Wertegruppe für den Vergleich verwendet.

ich würde hier die die Leerzellen im Zellbereich zählen

also im Prinzip so in deinem IF:

IF (Worksheetfunction.CountBlank(Range("H4:H20")) - (Range("H22")="")) > 0 Then

(H22 ist ein Einzelwert, der verglichen werden kann, in Berechnungen verwendet VBA ein TRUE als -1 und ein FALSE wie 0)

wenn du weißt, ob H21 immer einen wert hat oder nicht, dann kannst du das auch einfach in die Berechnung mit aufnehmen, um nur einen Bereich auswerten zu müssen, hier dann >1, wenn H21 immer leer ist und >0, wenn H21 befüllt ist

IF Worksheetfunction.CountBlank(Range("H4:H22")  > 0 Then

die Leerzellen zu zählen ist hier sinnvoller als die befüllten Zellen zu zählen, weil du bei jeder Leerzellenanzahl größer 0 die Meldung ausgeben musst.
Zählst du die befüllten Zellen, musst du zusätzlich zählen und angeben, wieviele Zellen überhaupt befüllt sein müssen, was eine zusätzliche Fehlerquelle darstellt und gerne mal vergessen wird, wenn Werte hinzukommen oder entfallen.

Gruß Daniel

Hallo
habe keine Ahnung wo ich den Codeteil einsetzen soll

Zahl = WorksheetFunction.CountA(Range("H4:H20,H22")) 'gesamt = 18

ich bekomme das einfach nicht hin

Private Sub CommandButton1_Click()
If Range("H4,H5,H6,H7,H8,H9,H10,H11,H12,H13,H14,H15,H16,H17,H18,H19,H20,H22") = "" Then
MsgBox ("Bitte fülle alle Prozeßparameter-Felder aus und gib einen Grund der Änderung an")
Exit Sub
End If
ActiveSheet.Unprotect "Geheim"
Dim lz1 As Long
lz1 = Cells(Rows.Count, "O").End(xlUp).Row + 1
If lz1 4 Then lz1 = 4
Range("H22:M26").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("H4,H5,H6,H7,H8,H9,H10,H11,H12,H13,H14,H15,H16,H17,H18,H19,H20,H22,H23,H24,H25,H26").Select
Selection.Copy
Range("O" & lz1).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=True
Application.CutCopyMode = False
Selection.UnMerge
Range("H22:M22,H23:M23,H24:M24,H25:M25,H26:M26").Select
Range("H26").Activate
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("D22").Select
ActiveCell.FormulaR1C1 = ""
ActiveSheet.Protect "Geheim", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Beliebteste Forumthreads (12 Monate)

MsgBox bei nicht erfüllter Bedingung

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MsgBox bei nicht erfüllter Bedingung

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread