VBA-Beispiel 049
mail schreiben
mail schreiben

mit vba Kreuztabelle durchsuchen

Anders als beim ersten Beispiel soll in diesem Fall ein Zellbereich durchsucht und bei einem Treffer Name und Vorname in Tabelle 2 aufgelistet werden.

Sub Kreuztabelle_2()
Dim Zeile As Long, Spalte As Long, Anz As Long  
Dim str_result As String  

Anz = 1

For Zeile = 2 To 7  

    For Spalte = 2 To 7  

      If Cells(Zeile, Spalte) = "1" Then  
        str_result = Cells(Zeile, 1) & "   " & Cells(1, Spalte)
        Worksheets("Tabelle2").Cells(Anz, 1) = str_result
        Anz = Anz + 1
      End If  

    Next Spalte

Next Zeile

Worksheets("Tabelle2").Activate
End Sub  

Download:   vba049.zip