Zellenvergleich und Datumseintrag mit Makro
16.08.2005 10:47:24
GeorgK
ich benutze ein Makro - hier aus dem Formu -, dass auch super funktioniert.
Bisher wird in Spalte 17 immer das aktuelle Datum eingetragen, wenn die Zellen der Spalten 20 der TB übereinstimmen.
Nun soll aber zukünftig das aktuelle Datum nur dann in die entsprechende Zellen der Spalte 17 eingetragen werden, wenn diese keinen Eintrag enthalten und die Zellen der Spalten 20 der TB übereinstimmen. Also bereits vorhandene Einträge sollen nicht überschrieben werden.
Da meine Kenntnisse nur auf Makrorecorder beruhen, wäre es nett, wenn mir jemand bei der Änderung behilflich wäre.
Hier das Makro:
Sub Datumeintragen()
Dim Ws1, Ws2 As Worksheet
Dim z, sp As Integer
Set Ws1 = Worksheets("Tabelle1")
Set Ws2 = Worksheets("Tabelle2")
anz = Ws1.Cells(6500, 20).End(xlUp).Row
anz1 = Ws2.Cells(6500, 20).End(xlUp).Row
For z = 2 To anz
swert = Ws1.Cells(z, 20)
With Ws2.Range("t2:t" & anz1)
Set c = .Find(swert, LookIn:=xlValues)
If Not c Is Nothing Then
Ws1.Cells(z, 17) = Format(Date, "dd.MM.yy")
End If
End With
Next
End Sub
Vielen Dank für die Hilfe und Grüße
Georg