Thema Datum  Von Nutzer Rating
Antwort
Rot Unterschiedliche On Error GoTo in ein einem Worksheet Change
 30.01.2017 12:51:57 Gast77500
NotSolved
30.01.2017 15:02:47 Werner
NotSolved
30.01.2017 15:57:56 Gast77500
NotSolved

Ansicht des Beitrags:
Von:
Gast77500		 Datum:
30.01.2017 12:51:57		 Views:
1565		 Rating:
     
Antwort:
  Ja
Thema:
Unterschiedliche On Error GoTo in ein einem Worksheet Change

Hallo zusammen,

ich würde gerne bei 2 Worksheets Changes ein unterschiedliches Errohandling haben. Zurzeit gibt er mir wenn ich C3 falsch ausfülle beide Error Meldungen in die Felder ein. Es soll aber nur die jeweilge vom On Error GoTo genutz werden. Wie muss ich das machen?

Und bei dem zweiten Change möchte ich eigentlich kein Feld beschreiben sondern direkt eine MsgBox ausgegeben bekommen.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngLiefname As Range
Dim rngWarengrp As Range
Dim liefname As String
Dim Warengruppe As String

Set rngLiefname = Range("C3")
If Target.Address(0, 0) = "C3" Then
    If Target <> "" Then
        On Error GoTo Ausgang
        liefname = Application.VLookup(Target.Value, Workbooks("Artikelpass_vorbereiten.xlsm") _
        .Sheets("Lieferantenkontakte").Range("B2:H1000"), 4, False)
        Range("C5") = liefname
    Else
        Range("C5") = ""
    End If
    
Ausgang: Range("C5") = "Lieferantendaten nicht hinterlegt!"
End If

Set rngWarengrp = Range("C9")
If Target.Address(0, 0) = "C9" Then
    If Target <> "" Then
        On Error GoTo KPWG
        Warengruppe = Application.VLookup(Target.Value, Workbooks("Artikelpass_vorbereiten.xlsm") _
        .Sheets("Tabelle2").Range("A2:B11000"), 2, False)
        Range("C11") = Warengruppe
    Else
        Range("C11") = ""
    End If
End If
Exit Sub

KPWG: Range("C11") = "PWUG existiert nicht!"

End Sub

 

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
Rot Unterschiedliche On Error GoTo in ein einem Worksheet Change
 30.01.2017 12:51:57 Gast77500
NotSolved
30.01.2017 15:02:47 Werner
NotSolved
30.01.2017 15:57:56 Gast77500
NotSolved