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

Userform mit Tabellendaten füllen

Userform mit Tabellendaten füllen
11.01.2005 13:13:01
Dennis
Hallo,
und noch eine Frage zur Userform:
Und zwar, möchte ich Daten aus einer Tabelle in eine Userfom importieren/anzeigen lassen. In dem unten aufgeführten Code ist das möglich mit einem Suchbegriff in Textbox1. Jetzt möchte ich aber zusätzlich noch ein anderes Kriterium mit einbinden. In Textbox1 wird ein Datum eigegeben, über eine Combobox (Internet/Print)wird nach einem anderen Kriterium gesucht.
Wenn ich also z.B. 11.01.2005 als Datum angebe und in der Combo Internet auswähle, dann soll er mit die Daten einspielen die mit beiden Kriterien übereinstimmen. Möglich?

Private Sub CommandButton1_Click()
Set frm1 = UserForm1
With frm1
Sheets("Tabelle1").Select
Range("A:A").Select
Selection.Find(What:=.TextBox1.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
.TextBox2.Value = ActiveCell.Offset(0, 1).Value
.TextBox3.Value = ActiveCell.Offset(0, 2).Value
End With
End Sub

Für Hilfe bin ich immer dankbar
Gruß Dennis

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform mit Tabellendaten füllen
Dennis
kann geschlossen werden
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige