Code Userform Problem

[Thomas78]

Hallo wieder mal liebes Forum,

ich habe eine Userform mit der ich den Wert einer Combobox in einer Tabelle suche und mir den Wert der nächsten Spalte in eine Textbox ausgebe.

Dieser funktioniert bisher auch einwandfrei.

Code:

Private Sub ComboBox1_Change()

Dim ZelleAE As Range

Set ZelleAE = Sheets("Artikel").Range("D5:L600").Find(What:=Me.ComboBox1.Text, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not ZelleAE Is Nothing Then

Me.TextBox2.Value = ZelleAE.Offset(0, 1).Value

End If

End Sub

Jetzt habe ich allerdings in Spalte D (Spalte der Combobox) keinen Wert stehen sondern einen Namen der sich aus folgender Formel ergibt:

PHP-Code:

=GLÄTTEN($E5&" "&$F5&" "&$G5&" "&$H5&" "&$I5) 


Und schon funktioniert mein Code nicht mehr. Wenn ich das Ergebnis in eine Hilfsspalte kopiere und nach dieser suchen lasse funktioniert wieder alles.

Gibt es eine Möglichkeit den Code zu ändern dass ich ohne Hilfsspalte auskomme?

Vielen Dank und schöne Grüße

Thomas

[Crazy Tom]

Hallo

und wenn du anstatt
lookin:=xlFormulas 

dieses nimmst

lookin:=xlValues

MfG Tom

[Thomas78]

Hallo Tom,

vielen Dank für die schnelle Hilfe ! Das war genau richtig !

Schöne Grüße

Thomas