Message box mit fehlermeldung

Hallo zusammen.
Ich brauche hilfe für die einbindung einer Textnachricht wen der wert nicht mit der eigabe in der "Suchen.value" übereinstimmt, sonst gibt mir excel eine Fehlermeldung.
Hier der Code:


Private Sub SuchenArtNr_Click()
'Datum schreiben in die datumzelle der Bestellung
TextBoxcomandato.Value = Format(Date, "DD.MM.YYYY")
' ArtikelNr Suchen
Dim wonr As String
wonr = [Suchen].Value
Sheets("Lager").Select
Range("A3").Select
Selection.AutoFilter
Selection.AutoFilter
ActiveWindow.ScrollColumn = 1
Selection.AutoFilter Field:=2, Criteria1:=wonr
Range("A4:" & Range("A4").End(xlDown).Address).SpecialCells(xlCellTypeVisible).Select
' Makro für holen der daten in die Textboxen von Tabelle "Lager"
Range("a4:" & Range("a4").End(xlDown).Address).SpecialCells(xlCellTypeVisible).Select
Me.TextBoxCategoria = Selection.Value
Range("b4:" & Range("b4").End(xlDown).Address).SpecialCells(xlCellTypeVisible).Select
Me.TextBoxArtNr = Selection.Value
Range("c4:" & Range("c4").End(xlDown).Address).SpecialCells(xlCellTypeVisible).Select
Me.TextBoxArtName = Selection.Value
Range("e4:" & Range("e4").End(xlDown).Address).SpecialCells(xlCellTypeVisible).Select
Me.TextBoxSoll = Selection.Value
Range("f4:" & Range("f4").End(xlDown).Address).SpecialCells(xlCellTypeVisible).Select
Me.TextBoxAktuell = Selection.Value
Range("g4:" & Range("g4").End(xlDown).Address).SpecialCells(xlCellTypeVisible).Select
Me.TextBoxBestellt = Selection.Value
Range("a4:" & Range("a4").End(xlDown).Address).SpecialCells(xlCellTypeVisible).Select
Selection.AutoFilter
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
"...Leider gibt es eine Fehlermeldung..."
Dann würde ich eine Fehlerbehandlung einbauen :-)
Mal im Ernst:
So wie du die Daten abfragst und in die Textboxen einträgst,... das ist so eigentlich nicht sinnvoll.
Bei VBA-Gut sollte es ja kein Problem sein:
Schau dir mal die FIND-Methode an. Such dir den Suchbegriff OHNE Filter und schreibe die Werte dann in Abhängigkeit von der gefundenen Zelle.
Wird der Suchbegriff dann nicht gefunden, kannst du den Benutzer entsprechend informieren.
Hier mal ein Beispiel wie die FIND-Methode funktioniert.

Function simple_FindF(fStr As Variant) As String
    'by Ramses
    'Sucht Begriff in jeder Tabelle der Mappe
    'und zeigt an ob gefunden oder nicht
    'Aufruf in B1 mit =Simple_Find(A1)
    'wenn der Suchbegriff in A1 steht
    Dim wks As Worksheet, myC As Excel.Range
    For Each wks In ThisWorkbook.Worksheets
        If wks.name <> ActiveSheet.name Then
            With wks.UsedRange
                Set myC = .Find(fStr, LookIn:=xlValues)
                If Not myC Is Nothing Then
                    simple_FindF = "Begriff in " & wks.name & myC.Address & " gefunden"
                    Exit Function
                Else
                    simple_FindF = "Nicht gefunden"
                End If
            End With
        End If
    Next
End Function
Nun könntest du mit
Me.Textbox1 = simple_Find
Denn Wert direkt in die Textbox schreiben, und mit
Me.Textbox2 = simple_FindF.Offset(0,1)
den Wert aus der Nachbarzelle in Textbox2. Alle Befehle sind in der VBA-Hilfe gut dokumentiert.
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Message box mit fehlermeldung

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread