ich habe hier eine Tabelle1 die den Namen, Geb. ... enthält
Nun möchte ich, dass eine InputBox erscheint, die nach dem Jahr fragt, das ausgewertet werden soll. Das ist noch kein Problem und klappt. Aber dann steh ich an :-(
Nachdem ich nach dem Jahr 1962 gesucht habe, sollte die Tabelle 2 so aussehen:
Ich hab einen Knopf im Kopf... bitte um Hilfe!!!
Option Explicit
Sub Eintragen()
Dim Dat As Variant
Dat = InputBox("Geben Sie ein Jahr ein!")
'Wenn Personen aus dem eingegeben Jahr Geburtstag haben, sollen die Nachnamen und Vornamen in _
_
der Tabelle2 aufscheinen, das ganze ist bei mir noch auf eine Zelle beschränkt, soll aber _
flexibel sein!
If Dat = Year(Cells(4, 2)) Then
Sheets("Tabelle2").Cells(1, 1) = Sheets("Tabelle1").Cells(2, 1)
End If
End Sub
Danke schon im Voraus!
Liebe Grüße Kathi