Herbers Excel-Forum - das Archiv

Textbox abhängig von Combobox- Bin ich zu dumm?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Textbox abhängig von Combobox- Bin ich zu dumm?
von: Gerhard

Geschrieben am: 21.05.2008 09:45:25

Hallo...
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

Bild

Betrifft: AW: Textbox abhängig von Combobox- Bin ich zu dumm
von: Beverly

Geschrieben am: 21.05.2008 10:11:44
Hi Gerhard,
du musst den Blattnamen berücksichtigen, andernfalls ist es das gerade aktive Tabellenblatt

Sheets("KONTEN").Cells(I, 1)


und

Sheets("KONTEN").Cells(Zeile, 2)




Bild

Betrifft: AW: Textbox abhängig von Combobox- Bin ich zu dumm
von: Gerhard
Geschrieben am: 21.05.2008 11:39:08
eieiei...da merkt man den Unterschied... naja ich werds schon noch irgendwann kapieren..
Danke Beverly

Bild

Betrifft: AW: Textbox abhängig von Combobox- Bin ich zu dumm
von: Gerhard

Geschrieben am: 21.05.2008 12:02:47
Jetzt bringt er mir ne Fehler Variable nicht deklariert ...
Ich schmeiss die Kiste gleich zum Fenster raus...*grmbl*

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


Bild

Betrifft: AW: Textbox abhängig von Combobox- Bin ich zu dumm
von: Renee

Geschrieben am: 21.05.2008 12:14:05
Hi Gerhard,

UserForm_Initialize()
: Variable I
cbo_Vorgang_Change(): Variable Zeile
Lies deinen Code und v.a. die Posts genauer!
GreetZ Renée
P.S. Ich schmeiss die Kiste gleich zum Fenster raus...*grmbl* Achmed oder was ?

Bild

Betrifft: AW: Textbox abhängig von Combobox- Bin ich zu dumm
von: Gerhard

Geschrieben am: 21.05.2008 16:54:37
thx Renee...
nuja erst laufen lernen, dann rennen :)
Hast scho recht, mir fehlt einfach noch der Blick fürs wesentliche...
greetz Gerhard
PS: P.S. Ich schmeiss die Kiste gleich zum Fenster raus...*grmbl* Achmed oder was ?
Du kennst Achmed auch?

Bild

Betrifft: Achmed, wer kennt ihn nicht ? (owT)
von: Renee
Geschrieben am: 21.05.2008 17:02:16

Bild

Betrifft: AW: Textbox abhängig von Combobox- Bin ich zu dumm?
von: Uwe (:o)

Geschrieben am: 21.05.2008 10:13:03
Hi Gerhard,
ich tippe mal auf die Schnelle, dass das nur passiert, wenn in der Find-Anweisung nichts gefunden wird, dann ist Auswahl = Nothing. Versuch mal (ich habe allerdings den restlichen Code nicht gelesen):

If Not Auswahl Is Nothing Then Zeile = Auswahl.Row


Gruß
Uwe
(:o)

 Bild
Excel-Beispiele zum Thema "Textbox abhängig von Combobox- Bin ich zu dumm?"
Text aus Textbox in Variable Namen von TextBoxes hochzählen
Text aus Textbox in Zellen aufteilen Nichtnumerische Eingaben in TextBox verhindern
Text aus UserForm-Textbox in Variable einlesen Nur Buchstaben in eine UserForm-TextBox
TextBoxes- und Label-Werte in Abhängigkeit verändern Nur AJM in TextBox akzeptieren und Anzahl zählen
Eingabelänge in TextBox begrenzen und Werte aus Liste übernehmen Artikel aus Auswahltextbox in Sammeltextbox verschieben