Hallo Spezialisten,
habe Excel umgestellt und nun wird "ThisWorkbook" nicht mehr angenommen, bzw. Laufzeitfehler 91
So funktioniert es nicht!
With ThisWorkbook.Worksheets("Data")
UF1.cboKDAnrede.List = .Range(.Cells(2, 17), .Cells(Rows.Count,17).End(xlUp)).Value
UF1.cboKDAnrede.ListIndex = -1
End With
So schon!
With Worksheets("Data")
UF1.cboKDAnrede.List = .Range(.Cells(2, 17), .Cells(Rows.Count,17).End(xlUp)).Value
UF1.cboKDAnrede.ListIndex = -1
End With
Was muß ich ändern?
Danke!
Gruß
Sigi