Problembehebung
20.01.2016 15:37:21
Flo
Ich habe ein kleines Problem und erbitte Hilfe.
https://www.herber.de/bbs/user/102914.xlsx
Das Lila markierte Feld soll ausgefüllt werden. Wenn es Leer ist, soll in der ersten Spalte nachgesehen werden ob eine Identische Projektnummer vorhanden ist, und ob diese oben drüber oder unten drunter steht. Diese Identische Projektnummer soll dann das Datum vorgeben.
Sub ()
With Tabelle9
For Zeile = 4 To ZeileMax
If .Cells(Zeile, 9) = "" Then
If .Cells(Zeile, 1) = .Cells(Zeile + 1) Then
.Cells(Zeile + 1, 9).Copy
.Cells(Zeile, 9).PasteSpecial xlPasteFormulas
End If
End If
Next Zeile
End With
With Tabelle9
For Zeile = 4 To ZeileMax
If .Cells(Zeile, 9) = "" Then
If .Cells(Zeile, 1) = .Cells(Zeile - 1) Then
.Cells(Zeile - 1, 9).Copy
.Cells(Zeile, 9).PasteSpecial xlPasteFormulas
End If
End If
Next Zeile
End With
End Sub
Funktioniert aber nicht. Liegt es am Einfügebefehl? Kann mir jemand helfen?Gruß Flo