ich habe diesen Code gefunden (weis nicht mehr wo) um ein gesuchtes item in "A" zu suchen und aus Spalte "C" den Wert in ein Label zu schreiben.
Private Sub txtRAL_Change()
Dim loletzte1 As Long, loletzte2 As Long
Dim i As Long, j As Long
Dim feld1 As Variant, feld2 As Variant, feld3 As Variant
Dim strSuchBegriff As String
'strSuchBegriff = Textbox1.Text 'Suchbegriff
strSuchBegriff = txtRAL
With Worksheets("Tabelle5") 'in Tabelle1=Quelltabelle
loletzte1 = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte belegte Zeile in Spalte A
feld1 = .Range("A2:A" & loletzte1).Value 'einlesen Spalte A in ein Array
feld2 = .Range("B2:B" & loletzte1).Value 'einlesen Spalte B in ein Array
feld3 = .Range("C2:C" & loletzte1).Value 'einlesen Spalte C in ein Array
End With
j = 1
For i = 1 To loletzte1 - 1
If feld1(i, 1) = strSuchBegriff Then 'Vergleich
lblRAL.Caption = feld3(i, 1) 'ab Zeile 2 schreiben
' lblCol.BackColor = feld2(i, 1) 'ab Zeile 3 schreiben 'ZEILE VON MIR
j = j + 1
End If
cmbCol.Value = txtRAL.Value & " " & lblRAL.Caption
Next i
End Sub
und so schaut meine Tabelle aus:https://www.herber.de/bbs/user/127061.jpg
Mit der "ZEILE VON MIR" habe versucht die Farbe den nebenstehende Zelle in ein Label zu übertragen ohne Erfolg, das heißt eine Farbe is im Label aber die falsche.
Kann mir Bitte jemand helfen?
Vielen Dank Im Voraus
Antonio