Zeile mit bestimmtem Wert in Tabellenblatt 2

[PC FREAKY]

Hallo,

folgende Vorgabe:
Ich habe folgende Excel-Tabelle:
[table="width: 500"]
[tr]
[td]Name[/td]
[td]Adresse[/td]
[td]PLZ[/td]
[td]Nummer[/td]
[td]Relevant[/td]
[/tr]
[tr]
[td]Max Mustermann[/td]
[td]Musterstrasse[/td]
[td]99999[/td]
[td]9[/td]
[td]Ja[/td]
[/tr]
[tr]
[td]Hans Test[/td]
[td]Teststrasse[/td]
[td]88888[/td]
[td]8[/td]
[td]Nein[/td]
[/tr]
[tr]
[td]Anna Überprüfer[/td]
[td]Überprüferstrasse[/td]
[td]77777[/td]
[td]7[/td]
[td]Ja[/td]
[/tr]
[/table]

Ich möchte nun alle Zeilen, wo in " Relevant" "Ja" steht, in ein zweites Tabellenblatt übertragen.
Jedoch nur die Zellen "Name" und "Adresse"
Das ganze ohne Leerzeilen.

Damit folgendes dabei raus kommt:

[table="width: 500"]
[tr]
[td]Name[/td]
[td]Adresse[/td]
[/tr]
[tr]
[td]Max Mustermann[/td]
[td]Musterstrasse[/td]
[/tr]

[tr]
[td]Anna Überprüfer[/td]
[td]Überprüferstrasse[/td]
[/tr]
[/table]

Wie kann ich das in Excel lösen?

Viele Grüße,
PC FREAKY

 

[Nilson]

Guck dir mal die "WENN" Funktion genauer an.

 

[Snooty]

Ohne Makro: einfach mit Zellverweisen mit einem zusätzlichen Autofilter, der alle "Nein"-Zeilen rausfiltert.

Mit Makro bspw. so:

Sub NameUndAdresse()

Dim i As Integer, k As Integer

i = 2 'Zeilenzähler für Tabelle1
k = 2 'Zeilenzähler für Tabelle2

With Tabelle1
  Do While .Range("A" & i).Value <> "" 'Solange Zelle A nicht leer ist
    If .Range("E" & i).Value = "Ja" Then 'Wenn in Spalte E "Ja" steht
      Tabelle2.Range("A" & k).Value = .Range("A" & i).Value 'Wert aus aktueller Zelle Ai in Tabelle2 Zelle Ak kopieren
      Tabelle2.Range("B" & k).Value = .Range("B" & i).Value 'Wert aus aktueller Zelle Bi in Tabelle2 Zelle Bk kopieren
      k = k + 1
    End If
  
  i = i + 1
  Loop
End With

End Sub