Folgende Anwendung funktioniert mit Excel 2002 unter Windows XP.
Seit ich Windows Vista habe aber leider nciht mehr.
Mit Leihe auf dem Gebiet, brauche aber diese Anwendung dringend.
Für Hilfe eurer seits im voraus besten Dank.
Private Sub UserForm_Initialize()
Set objSh = ActiveSheet
Set objCell = ActiveCell
Rem MsgBox objSh.Name
Rem MsgBox objCell.Address
UserForm12.TextBox1.Value = objCell
OptionButton7.Value = True
With UserForm12.ListBox1
.ColumnCount = 6
.ColumnWidths = "95;95;150;150;150;30;"
End With
'Suchen-Funktion
Rem Dim s As Integer
With UserForm12
Sheets("Stammdaten").Activate
Rem UserForm12.TextBox1.Value = ActiveCell.Value
.ListBox1.Clear
hier ist das Problem: e = 0
For i = 2 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(i, 1).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(i, 1).Value
.ListBox1.Column(1, e) = Cells(i, 2).Value
.ListBox1.Column(2, e) = Cells(i, 3).Value
.ListBox1.Column(3, e) = Cells(i, 4).Value
.ListBox1.Column(4, e) = Cells(i, 5).Value
.ListBox1.Column(4, e) = Cells(i, 6).Value
e = e + 1
Else
End If
Next i
End With
End Sub
|