Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
432to436
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
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfrage

Abfrage
23.05.2004 18:05:22
Peter
Hallo meine Kenntnisse in VBA erstrecken sich auf die von Herber gegebenen Beispiele in abgewandelter Form! Mein Problem:
ich habe eine UserForm mit OptionButton und TextBoxen. Aufgrund der gemachten Einträge soll nach Abgleich mit Tabelle1:SpalteA und Tabelle1:SpalteB eine Antowrt aus Tabelle1:SpalteC gegeben werden.
Beispiel:
Spalte A.....Spalte B.....Spalte C
Rot..........Rund.........Paul
Rot..........Eckig........Klaus
Rot..........Dreieck......Fritz
Schwarz......Rund.........Franz
Schwarz......Eckig........Dieter
Schwarz......Dreieck......Norbert
kann mir hierfür jemand den VBA Code geben?
Wäre echt super !!!
Danke
Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage
23.05.2004 18:50:04
NE
Hi Peter,
meinst Du etwa s.u.?
Vorraussetzung Du vergibst in Spalte A die jeweiligen Bereichsnamen
"Rot", Schwarz", etc
Obwohl ginge vielleicht auch noch anders
cu Nancy
--

Private Sub CommandButton1_Click()
Dim n As Name, cell As Range
For Each n In ThisWorkbook.Names
If TextBox1.Text = n.Name Then
For Each cell In Sheets(1).Range(n)
If TextBox2.Text = cell.Offset(0, 1) Then
MsgBox cell.Offset(0, 2)
Exit For
End If
Next
End If
Next
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige