AW: Listbox in UF mit Daten füllen.
07.10.2007 00:00:00
Heinz
Hallo
Habe es GESCHAFFT,Bin aber auch selber FERTIG !!
Eine Frage noch: Wenn ich in TextBox 14 einen neuen Namen zum suchen eingebe,und den CommandButton1 Clicke müsste das ListFeld1 mit der alten Werten gelöscht werden. (Clear)
Könnte mir nochmals bitte ein Profi Weiterhelfen ?
Danke & Gruß Heinz
Private Sub CommandButton1_Click()
Dim Sh As Worksheet 'Die variable nimmt ein excel sheet auf
Dim i As Integer 'lauf-variable für die schleife
Dim f As Integer
Dim LetzteZeile As Integer 'damit wir wissen bis wohin eigentlich
Dim SuchString As String
Dim s As String
Set Sh = Worksheets("Liste") 'Zuordnung der Adressens-Tabelle
LetzteZeile = Sh.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'Excel sagt mir bis wohin
'einen Suchstring erzeugen aus den Eingaben
SuchString = Trim(UCase(TextBox14.Text)) '& Trim(UCase(TextBox2.Text))
For i = 1 To LetzteZeile 'schleife zum suchen
'Vergleichsstring erzeugen aus den Zellen
s = UCase(Trim(Sh.Cells(i, 1))) & UCase(Trim(Sh.Cells(i, 2)))
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 (" Leider kein Eintrag gefunden... ")
Exit Sub
End If
TextBox1 = Sh.Cells(i, 1) 'Spalte A=Fam.Name
TextBox2 = Sh.Cells(i, 2) 'Spalte B=Vorname
TextBox3 = Sh.Cells(i, 3) 'Spalte C=Adressen
TextBox4 = Sh.Cells(i, 4) 'Spalte D=Ort
TextBox5 = Sh.Cells(i, 5) 'Spalte E=PLZ
TextBox6 = Sh.Cells(i, 6) 'Spalte F=Bundesland
TextBox7 = Sh.Cells(i, 7) 'Spalte G=Tel.Privat
TextBox8 = Sh.Cells(i, 8) 'Spalte H=Handy Privat
TextBox9 = Sh.Cells(i, 9) 'Spalte I=TelFirma
TextBox10 = Sh.Cells(i, 10) 'Spalte j=Fax
TextBox11 = Sh.Cells(i, 11) 'Spalte K=Email
TextBox12 = Sh.Cells(i, 12) 'Spalte L=WebAdressen
TextBox13 = Sh.Cells(i, 13) 'Spalte M=Geburtstag
For i = 1 To LetzteZeile
If Len(TextBox14.Text)