Hallo zusammen,
leider habe ich ein Problem womit ich nicht weiter komme. Ich würde gerne durch eine Suche überprüfen ob der Inhalt in Spalte A bereits in Spalte B vorhanden ist. Ist der Inhalt noch nicht vorhanden soll er in der nächsten freien Zeile in B ergänzt werden. Ist der Inhalt jedoch bereits vorhanden soll das aktuelle Datum in der Spalte C bei dem jeweiligem Wert eingetragen werden. Der erste Teil funktioniert soweit auch schon Prima. Nur der zweite nicht. Leider kann ich wohl nicht einfach die Zeilennummer bei einem Treffer über das Kommando Find.Row aufrufen. Über ein wenig Hilfe wäre ich dankbar.
[Code]
Sub CUSTOMER_RELEASE()
Dim lastZ As Integer
Dim AktuellesDatum As Date
Dim wert As String
Dim z As Integer
Dim Bereich As Range
Dim Letzte As Long
anzSTPA = Application.WorksheetFunction.CountIf(Worksheets("Quelle").Columns("B"), "STPA")
MsgBox anzSTPA
Select Case anzSTPA
Case Is = 0
lastZ = Worksheets("Auswertung1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Worksheets("Auswertung1").Range("A2:C" & lastZ).ClearContents
lastZ = Worksheets("Ttcr").Range("A65536").End(xlUp).Row + 1
Worksheets("Ttcr").Range("B" & lastZ) = 0
Worksheets("Ttcr").Range("C" & lastZ) = 0
Exit Sub
Case Is >= 0
'STPA auslesen
Application.ScreenUpdating = False
A = 2
For i = Sheets("Quelle").Cells(65536, 1).End(xlUp).Row To 1 Step -1
With Worksheets("Quelle")
If .Cells(i, "B") = "STPA" Then
Worksheets("Auswertung1").Cells(A, 1).Value = Worksheets("Quelle").Cells(i, 1).Value
A = A + 1
Else
End If
End With
Next i
Application.ScreenUpdating = True
End Select
'Überprüfung ob WBS element vorhanden ist
lastZA = Worksheets("Auswertung1").Range("A65536").End(xlUp).Row
lastZB = Worksheets("Auswertung1").Range("B65536").End(xlUp).Row
For i = 2 To lastZA
wert = Sheets("Auswertung1").Cells(i, 1)
Set Bereich = Sheets("Auswertung1").Range("B2:B" & lastZB) _
.Find(wert, lookat:=xlWhole)
If Bereich Is Nothing Then
lastZ = Worksheets("Auswertung1").Range("B65536").End(xlUp).Row + 1
Worksheets("Auswertung1").Range("B" & lastZ).Value = wert
Worksheets("Auswertung1").Range("C" & lastZ).Value = 1
Else
Sheets("Auswertung1").Cells(Find.Row, "C").Value = Date
End If
Next
End Sub
[/Code] |