Office: Logische Verknüpfung zwischen 2 Tabellen

Hallo zusammen,

ich brauche Hilfe bei folgender Aufgabenstellung:

In dem "Muster" soll automatisch der Name des Teilnehmers in Tabellenblatt 1 unter "Teilnehmer" erscheinen, wenn bei benötigte Qualifikationen ein "Ja" oder ein "Nein" eingetragen wird. Es soll möglich sein, verschiedene Qualifikationen mit "Ja" zu belegen.

Meine Versuche mit Sverweis, Wenn-Funktion etc sind bisher alle kläglich gescheitert...

Wer kann mir helfen?

Vielen Dank!

Michael

 

Hallo!

Au weia... Das dürfte mit Formeln aber schwer werden!
Versuch's mal lieber mit einem Makro dieser Art:

Code:

Sub test()
Const ErsteZeile = 3
Const LetzteZeile = 6
Dim i%, j%, x%, Zelle As Range, sZelle$, Bereich As Range
Range("G3:K100").ClearContents
Set Bereich = Sheets("Namen").Range("B2:C100")
With Sheets("Namen")
  For i = ErsteZeile To LetzteZeile
    x = 7
    For j = 2 To 6
      If Cells(i, j) = "Ja" Then
        Set Zelle = Bereich.Find(Cells(2, j))
        If Not Zelle Is Nothing Then
          sZelle = Zelle.Address
          Cells(i, x) = .Cells(Zelle.Row, 1)
          Do
            Set Zelle = Bereich.FindNext(After:=Zelle)
            On Error Resume Next
            If Zelle.Address = sZelle Then Exit Do
            x = x + 1
            Cells(i, x) = .Cells(Zelle.Row, 1)
          Loop
        End If
      End If
    Next j
  Next i
End With
End Sub

 

Da war noch ein Fehler drin...

Code:

Sub test()
Const ErsteZeile = 3
Const LetzteZeile = 6
Dim i%, j%, x%, Zelle As Range, sZelle$, Bereich As Range
Range("G3:K100").ClearContents
Set Bereich = Sheets("Namen").Range("B2:C100")
With Sheets("Namen")
  For i = ErsteZeile To LetzteZeile
    x = 6
    For j = 2 To 6
      If Cells(i, j) = "Ja" Then
        Set Zelle = Bereich.Find(Cells(2, j))
        If Not Zelle Is Nothing Then
          sZelle = Zelle.Address
          x = x + 1
          Cells(i, x) = .Cells(Zelle.Row, 1)
          Do
            Set Zelle = Bereich.FindNext(After:=Zelle)
            On Error Resume Next
            If Zelle.Address = sZelle Then Exit Do
            x = x + 1
            Cells(i, x) = .Cells(Zelle.Row, 1)
          Loop
        End If
      End If
    Next j
  Next i
End With
End Sub

 

Vielen Dank für deine schnelle Hilfe, nur leider habe ich von Makros überhaupt keine Ahnung, bisher kein einziges erstellt...

Aber dankeschön!

Vielleicht versuch ich das mal in nem ruhigen Moment...

Michael