Irgendwie bin ich zu doof für VBA... seit gestern versuche ich mich daran eine Textbox in Abhängigkeit der Auswahl einer Combobox zu bringen.
Es funktionier, aber nur so lange ich das Sheet auf dem die Daten stehen aktiv hab. Sobald ich aber meine UF im Übersichtssheet geöffnet habe bekomme ich folgenden Fehler: Objekt erforderlich.
Ich zweifel schon langsam an mir selbst... Kann mir jemand sagen was ich falsch mache?
Meine Daten:
Sheet Übersicht CommandButton Übersicht, öffnet UF
Private Sub UserForm_Initialize()
Dim zelle As Range
Dim Bereich
Dim I As Long
If Sheets("KONTEN").Range("A2:A") = "" Then
Letzte = Sheets("KONTEN").Range("A2:A").End(xlUp).Row
End If
For I = 2 To Letzte
cbo_Vorgang.AddItem Cells(I, 1)
Next I
cbo_Vorgang.ListIndex = 1
End Sub
Private Sub cbo_Vorgang_Change()
Dim Zeile As Integer
Dim Auswahl As Range
If cbo_Vorgang.Value "" Then
Set Auswahl = Sheets("KONTEN").Range("A2:A" & Letzte).Find(cbo_Vorgang.Value, lookat:= _
xlWhole)
Zeile = Auswahl.Row
txt_Buchungskonto = Cells(Zeile, 2)
End If
End Sub
In der fett markierten Zeile ist anscheinend der Fehler...
Die Werte für die Combobox stehen in Sheet KONTEN Spalte A ab 2
die Werte für die Textbox stehen in Sheet Konten Spalte B ab 2
Kann mir jemand behilflich sein, bitte?
Greetz Gerhard