ich brauche Eure Hilfe, da ich bei folgendem Problem nicht weiter komme:
ich habe ein Kalenderblatt als Wiedervorlage generiert, keine Jahre, nur Tage und Monate.
in D2 steht:
=WENN(ISTFEHLER(sSVERWEIS(C2;geb_dat;2;FALSCH));"";sSVERWEIS(C2;geb_dat;2;FALSCH))
in D32 steht:
=WENN(ISTFEHLER(sSVERWEIS(C32;geb_dat;2;FALSCH));"";sSVERWEIS(C32;geb_dat;2;FALSCH))
es ist der Januar.
geb_dat ist der Bereich über den per sSVERWEIS, eigene Funktion ( im Forum gefunden ) mehrere Treffer überSVERWEIS in eine Zelle geschrieben werden sollen, wenn in der Terminliste mehrere Termine auf einen Tag fallen.
Der code zur Funktion:
Function sSVERWEIS(strName As String, rngBereich As Range) As Variant
Dim rngAct As Range
Dim strErgebnis As String
Dim si As Integer
Dim bv As Boolean
si = 2
bv = False
Application.Volatile
For Each rngAct In rngBereich.Columns(1).Cells
If rngAct = strName.si.bv Then
strErgebnis = strErgebnis & rngAct.Offset(0, 1) & Chr(10)
End If
Next rngAct
sSVERWEIS = Left(strErgebnis, Len(strErgebnis))
End Function
leider bleiben alle Zellen leer, was mache ich falsch,
Dank im voraus
AxelG