Werte vergleichen und Text einfügen
17.08.2020 09:04:14
Daniel
leider stehe ich etwas auf dem Schlauch und komme nicht wirklich zu einem Ergebnis.
Ausgangssituation alt: In Spalte A stehen Namen und über VBA if / else frage ich die Namen ab und lasse in der Spalte 2 dahinter m / w eintragen.
Das funktioniert wunderbar und bislang war die Namensliste recht überschaubar.
Mittlerweile ist die Namensliste aber enorm angestiegen, so dass ich nun mit meinen Kenntnissen nicht mehr weiter komme.
Tabelle 1 enthält 2 Spalten - Spalte 1 Männernamen , Spalte 2 Frauennamen
Tabelle 2 enthält 1 Spalte mit unterschiedlichen Namen untereinander
Nun möchte ich per Makro in Tabelle 2 hinter den Namen eintragen lassen m / w / nicht vorhanden
Hiermit arbeite ich in meiner alten Tabelle und einer Hand voll Daten
Sub test()
Dim LastRow As Integer
Dim Zle As Integer
LastRow = Range("A1000").End(xlUp).Row
' ab Zeile 2 arbeiten
For Zle = 2 To LastRow
If Range("A" & Zle).Value = "Miriam" Then
Range("B" & Zle).Value = "w"
Else
Range("B" & Zle).Value = "nicht vorhanden"
End If
Next
End Sub
Kann mir vielleicht jemand helfen das vernünftig hinzubekommen bitte.