Thema Datum  Von Nutzer Rating
Antwort
09.05.2014 11:53:18 Bennomator
NotSolved
Blau Wenn Zellen = Null, dann Messagebox
 09.05.2014 14:37:17 Gast27609
Solved
09.05.2014 14:58:39 Bennomator
Solved
09.05.2014 15:25:40 Gast31538
NotSolved

Ansicht des Beitrags:
Von:
Gast27609		 Datum:
09.05.2014 14:37:17		 Views:
720		 Rating:
     
Antwort:
 Nein
Thema:
Wenn Zellen = Null, dann Messagebox

Dafür würde sich eine Schleife eigenen:

Sub KeineWerte()
 
  Dim strText As String
  Dim rngZelle As Range
  Dim blnAlleNull As Boolean
   
  blnAlleNull = True
  For Each rngZelle In Range("E11:E14,E16:E21")
    If rngZelle.Value <> 0 Then
      blnAlleNull = False
      Exit For
    End If
  Next
 
  If blnAlleNull Then
    MsgBox "Bitte wählen Sie eine andere Kombination!" & strText, 16, "Keine Werte verfügbar"
  End If
 
End Sub

 

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.05.2014 11:53:18 Bennomator
NotSolved
Blau Wenn Zellen = Null, dann Messagebox
 09.05.2014 14:37:17 Gast27609
Solved
09.05.2014 14:58:39 Bennomator
Solved
09.05.2014 15:25:40 Gast31538
NotSolved