Fehler abfangen 1004

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


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Fehler abfangen 1004
von: Lerch Beat
Geschrieben am: 24.06.2002 - 15:37:38

Hallo zusammen
Hoffentlich kann mir jemand Helfen?
Ich habe in einer UserForm eine Combobox (KundeNr) wen ich die Kunden Nummer eingebe erscheint Automatisch die richtige Anschrift in einem Bezeichnungsfeld.

Wen in der Tabelle (Adressen) der Kunde noch fehlt erhalte ich die Fehler Meldung 1004
Meine Frage ist: wie kann ich diese Meldung abfangen so das ich eine Meldung erhalte „wollen sie den Kunden neu anlegen“ und mit OK die UserForm (frmAdressen) erscheint.

Übrigens (Die Kunde Nummer sind von den Rindvieh Zuchtverbänden zugeteilt worden)
Vielen Dank im voraus
Lerch Beat

nach oben   nach unten

Re: Fehler abfangen 1004
von: Ramses
Geschrieben am: 24.06.2002 - 17:41:00

hallo Beat,


Sub ErrorDemo()
'Was soll EXCEL machen wenn ein Fehler auftritt
On Error GoTo ErrDemo
'Dies ist ein Fehler, weil diese Zelle nicht existiert
Range("zzz").Select

'WICHTIG
'Immer einen Ausgang anlegen
ErrDemoExit:
Exit Sub

ErrDemo:
'Filtern des Fehlers
Select Case Err.Number
    Case 1004
        MsgBox "Diese Zelle existiert nicht"
        'Soll zum Ausgang gehen oder jetzt
        'deine weiteren Befehle ausführen
        Resume ErrDemoExit
End Select
MsgBox "Unbekannter Fehler"
Resume ErrDemoExit
End Sub

Gruss Rainer

nach oben   nach unten

Re: Fehler abfangen 1004
von: Lerch Beat
Geschrieben am: 25.06.2002 - 21:49:58

Hallo Rainer
vielen Dank,
Kriege es nicht hin :-(

Die ComboBox erhält die Daten von

Dim intRow As Integer
Worksheets("Genetik").Select

' Quellzeile festlegen
intRow = cbbNachGenetik.ListIndex + 1

wenn ich hier eine Kundennummer eingebe die nicht vorhanden ist
kommt Fehler 1004

Range("zzz").Select
bei deinem Vorschlag was muss ich bei ("zzz") einfügen?

Gruss Beat

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Fehler abfangen 1004"