Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Sub fehlerhaft??

Betrifft: Sub fehlerhaft?? von: Andy
Geschrieben am: 08.09.2004 16:15:53

Hallo!
Ich habe mal wieder ein Problem..
das untenstehende

Sub soll im blatt "neue", falls in spalte a etwas steht, überprüfen ob in der gleichen zeile in den spalten b,c,d ebenfalls werte stehen.
Ist dies nicht der fall doll die meldung ausgegeben werden.
Dieses Kontrolle soll von zeile 15 bis 26 erfolgen.

Sub neu_kontrolle()
Dim h As Integer
For h = 15 To 26
If Sheets("neue").Cells(h, 1).Value <> "" Then
    If Sheets("neue").Cells(h, 2).Value = "" And _
    Sheets("neue").Cells(h, 3).Value = "" And _
    Sheets("neue").Cells(h, 4).Value = "" Then
        MsgBox "Die Angaben in Zeile " & h & " sind unvollständig."
        Exit Sub
    End If
End If
Next h
End Sub


Danke
Andy
  


Betrifft: AW: Sub fehlerhaft?? von: Dr.
Geschrieben am: 08.09.2004 16:19:30

Läuft bei mir fehlerfrei.


  


Betrifft: AW: Sub fehlerhaft?? von: Andy
Geschrieben am: 08.09.2004 16:24:32

ok, dann werde ich nochmal rumprobieren

Andy


  


Betrifft: AW: Sub fehlerhaft?? von: Andy
Geschrieben am: 08.09.2004 16:45:17

ich habe jetzt geschrieben:
...Then:
MsgBox "Die Angaben in Zeile " & h & " sind unvollständig."
Exit Sub
End If
End If
Next h
End Sub

Leider wird mir die msgbox angezeigt, aber in den zellen in zeile 15 steht etwas..
Die meldung dürfte also gar nicht erscheinen.

Andy


  


Betrifft: AW: Sub fehlerhaft?? von: ransi
Geschrieben am: 08.09.2004 16:23:20

hallo andy

nur ein versuch, aber mach mal so:
ist aber nicht getestet.(fehlt vieleicht noch ein endif)
Sub neu_kontrolle()
Dim h As Integer
For h = 15 To 26
If Sheets("neue").Cells(h, 1).Value <> "" Then
    If Sheets("neue").Cells(h, 2).Value = "" Then _
    If Sheets("neue").Cells(h, 3).Value = "" Then _
    If Sheets("neue").Cells(h, 4).Value = "" Then _
        MsgBox "Die Angaben in Zeile " & h & " sind unvollständig."
        Exit Sub
    End If
End If
Next h
End Sub


ransi


  


Betrifft: AW: Sub fehlerhaft?? von: PeterW
Geschrieben am: 08.09.2004 18:37:38

Hallo Andy,

du kannst zur Überüprüfung auf leere Zellen CountA benutzen. Mal ein einfaches Beispiel:
Sub AufLeerePruefen()
   Dim lngRow As Long
   lngRow = 4
   If WorksheetFunction.CountA(Range(Cells(4, 1), Cells(4, 4))) < 4 Then
      MsgBox "da fehlt noch was"
   Else
      MsgBox "alles ausgefüllt"
   End If
End Sub

Gruß
Peter


  


Betrifft: Dank an alle von: Andy
Geschrieben am: 09.09.2004 09:15:34

Vielen Dank an alle für die Hilfe.
Das Problem ist gelöst.

andy