Vor einiger Zeit hatte ich eine ähnliche Anfrage, bei der mir Andreas (vielen dank nochmal 
) sehr weitergeholfen hat.
Sein Makro habe ich etwas verändert, dabei ist ein neues Problem aufgetaucht.
Dieses Makro:
Sub anzeigen_name()
Dim Jahr As String
Dim Name As String
Dim ze As Long
Dim gefunden As Range
Jahr = Range(„A19“)
Name = Range(„B19“)
If Not JahrVorhanden(Jahr) Then
MsgBox „Jahr " & Jahr & " ist nicht vorhanden“
Exit Sub
End If
With Sheets(Jahr)
Set gefunden = .Range(„A:A“).Find(what:=Name, LookIn:=xlValues, lookat:=xlWhole)
If gefunden Is Nothing Then
MsgBox „Urkunde " & Name & " wurde nicht gefunden“
Exit Sub
End If
.Activate
.Cells(gefunden.Row, 1).Activate
End With
End Sub
Function JahrVorhanden(Jahr As String) As Boolean
Dim blt As Worksheet
JahrVorhanden = False
For Each blt In Worksheets
JahrVorhanden = JahrVorhanden Or (blt.Name = Jahr)
Next blt
End Function
sucht jetzt das jahr und den Namen.
Ich möchte, dass in Zelle C19 noch ein Vorname eingegeben wwird und das Makro dann in dem entsprechenden Jahr den vollständigen Namen such, denn, wenn ein Name mehrfach vorkommt, wird nur der erste angezeigt.
Muss also Vorname als String definieren, ihm Zelle C19 zuweisen.
Die Suchschleife zu erweitern habe ich leider nicht hinbekommen.
Könnt ihr helfen?
Vielen Dank im Voraus,
Tommy.