Fehlermeldung gesucht

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox MsgBox
Bild

Betrifft: Fehlermeldung gesucht
von: Sven
Geschrieben am: 16.09.2015 13:40:26

Hi zusammen,
brauche mal wieder etwas Hilfe von euch.
Ich schaffe es aktuell nicht eine Fehlermeldung (via msgBox) auszugeben wenn meine Listbox bzw. meine Suche keine Treffer findet.


 For Each rngCell In Bereich
          If rngCell.EntireRow.Hidden = False Then
            With SSD_Suchen.ListBox1
             .AddItem rngCell.Value
             .List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
             .List(.ListCount - 1, 2) = rngCell.Offset(0, 3).Value
            End With
           End If
    Next rngCell
Hier müsste ich irgendwie einbauen das wenn rngCell = "" ist dann msgBox ... ich bin einfach noch zu schlecht.
Danke für eure Hilfe.
Gruß
Sven

Bild

Betrifft: AW: Fehlermeldung gesucht
von: Michael
Geschrieben am: 16.09.2015 14:19:50
Hallo Sven,
die Frage ist, wo genau Du die haben möchtest, und ob Du beide abfragen willst.

For Each rngCell In Bereich
          If Not rngCell.EntireRow.Hidden Then        ' Not False = True
           If rngCell.Offset(0, 1).Value <> "" And rngCell.Offset(0, 2).Value <> "" Then
             With SSD_Suchen.ListBox1
              .AddItem rngCell.Value
              .List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
              .List(.ListCount - 1, 2) = rngCell.Offset(0, 3).Value
             End With
           Else
             Msgbox "Fehler in Zeile " & rngCell.row
           End If
          End If
    Next rngCell

Versuch's mal so (ungetestet).
Schöne Grüße,
Michael

Bild

Betrifft: AW: Fehlermeldung gesucht
von: Sven
Geschrieben am: 16.09.2015 16:45:02
Hallo Michael,
vielen Dank für deine Antwort! Leider war deine Idee nicht die Lösung aber es hat mich zum nachdenken gebracht. Wie stelle ich fest ob eine listbox leer ist ... ganz klar mit listcount.

If ListBox1.ListCount = 0 Then
MsgBox "Oh Mann, so simple"
Danke dir, deine Antwort hat mich zumindest zum denken gebracht :)
...und zum feststellen das ich an der falschen Stelle nach einer Lösung gesucht habe.
Beste Grüße
Sven

Bild

Betrifft: na fein, danke für die Rückmeldung owT
von: Michael
Geschrieben am: 16.09.2015 16:57:01


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fehlermeldung gesucht"