Thema Datum  Von Nutzer Rating
Antwort
08.02.2019 06:56:59 Kevin Konow
NotSolved
08.02.2019 06:59:59 Gast30597
NotSolved
Rot Suchfunktion Excel VBA Bestellsystem
 08.02.2019 11:05:26 Gast8905
NotSolved
08.02.2019 22:49:01 Gast31970
NotSolved

Ansicht des Beitrags:
Von:
Gast8905		 Datum:
08.02.2019 11:05:26		 Views:
572		 Rating:
     
Antwort:
  Ja
Thema:
Suchfunktion Excel VBA Bestellsystem		 
Option Explicit

Sub tt()
Dim BarcodeText As String, Text As String
Dim passendeZelle  As Long

   'Test
   BarcodeText = 1234
   'BarcodeText = "123"
   'BarcodeText = "1234"
   
   On Error GoTo fail:
   passendeZelle = Tabelle2.Range("A6:D200").Find(BarcodeText, , xlValues, xlWhole).Row
   On Error GoTo 0
   Text = Sheets("Produktkatalog").Cells(passendeZelle, 5)
   If Text = vbNullString Then GoTo fail
   With Sheets("GUI_Bestellsystem")
      .Cells(Application.Max(6, .Cells(Rows.Count, 4).End(xlUp).Row + 1), 4).Value = Text
   End With
   
   Exit Sub

fail:
Text = "Es ist ein Fehler aufgetreten!" & vbLf & _
       "Der Artikel konnte Anhand der Bestellnummer " & BarcodeText & vbLf & _
       "nicht im Katalog gefunden werden." & vbLf & _
       "Bitte die Artikelbeschreibung Händisch eintragen."
Call MsgBox(Text, vbExclamation, "Eingabefehler")

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
08.02.2019 06:56:59 Kevin Konow
NotSolved
08.02.2019 06:59:59 Gast30597
NotSolved
Rot Suchfunktion Excel VBA Bestellsystem
 08.02.2019 11:05:26 Gast8905
NotSolved
08.02.2019 22:49:01 Gast31970
NotSolved