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
Private Sub UserForm_Initialize()
Dim I As Long
If [a65536] = "" Then
Letzte = [a65536].End(xlUp).Row
Else
Letzte = 65536
End If
For I = 2 To Letzte
cbo_Vorgang.AddItem Sheets("KONTEN").Cells(I, 1)
Next I
cbo_Vorgang.ListIndex = 1
End Sub
Option Explicit
Dim Letzte As Long
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 = Sheets("KONTEN").Cells(I, 2) 'das "I" passt ned!?
Was passt jetzt schon wieder ned?
End If
End Sub
If Not Auswahl Is Nothing Then Zeile = Auswahl.Row
Gruß
Uwe
(:o)