Thema Datum  Von Nutzer Rating
Antwort
Rot VBA
 30.04.2016 11:45:45 starfrench
NotSolved
Blau VBA
 30.04.2016 14:17:06 Crazy Tom
NotSolved
Rot VBA
 30.04.2016 14:38:00 Gast80755
NotSolved
Blau VBA
 30.04.2016 14:47:22 Crazy Tom
*****
NotSolved
Rot VBA
 30.04.2016 14:56:25 Gast40353
NotSolved
Blau VBA
 30.04.2016 15:12:42 Gast4928
NotSolved
Rot VBA
 30.04.2016 15:22:36 starfrench
NotSolved
Blau VBA
 30.04.2016 15:26:17 Crazy Tom
NotSolved
Rot VBA
 30.04.2016 15:27:20 starfrench
NotSolved
Blau VBA
 30.04.2016 15:35:02 Crazy Tom
NotSolved
Rot VBA
 30.04.2016 16:00:59 starfrench
NotSolved
Blau VBA
 30.04.2016 16:09:26 Crazy Tom
*****
Solved
Rot VBA
 30.04.2016 16:15:17 starfrench
NotSolved
Blau VBA
 30.04.2016 16:20:02 Gast3078
NotSolved
Rot Rot VBA
 30.04.2016 16:29:13 starfrench
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
30.04.2016 14:47:22		 Views:
821		 Rating:
     
Antwort:
  Ja
Thema:
VBA

Hi

in meinem Test gibt es eine Userform mit einer Textbox1 und einer Textbox2

dazu einen CommandButton1

in Textbox1 wird der zu suchende Begriff eingegeben

nach Klick auf den Commandbutton1 wird in der aktiven Tabelle

in Spalte 2 (B) nach dem Begriff gesucht

wird der Begriff gefunden wird das Ergebnis aus der

gleichen Zeile in Spalte 1 (A) in der Textbox2 angezeigt

Private Sub CommandButton1_Click()
    Dim c As Range
    Set c = Columns(2).Find(TextBox1.Value, _
            LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        TextBox2.Value = Cells(c.Row, 1).Value
    Else
        MsgBox "nix gefunden"
    End If
End Sub

 

MfG Tom

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 VBA
 30.04.2016 11:45:45 starfrench
NotSolved
Blau VBA
 30.04.2016 14:17:06 Crazy Tom
NotSolved
Rot VBA
 30.04.2016 14:38:00 Gast80755
NotSolved
Blau VBA
 30.04.2016 14:47:22 Crazy Tom
*****
NotSolved
Rot VBA
 30.04.2016 14:56:25 Gast40353
NotSolved
Blau VBA
 30.04.2016 15:12:42 Gast4928
NotSolved
Rot VBA
 30.04.2016 15:22:36 starfrench
NotSolved
Blau VBA
 30.04.2016 15:26:17 Crazy Tom
NotSolved
Rot VBA
 30.04.2016 15:27:20 starfrench
NotSolved
Blau VBA
 30.04.2016 15:35:02 Crazy Tom
NotSolved
Rot VBA
 30.04.2016 16:00:59 starfrench
NotSolved
Blau VBA
 30.04.2016 16:09:26 Crazy Tom
*****
Solved
Rot VBA
 30.04.2016 16:15:17 starfrench
NotSolved
Blau VBA
 30.04.2016 16:20:02 Gast3078
NotSolved
Rot Rot VBA
 30.04.2016 16:29:13 starfrench
NotSolved