Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Eigene Fehlermeldung erzeugen

Forumthread: Eigene Fehlermeldung erzeugen

Eigene Fehlermeldung erzeugen
21.07.2005 09:37:51
David
hallo
gestern habe ich im archiv einen beitrag gefunden, der zeigt wie man in VBS eigene fehlermeldungen kreieren kann. leider kann ich ihn heute nicht mehr finden.
ich möchte eine fehlermeldung erzeugen, wenn bspw. die zellen A1 bis E1 zusammen mehr als 100 ergeben. kann mir da jemand weiterhelfen?
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eigene Fehlermeldung erzeugen
21.07.2005 10:17:33
Harald
Hallo Daniel,
mit vbs meinst Du sicherlich vba ;-))

Sub Meldung()
If WorksheetFunction.Sum(Range("a1:e1")) > 100 Then
MsgBox "Datt is doch wieder mal vieeeel zu viel !!"
End If
End Sub

Gruß
Harald
AW: Eigene Fehlermeldung erzeugen
21.07.2005 10:59:02
David
hallo harald
danke für deine antwort! eine frage habe ich noch. deine paar zeilen habe ich im vba-editor eingegeben (werkzeuge, marko, visual-basic-editor). was muss ich nun unternehmen, damit es ins excel sheet übertragen wird? ich arbeite mehr oder weniger zum ersten mal mit vba...
Anzeige
AW: Eigene Fehlermeldung erzeugen
21.07.2005 12:11:12
Harald
hi Daniel,
das hängt ganz davon ab, wann diese Geschichte benötigt wird. Üblicherweise benötigt man so ne Sache wohl nur in einem Blatt. Rechtsklick auf Tabelle1 (Register links unten), Code anzeigen und ins rechte Fenster kopieren.
Im Blatt selbst kannst Du per Steuerelement-Toolbox einen Button generieren und bei Code anzeigen

Private Sub CommandButton1_Click()
Call Meldung
End Sub
einfügen.
Oder Du willst es einem Ereignis zuordnen. Dann musste ider oberen Leiste des rechten vba-Code-Fenster von (Allgemein) nach (Worksheet)umschalten und im linken Pop-Up ein Ereignis auswählen (z.B.Activate für Prozeduraufruf bei Aktivieren des Blattes...oder Calculate bei Rechenoperation als Auslöser)
Überfordert ?..... Ist alles halb so wild ;-))
Gruß
Harald
Anzeige
AW: Eigene Fehlermeldung erzeugen
25.07.2005 08:25:08
David
hallo harald
du bist ein held! ich habe die lösung via steuertool-button gewählt, so dass die validierung ausgeführt wird sobald der button angeklickt wird. besten dank.
viele grüsse und eine schöne woche wünscht dir
david
AW: Eigene Fehlermeldung erzeugen
21.07.2005 10:21:08
Dr.
Hi,
so zum Beispiel. Musst Du noch entsprechend adaptieren.

Private Sub Worksheet_Change(ByVal Target As Range)
i = Application.WorksheetFunction.Sum(Range("a1:a5"))
If i > 100 Then MsgBox "Fehler!"
End Sub

Anzeige
AW: Eigene Fehlermeldung erzeugen
21.07.2005 10:33:40
Nepumuk
Hi,
so:
Public Sub test()
    Err.Raise Number:=vbObjectError + 1, Description:="Das ist ein selbstgemachter Fehler"
End Sub

Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Eigene Fehlermeldung in Excel erstellen


Schritt-für-Schritt-Anleitung

Um eine eigene Fehlermeldung in Excel zu erstellen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier sind die Schritte, die Du befolgen solltest:

  1. VBA-Editor öffnen:

    • Gehe zu „Entwicklertools“ und klicke auf „Visual Basic“. Falls die Entwicklertools nicht sichtbar sind, aktiviere sie über die Excel-Optionen.
  2. Neues Modul erstellen:

    • Rechtsklicke im Projektfenster auf „VBAProject (DeineDatei.xlsx)“ und wähle „Einfügen“ > „Modul“.
  3. Code für die Fehlermeldung eingeben:

    • Füge den folgenden Code in das Modul ein:
    Sub FehlermeldungErzeugen()
       If WorksheetFunction.Sum(Range("A1:E1")) > 100 Then
           MsgBox "Datt is doch wieder mal vieeeel zu viel !!"
       End If
    End Sub
  4. Button erstellen:

    • Füge einen Button in Dein Excel-Blatt ein (über „Entwicklertools“ > „Einfügen“ > „Button“) und verlinke ihn mit dem Makro FehlermeldungErzeugen.
  5. Testen:

    • Klicke auf den Button und überprüfe, ob die Fehlermeldung erscheint, wenn die Summe der Zellen A1 bis E1 größer als 100 ist.

Häufige Fehler und Lösungen

  • Fehlermeldung beim Ausführen des Makros:

    • Stelle sicher, dass Du das Makro aktiviert hast. Gehe zu „Datei“ > „Optionen“ > „Sicherheitscenter“ > „Einstellungen für das Sicherheitscenter“ > „Makroeinstellungen“ und aktiviere die Makros.
  • Keine Reaktion beim Button-Klick:

    • Überprüfe, ob der Button korrekt mit dem Makro verbunden ist. Rechtsklicke auf den Button, wähle „Makro zuweisen“ und wähle das entsprechende Makro aus.

Alternative Methoden

Eine alternative Methode zur Erstellung einer Fehlermeldung in Excel ist die Verwendung von Ereignisprozeduren. Hier ein Beispiel:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.WorksheetFunction.Sum(Range("A1:A5")) > 100 Then
        MsgBox "Fehler! Summe übersteigt 100."
    End If
End Sub

Dieser Code prüft automatisch, ob die Summe beim Ändern einer Zelle über 100 liegt.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du Fehlermeldungen in Excel implementieren kannst:

  1. Summe in einem bestimmten Bereich prüfen:

    Sub PrüfeSumme()
       If WorksheetFunction.Sum(Range("B1:B10")) > 50 Then
           MsgBox "Die Summe von B1 bis B10 ist zu hoch!"
       End If
    End Sub
  2. Benutzerdefinierte Fehlermeldung ausgeben:

    Public Sub CustomError()
       Err.Raise Number:=vbObjectError + 1, Description:="Das ist ein selbstgemachter Fehler"
    End Sub

Tipps für Profis

  • Fehlermeldungen anpassen: Du kannst die Fehlermeldungen personalisieren, indem Du die Texte in MsgBox änderst.
  • Fehlerprotokoll: Überlege, ein einfaches Fehlerprotokoll zu erstellen, um alle aufgetretenen Fehlermeldungen zu dokumentieren.
  • Nutzung von Excel-Formeln: Wenn Du keine VBA-Programmierung verwenden möchtest, kannst Du auch bedingte Formatierungen und die WENN-Funktion in Excel nutzen, um einfache Fehlermeldungen zu erstellen.

FAQ: Häufige Fragen

1. Kann ich Fehlermeldungen ohne VBA erstellen? Ja, Du kannst bedingte Formatierungen und Formeln verwenden, um einfache Warnmeldungen direkt in den Zellen anzuzeigen.

2. Wie kann ich die Fehlermeldung anpassen? Du kannst den Text innerhalb der MsgBox-Funktion ändern, um die Fehlermeldung zu personalisieren.

3. Was ist der Unterschied zwischen VBA und VBS? VBA (Visual Basic for Applications) wird speziell für Microsoft-Anwendungen wie Excel verwendet, während VBS (Visual Basic Script) eine allgemeine Skriptsprache ist, die keine direkte Verbindung zu Excel hat.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige