15.09.2017, 07:51
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.
Jetzt habe ich allerdings in Spalte D (Spalte der Combobox) keinen Wert stehen sondern einen Namen der sich aus folgender Formel ergibt:
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
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 SubJetzt 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