Case?
25.04.2016 16:59:06
Franz
in zwei verschiedenen Bereichen wird nach Einträgen zu einem bestimmten Datum gesucht. Der Code für die beiden Bereiche ist exakt derselbe. Einziger Unterschied ist, dass die zu durchsuchende Spalte neu ermittelt wird.
Ich habe das so gelöst, dass ich zwei Mal nacheinander (nahezu) dasselbe schreibe:
Sub test
'Textvariable leeren:
textcomm = ""
'Kommentar zusammensetzen: aus ALLEN zum gesuchten Termin vorkommenden Ereignissen aus _
den Bereichen "Sonstiges" und "Perio" im Blatt "Daten":
With Tabelle1
'## suchen in "Sonstiges":
'Spalte des Bereichs ermitteln:
intY = .Range("SonstigesDatumErster").Column
'Textvariable füllen:
For intX = 3 To 600
If .Cells(intX, intY) = datsuchDatum Then
If textcomm = "" Then
textcomm = vbLf & .Cells(intX, intY + 1)
Else
textcomm = textcomm & vbLf & "----" & vbLf & vbLf & .Cells(intX, intY + 1)
End If
End If
Next intX
'## weitersuchen in "Perio":
'Spalte des Bereichs ermitteln:
intY = .Range("PerioDatumErster").Column
'Textvariable füllen:
For intX = 3 To 600
If .Cells(intX, intY) = datsuchDatum Then
If textcomm = "" Then
textcomm = vbLf & .Cells(intX, intY + 1)
Else
textcomm = textcomm & vbLf & "----" & vbLf & vbLf & .Cells(intX, intY + 1)
End If
End If
Next intX
End With
End Sub
Läßt sich das nicht irgendwie kombinieren? Vielleicht mit "Case"? Ich hab verschiedenes probiert, komm aber auf keine Lösung..........
Danke schonmal und Grüße
Franz