Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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
Anzeige
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

Anzeige
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

Anzeige
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

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige