Spalte in Zelle - Vergleich von Werten

[cqone]

Guten Tag zusammen

Für mein Schallplatten-Inventar suche ich ein Lösung Inhalt von Spalten in Zellen darzustellen. In meinem Beispiel (Anhang:Inventar_1.png) befinden sich Daten (Genre, Stil, Jahr etc.) in der Spalte A . Auch der Interpret ist in Spalte A.
In Spalte B befinden sich die Werte zu den Begriffen. 
Die Zellen C1-N1 enthalten die gleiche Begriffen wie in Spalte A (also Genre, Stil, Jahr etc.)

Meine Herausforderung besteht nun darin, die Werte in Spalte A mit den den Werten in Zelle C1-N1 zu vergleichen und bei einem Match den Wert, welcher sich in den Spalte B befindet, zuweisen (Inventar_Idee.png). Sobald die Werte in den Zellen zugewiesen sind würde mir das schon reichen (auch wenn mehrere Zellen ausgefüllt werden), die Bearbeitung und das Feintuning übernehme ich.

Danke für eure Hilfe

[shift-del]

Hallo

http://www.herber.de/excelformeln und bitte suchen .../formeln.html?welcher=361

[Klaus-Dieter]

Hallo,

versuche es mal mit diesem Makro:

Code:

Option Explicit

Sub transpon()
   Dim intZeile As Integer
   Dim intSpalte As Integer
   Dim strBereich As String
   Dim varCol As Variant
   Dim intStZeile As Integer
   Dim strAntw As String
   On Error Resume Next
   Application.ScreenUpdating = False
   strBereich = "3:" & leZeile
   For intZeile = 1 To 1828
       If Len(Cells(intZeile, 1)) = 0 Then intStZeile = intZeile
       varCol = Application.Match(Cells(intZeile, 1), Rows(1), 0)
       Cells(intStZeile + 1, varCol) = Cells(intZeile, 2)
   Next intZeile
   Columns("C:N").EntireColumn.AutoFit
   strAntw = MsgBox(prompt:="Transponierte Zeilen l?schen?", Buttons:=vbYesNo + vbCritical, Title:="Bitte best?tigen")
   If strAntw = vbNo Then Exit Sub
   For intZeile = leZeile To 2 Step -1
       If Len(Cells(intZeile, 3)) = 0 Then Rows(intZeile).Delete Shift:=xlUp
   Next intZeile
   Application.ScreenUpdating = True
End Sub

Function leZeile() As Long
   leZeile = CLng(Range(Range(Cells(1, 1), Cells(Rows.Count, Columns.Count)).Find(What:="*", _
       After:=Range("A" & Rows.Count), LookIn:=xlValues, LookAt:=xlWhole, _
       SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address).Row)
End Function

[cqone]

Danke an euch, das hat so geklappt

[Klaus-Dieter]

Hallo,

es hätte uns schon interessiert, für welchen Vorschlag du dich entschieden hast.

[cqone]

Ich war neugierig und habe beide Lösungen getestet. Dein (Klaus-Dieter) fand ich ein bisschen komfortabler.