Suche von Inhalten per UserForm

Inhalten · 2007-09-20T09:17:00+00:00

Hallo Forum, einen schönen guten Morgen wünsche ich euch! Mein Problem... Ich möchte per UserForm1 Textbox1 in der Tabelle Geburtstag einen Wert (Namen) suchen und anschliessend die Angaben dazu in den Textboxen 2-8 der UserForm1 anzeigen lassen. Der zu durchsuchende Bereich umfasst die Spalten D und E, die anzuzeigenden Werte für die Textboxen 2-8 stehen in der Tabelle Geburtstag in den Spalten F - M. Ein kleines Problem für euch (hoffe ich), ein grosses Problem für mich als VBA-Neuling. Wer kann mir mit einem Code-Beisoiel weiterhelfen? Grüsse aus Niedersachsen, Ina

Hi ... in "purem" VBA, obwohl sicherlich viele hier es anders lösen würden:
Wenn Du Deine UserForm1 mit einem Command-Button zum Suchen bestückst, dann nenne den cmdSuche, dann klappts mit diesem Code hier. Lege Deine Textboxen auf die Form, No 1 ist dann halt die Eingabe.


Private Sub cmdSuche_Click()
Dim Sh As Worksheet 'Dann ist das code schreiben einfacher, die variable nimmt ein excel sheet  _
auf
Dim i As Integer 'lauf-variable für die schleife
Dim LetzteZeile As Integer 'damit wir wissen bis wohin eigentlich
Set Sh = Worksheets("Geburtstag") 'Zuordnung der Geburtstags-Tabelle
LetzteZeile = Sh.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'Excel sagt mir bis wohin
For i = 1 To LetzteZeile 'schleife zum suchen
If Trim(Sh.Cells(i, 4)) = Trim(TextBox1.Text) Then Exit For  'raus wenn gefunden
'trim, damit nicht ausversehen irgendwer leerzeichen eingegeben hat ...
',4 .. 4te Spalte = D
Next
If i > LetzteZeile Then 'es wurde nichts gefunden
MsgBox ("nicht gefunden")
Exit Sub
End If
TextBox2 = Sh.Cells(i, 6) 'Zuordnung der spalten beginnend mit F
TextBox3 = Sh.Cells(i, 7)
TextBox4 = Sh.Cells(i, 8)
TextBox5 = Sh.Cells(i, 9)
TextBox6 = Sh.Cells(i, 10)
TextBox7 = Sh.Cells(i, 11)
TextBox8 = Sh.Cells(i, 12)
TextBox9 = Sh.Cells(i, 13)
End Sub

Anmerkungen:
klar - man kann auch mit Range-Objekten arbeiten oder mit nem simplen "find" .. oder sogar geschickt mit gebundenen Steuerelementen, aber ich glaube Ina gings mal um das prinzipielle vorgehen!
Grüße, Dirk

Hallo Ina,
natürlich geht das ... und leider leider leider gibts auch hier wieder 1000 Wege, die nach Rom führen!
und .. das nervt nicht, für mich gilt: jeden Tag eine gute Tat ;-) Ab 10 Hilfestellungen dann einen Kaffee *g*
Ich habe versucht nachzudenken, was du brauchen könntest...
1. Mache Dir ein neues Excel-Blatt auf
2. Füge eine UserForm hinzu
3. Setze ein Texteingabefeld darauf
4. Setze einen Command-Button daneben
5. Setze eine ComboBox unter das Eingabefeld
6. Bei den Eigenschaften der Combobox setzt du unter ColumnCount den Wert 3
7. Setze einen CommandButton neben die Combobox
8. in Tabelle1 schreibst du bitte in die Zellen a1 bis a7 irgendwelche Namen
9. dann in Spalte b1 bis b7 und c1 bis c7 irgendwelche Werte
10. im Code-Bereich der Userform setzt du folgendes ein :


Private Sub CommandButton1_Click()
Dim i As Integer
Dim f As Integer
For i = 1 To 7
If Len(TextBox1.Text)


Private Sub CommandButton2_Click()
ComboBox1.Clear
End Sub

11. Starte das ganze - wenn Du nun die (Anfangs)-Buchstaben der/des Namens eingibst und
den Button neben dem Textfeld drückst, wird die ComboBox mit entsprechenden Namen und
den danebenstehenden Werten gefüllt.
12. entweder Combobox aufklappen und schauen oder auch in der combobox anfangen einen
Namen zu schreiben (wird automatisch ergänzt)
Hats geholfen ?

Forumthread: Suche von Inhalten per UserForm

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Suche von Inhalten per UserForm

Forumthread: Suche von Inhalten per UserForm

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread