2.5k Aufrufe
Gefragt in Tabellenkalkulation von m-o-m Mitglied (499 Punkte)
Hallo Wissende,

In meiner Excel 2010 habe ich einen Autofilter (A3).

Wenn nun keine Ergebnisse der Suche ausgegeben werden, soll eine MessageBox erscheinen, die meldet "Keine Ergebnisse."

Eigentlich nicht schwer (gehe ich mal von aus)

Aber, VBA ist nicht meins.

Ich kriege es ums verrecken nicht hin.

Schon mal vielen Dank für lesen und drüber nachdenken.

Gruß Maik

6 Antworten

0 Punkte
Beantwortet von m-o-m Mitglied (499 Punkte)
[b]ERGÄNZUNG[/b]

Die MsgBox soll erscheinen, wenn der Autofilter leer ist, ODER in Zelle C2

[code]=TEILERGEBNIS(3;A4:A500)[/code]

das Ergebnis Null ist.

Hab ich vergesen zu schreiben.

Besten Dank nochmal

Gruß Maik
0 Punkte
Beantwortet von rudi4ad Mitglied (167 Punkte)
Hallo Maik,

Private Sub Worksheet_Calculate()
With Tabelle1
If Me.FilterMode Then
If (.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Count - .AutoFilter.Range.Columns.Count) = 0 Then
MsgBox "0"
End If
End If
End With
End Sub


Gruß
Rudi
0 Punkte
Beantwortet von rudi4ad Mitglied (167 Punkte)
Hallo Maik

Private Sub Worksheet_Calculate()
If Not CBool(Range("k22").Value) Then MsgBox "0"
End Sub
0 Punkte
Beantwortet von m-o-m Mitglied (499 Punkte)
Hallo Rudi,

vielen Dank für die raschen Antworten und Sorry für die späte Reaktion.

Leider ist es nicht ganz das, was ich suche.

Die MsgBox öffnet sich jetzt bei jeder Suche. Sie sollte aber nur dann kommen, wenn der Autofilter leer ist, oder aber das Teilergebnis in C2 = 0 ist.

Ich hoffe, ich habe es jetzt verständlicher ausgedrückt.

Gruß Maik
0 Punkte
Beantwortet von rudi4ad Mitglied (167 Punkte)
Hallo Maik,

wenn deine Formel in C2 steht, --> anpassen-->

If Not CBool(Range("c2").Value) Then MsgBox "0"

Gruß
Rudi
0 Punkte
Beantwortet von m-o-m Mitglied (499 Punkte)
Hallo Rudi,

besten Dank für die schnelle Antwort.

Hatte ich schon probiert, aber an die falsche Stelle in meinem Makro gepackt. jetzt funzt es!!!

Gruß Maik
...