Re: Daten über Userform erfassen
10.08.2002 08:53:19
Henri
Hallo Tobias,ich habe bei meinen Versuchen eine bestehende Excel Tabelle nach meinen Wünschen umgestaltet. Darin war schon eine Suchfunktion enthalten. Die sieht so aus:
Private Sub CommandButton1_Click()
Dim ergeb As String
Sheets("Daten").Select
Range("a1").Select
With ActiveSheet.UsedRange
Set c = .Find(UserForm2.TextBox1, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Activate
ergeb = ergeb & ActiveCell.EntireRow.Cells(, 1)
& " | " & ActiveCell.EntireRow.Cells(, 2)
& " | " & ActiveCell.EntireRow.Cells(, 3)
& " | " & ActiveCell.EntireRow.Cells(, 4)
& " | " & ActiveCell.EntireRow.Cells(, 5)
& " | " & ActiveCell.EntireRow.Cells(, 6)
& "
" & Chr$(13)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
UserForm1.Ergebniss = (ergeb)
UserForm1.Show
End Sub
Dort wird aber das Ergebnis in einer neuen Userform als Text (???) ausgegeben. Leider kann ich von da nix in meine Tabelle übernehmen.
Bei der Suchfunktion nach doppelten Einträgen müsste ich eigentlich nach dem selben Schema wie oben vorgehen. Ich weiß nur nicht so recht wie ich das anstellen soll. Schließlich habe ich die original Tabelle nur modifiziert und (leider) nicht selbst erstellt.
Danke Henri