Hallo Leute, brauche dringend eure Hilfe.. sitze seit zwei tagen an diesem Fehler und komme nicht weiter:
Userform2.ListBox1.Clear
For Each f In ThisWorkbook.Worksheets("Report").[Fehler1] 'Definierter Bereich mit Namen
If ThisWorkbook.Worksheets("Report").UsedRange.Cells(f.Row, f.Column).Value = "#Fehler#" Or ThisWorkbook.Worksheets("Report").UsedRange.Cells(f.Row, f.Column).Value = "Nichts gefunden" Then
With Userform2.ListBox1
.ColumnCount = 6
.ColumnHeads = False
.AddItem
.List(.ListCount - 1, 0) = f.Offset(0, -10).Value 'nummer
.List(.ListCount - 1, 1) = f.Address
.List(.ListCount - 1, 2) = f.Offset(0, -2).Value 'Summe
.List(.ListCount - 1, 3) = f.Offset(0, 0).Value 'WERT der Zelle -- FEHLER oder nichtsgefunden
.List(.ListCount - 1, 4) = f.Offset(0, -5).Value 'nummer2
.List(.ListCount - 1, 5) = f.Offset(0, -8).Value 'partner
.ColumnWidths = "4cm;3cm;1cm;2,5cm;3cm;2cm"
'.ColumnWidths = "3.5cm;2.5cm;1cm;2.5cm;3cm;2cm"
End With
Else
End If
Next f
Userform2.Show
End Sub
Private Sub ListBox1_Click()
'Bei Klick auf einen Treffer soll diese Zelle in der Tabelle ausgewählt werden
Application.Goto Reference:=Sheets("SSB Report").Range("M" & ListBox1.List(ListBox1.ListCount))
End Sub
------------------------------------------------------------------------------------------------------------------
Ich will
mit klick auf eine Listboxzeile zu der zelle in dem Tabellenblatt springen... und es geht nicht Fehler "Object requiered"
ich habe diese Zeile ---Application.Goto Reference:=Sheets("SSB Report").Range("M" & ListBox1.List(ListBox1.ListCount))-- schon in 80 verschiedenen varianten geschriebn--- auch so ----Application.Goto .Range(ListBox1.List(ListBox1.ListIndex, 1)) (wobei ich nur erahnen kann wozu die 1 da steht.. trotzdem gibt es immer einen FEHLER aus.. bitte um hilfe!!
DANKE |