Fehler bei Versionswechsel von 2010 auf 2013
23.12.2015 16:24:43
2010
ich hoffe mir kann jemand helfen, da ich nicht mehr weiß woran es liegen kann.
Ich nutze einen Adressenfilter in meinem VBA-Skript . Ich gebe in einem Userform in einer Textbox einen Namen ein und in einer Listbox werden die Ergebnisse angezeigt, die mit einem Abgleich aus einer weiteren Excel-Datei geschieht. Nach jedem Buchstaben wird die Liste aktualisiert.
Bei Excel 2010 hat alles wunderbar funktioniert und ich konnte den Namen durchschreiben mit ständiger Aktualierung. Beim Umstieg auf 2013 ist es nun so, das nach der Eingabe des 1. Buchstabens der Cursor aus der Textbox verschwindet und die Zelle des Tabellenblattes aktiviert wird. Dort wird der Name dann weitergeschrieben. Also ich muss für jeden weiteren Buchstaben vorher in die Textbox klicken. Wie kann ich das abstellen?
Private Sub TextBox2_Change()
Kontaktauswahl = Me.TextBox2.Value
Call Kontakte_Filtern
End Sub
Dim MeineLetzteZeile As Long
Dim MeinFilter As String
Dim MeineZeile As Long
Auswahl1kurz = Mid$(Auswahl1, 3)
Workbooks(Auswahl1kurz & ".xls").Activate
With Sheets(Auswahl1kurz)
MeineLetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
MeinFilter = LCase(Kontaktauswahl)
ListBox1.Clear
For MeineZeile = 1 To MeineLetzteZeile
If .Cells(MeineZeile, 1).Value "" Then
If LCase(.Cells(MeineZeile, 5).Value) Like MeinFilter & "*" Then
ListBox1.AddItem .Cells(MeineZeile, 1).Value
End If
End If
Next MeineZeile
End With
End Sub