Private
Sub
UserForm_Initialize()
For
Each
f
In
ThisWorkbook.Worksheets(
"Report"
).[Fehler]
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
.List(.ListCount - 1, 1) = f.Address
.List(.ListCount - 1, 2) = f.Offset(0, -2).Value
.List(.ListCount - 1, 3) = f.Offset(0, 0).Value
.List(.ListCount - 1, 4) = f.Offset(0, -5).Value
.List(.ListCount - 1, 5) = f.Offset(0, -8).Value
.ColumnWidths =
"4cm;3cm;1cm;2,5cm;3cm;2cm"
End
With
Else
End
If
Next
f
End
Sub
Private
Sub
ListBox1_Click()
If
IsNull(ListBox1.Value)
Then
MsgBox
"Sie haben nichts ausgewählt!"
Exit
Sub
Else
ThisWorkbook.Worksheets(
"Report"
).Range(ListBox1.List(ListBox1.ListIndex, 1)).
Select
End
If
Unload UserForm2
End
Sub