AW: Kopiere wenn Datum gleich
21.04.2008 07:26:30
Erich
Hi Gunter,
oder probiers mal damit: https://www.herber.de/bbs/user/51728.xls
Hier der Code:
Option Explicit
Sub cbKopiere()
Dim varZ As Variant, lngZ As Long, zz As Long, strTxt As String
varZ = Application.Match(CDbl(Date), Columns(1), 0)
If IsError(varZ) Then
MsgBox "Heutiges Datum nicht gefunden - Abbruch"
Exit Sub
Else
lngZ = CLng(varZ)
End If
For zz = lngZ To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(zz, 1) = Date Then
varZ = zz
If strTxt > "" Then strTxt = strTxt & ","
strTxt = strTxt & Cells(zz, 3)
End If
Next zz
Cells(CLng(varZ), 5) = strTxt
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort