habe folgendes Makro:
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Sheets("Datenbank").Select
Dim Wks As Worksheet
Dim Ze As Long
Set Wks = Worksheets("Datenbank")
Ze = ActiveCell().Row
Wks.Range(Cells(Ze, 2), Cells(Ze, 15)).Select
Wks.Range(Cells(ComboBox1.ListIndex + 4, 2), Cells(ComboBox1.ListIndex + 4, 15)).Select
ActiveWindow.ScrollRow = ComboBox1.ListIndex + 3
Application.ScreenUpdating = False
End Sub
Es hatte funktioniert, nur werden mir jetzt die Namen Falsch angezeigt, also nicht mehr na
A,B,C...
Wieso ?
gruß Walter