Guten Abend ihr Excelspezialisten,
mit nachstehendem Code befülle ich die Listbox1:
Dim lLetzte As Long
ThisWorkbook.Worksheets("Gesamtkonto").Activate
With ThisWorkbook.Worksheets("Gesamtkonto")
lLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
ListBox1.RowSource = "A2:K" & lLetzte
ListBox1.ColumnCount = 11
ListBox1.ColumnHeads = False
ListBox1.ColumnWidths = "2,0 cm;1,4 cm;4,7 cm;4,7 cm;2,7 cm;" & _
"2,7 cm;2,7 cm;4,7 cm;1,5 cm;4,7 cm;" & ";0,7 cm"
End With
Nun benötige ich, dass der letzte Eintrag angezeigt wird jedoch nicht selectiert wird.
Denn beim Select werden die Daten in die Textbox geschrieben und damit das Change Ereignis ausgeführt. Die sollte jedoch nicht erfolgen.
Gibt es hierfür eine Möglichkeit?
Besten Dank für eure Hilfe.
Gruss
Peter