Microsoft Office Tutorials and References
In Depth Information
Kapitel 7 – Tipps und Tricks
End Sub
Function Check_Mussfelder() As Boolean
Dim intMF As Integer
Check_Mussfelder = True
With ThisWorkbook.Sheets("Investitionsantrag")
For intMF = 1 To .Range("Mussfelder").Rows.Count
If .Range(.Range("Mussfelder").Cells(intMF, 1).Value) = "" Then
MsgBox "Bitte füllen Sie alle Mussfelder aus, bevor Sie das Formular
speichern", vbInformation, .Range("Mussfelder").Cells(intMF, 1).Value
Check_Mussfelder = False
Exit For
End If
Next intMF
End With
End Function
Die Mappe kann jetzt erst wieder gespeichert werden, wenn alle
Mussfelder ausgefüllt sind. Eine Meldung weist darauf hin, dass min-
destens ein Feld nicht beschriftet ist, die Zelladresse sehen Sie in der
Kopfzeile der Meldung.
Abbildung 7.19: Diese Meldung erscheint, wenn ein Mussfeld (hier A3) nicht ausgefüllt ist
VBA-02: Gefilterten Wert anzeigen
In großen Listen ist der AutoFilter ein nützliches Werkzeug zur
Reduzierung der Anzeige auf bestimmte Spalteninhalte. Markieren
Sie die Liste und schalten Sie ihn ein:
Daten/Filter/AutoFilter
2003
Daten/Sortieren und Filtern/Filtern
In der Praxis wäre es oft sinnvoll, den gefilterten Wert anzuzeigen, aber
dafür bietet Excel keine Funktion an. Mit der benutzerdefinierten
Funktion FILTERWERT() schließen Sie diese Lücke, sie zeigt den gefil-
terten Wert in der Zelle an, in der sie hinterlegt ist. FILTERWERT()
erkennt auch UND- und ODER-Verbindungen im AutoFilter.
2007
Search JabSto ::




Custom Search