Sub urlaub()
    Dim x, y As Integer
    Dim searchKeyWord As String
    Dim cellValue As String
 
    searchKeyWord = "u"
 
    For x = 2 To 32
        For y = 4 To 100
 
            'Cell Value auslesen
            cellValue = Cells(y, x).Value
 
            'ist in aktueller Zelle das Suchkeyword
            If InStr(1, cellValue, searchKeyWord) Then
 
                'Datum auslesen
                cellDate = Cells(1, x).Value
 
                'In Zelle einfügen
                Cells(y, x + 41).Value = cellDate
 
            End If
 
        Next y
    Next x
End Sub

Happiness is only real when shared

Beitrag wurde zuletzt am 20.03.12 um 10:04:41 editiert.