Thema Datum  Von Nutzer Rating
Antwort
24.11.2016 14:15:46 Tim
NotSolved
24.11.2016 14:54:37 Gast16861
NotSolved
Rot In Spalte A suchen, Wert in Spalte B ausgeben
 24.11.2016 15:44:20 Gast40405
NotSolved
24.11.2016 16:36:18 Tim
Solved

Ansicht des Beitrags:
Von:
Gast40405		 Datum:
24.11.2016 15:44:20		 Views:
774		 Rating:
     
Antwort:
  Ja
Thema:
In Spalte A suchen, Wert in Spalte B ausgeben
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Suchen()
  
Dim Suche As String
Dim Ausgabe As String
Dim rng As Range
 
Suche = Application.InputBox(prompt:="Bitte Barcode einscannen: ", _
                                        Title:="Eingabe", Type:=1)
If Suche <> False Then
  
    Set rng = Worksheets("Tabelle1").Columns("A:A").Find _
        (Suche, lookat:=xlWhole, LookIn:=xlValues)
 
    If rng Is Nothing Then
        MsgBox ("Zahl in der Datei nicht vorhanden")
         
    Else
        Ausgabe = rng.Offset(0, 1)
        MsgBox (Ausgabe)
    End If
 
     
Exit Sub
End If
 
End Sub

Das ganze ist jetzt noch verbessert, brauche jetzt noch irgendwie eine Möglichkeit, dass die InputBox so lange wiederholt wird bis ich auf Abbrechen drücke :-) Kann mir da noch jemand weiterhelfen?

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
24.11.2016 14:15:46 Tim
NotSolved
24.11.2016 14:54:37 Gast16861
NotSolved
Rot In Spalte A suchen, Wert in Spalte B ausgeben
 24.11.2016 15:44:20 Gast40405
NotSolved
24.11.2016 16:36:18 Tim
Solved