In ´der Tabelle suchen

Forumthread: In ´der Tabelle suchen

18.09.2013 14:13:02

Christian

Hallo Excelfreunde
Ich möchte eine Suche in VBA programmieren. Ich habe ein Kombinationsfeld. In diesem Feld werden Einträge aus der Tabelle angezeigt.
Wählt der Anwender den Eintrag im Kombinations, soll im Textbox der entrspprechende Eintrag aus der Zeile der Spalte B angezeigt werden.
Eine Weitere Schwierigkeit ist das in Tabelle 1 und Tabelle 2 geschaut werden muss.
Kann mir jemand helfe. Ich habe noch verständnisproblem, wie man Daten von der Tabelle zum Steuerelement überträgt.

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: In ´der Tabelle suchen

19.09.2013 00:53:22

fcs
AW: In ´der Tabelle suchen

19.09.2013 13:49:34

Christian
AW: In ´der Tabelle suchen

20.09.2013 07:08:43

Hajo_Zi
AW: In ´der Tabelle suchen

20.09.2013 14:32:49

Christian
AW: In ´der Tabelle suchen

20.09.2013 16:52:09

Hajo_Zi
AW: In ´der Tabelle suchen

20.09.2013 17:03:18

fcs

AW: In ´der Tabelle suchen

19.09.2013 00:53:22

fcs

Hallo Christian,
vor einer Beantwortung deiner Frage(n) hab ich Zusatzfragen.
1. Befinden sich die Steuerelemente auf einem Tabellenblatt oder einem Userform?
2. Wenn auf einem Tabellenblatt:
Sind es Formular-STeuerelemente oder Active-X-Steuerelemente?
Gruß
Franz

AW: In ´der Tabelle suchen

19.09.2013 13:49:34

Christian

Hallo Franz
Meine Steuerelemente liegen auf ein Userform.
Danke

AW: In ´der Tabelle suchen

20.09.2013 07:08:43

Hajo_Zi


Option Explicit
Private Sub CommandButton1_Click()
' Suchen in Tabelle 1
Dim RaFound1 As Range
Set RaFound1 = Worksheets("Tabelle1").Columns(1).Find(ComboBox1, Range("A" & Rows.Count), _
xlFormulas, xlWhole, , xlNext)
If Not RaFound1 Is Nothing Then
TextBox1 = RaFound1.Offset(0, 1)
Else
' Suchen in Tabelle 2
Set RaFound1 = Worksheets("Tabelle2").Columns(1).Find(ComboBox1, Range("A" & Rows.Count) _
, _
xlFormulas, xlWhole, , xlNext)
If Not RaFound1 Is Nothing Then
TextBox1 = RaFound1.Offset(0, 1)
Else
TextBox1 = "Nicht gefunden"
End If
End If
End Sub

AW: In ´der Tabelle suchen

20.09.2013 14:32:49

Christian

Hallo Hajo
Danke für deine schnelle Antwort
Die Lösung ist fast richtig. Wenn der Benuter eine Auswahl im Kombinationsfeld ausgewählt wird, soll der in Inhalt aus der entsprechenden Zeile in Spalte B in der Textbox angezeigt werden.
Beispiel: die Auswahl in der Kombinationsbox steht in Tabelle1 Spalte S3, dann soll in der Textbox der Inhalt von B3 angezeigt werden.
Christian
Die Vorgaben in der Kombibox stehen in der Spalt s3-i3
Jede zeile ist ein Datensatz.
Wenn noch verständnisfragen offen sind schreiben

AW: In ´der Tabelle suchen

20.09.2013 16:52:09

Hajo_Zi

mein Code macht das genau in meiner Datei. Deine sehe ich nicht.
Gruß Hajo

AW: In ´der Tabelle suchen

20.09.2013 17:03:18

fcs

Hallo Christian,
wenn du nicht in Spalte A suchen möchtest, dann muss du das Makro von HaJo etwa wie folgt anpassen.
Gruß
Franz

Private Sub CommandButton1_Click()
' Suchen in Tabelle 1
Dim RaFound1 As Range
With Worksheets("Tabelle1")
With .Range("I:S") 'Spalten I bis S durchsuchen
Set RaFound1 = .Find(ComboBox1, .Cells(1, 1), xlFormulas, xlWhole, , xlNext)
End With
If Not RaFound1 Is Nothing Then
TextBox1 = .Cells(RaFound1.Row, 2) 'Wert aus Spalte B einlesen
Else
' Suchen in Tabelle 2
With Worksheets("Tabelle2")
With .Range("I:S") 'Spalten I bis S durchsuchen
Set RaFound1 = .Find(ComboBox1, .Cells(1, 1), xlFormulas, xlWhole, , xlNext)
End With
If Not RaFound1 Is Nothing Then
TextBox1 = .Cells(RaFound1.Row, 2) 'Wert aus Spalte B einlesen
Else
TextBox1 = "Nicht gefunden"
End If
End With
End If
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: In ´der Tabelle suchen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread