Suche von Inhalten per UserForm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Private Sub CommandButton3_Click() Dim Sh As Worksheet '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 Dim SuchString As String Dim s As String Set Sh = Worksheets("Geburtstag") 'Zuordnung der Geburtstags-Tabelle LetzteZeile = Sh.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'Excel sagt mir bis wohin 'einen Suchstring erzeugen aus den Eingaben SuchString = Trim(UCase(TextBox1.Text)) & Trim(UCase(TextBox2.Text)) For i = 1 To LetzteZeile 'schleife zum suchen 'Vergleichsstring erzeugen aus den Zellen s = UCase(Trim(Sh.Cells(i, 4))) & UCase(Trim(Sh.Cells(i, 5))) If SuchString = s Then Exit For 'raus wenn gefunden - wenn absolut identisch If Left(s, Len(SuchString)) = SuchString Then Exit For 'raus wenn ähnlich (nur Nachname z. _ B.) Next If i > LetzteZeile Then 'es wurde nichts gefunden MsgBox ("nicht gefunden") Exit Sub End If TextBox1 = Sh.Cells(i, 4) TextBox2 = Sh.Cells(i, 5) TextBox3 = Sh.Cells(i, 6) 'Zuordnung der spalten beginnend mit F TextBox4 = Sh.Cells(i, 7) TextBox5 = Sh.Cells(i, 8) TextBox6 = Sh.Cells(i, 9) TextBox7 = Sh.Cells(i, 10) TextBox8 = Sh.Cells(i, 11) TextBox9 = Sh.Cells(i, 12) TextBox10 = Sh.Cells(i, 13) TextBox11 = Sh.Cells(i, 14) End Sub

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 ?

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche von Inhalten per UserForm

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread