ich möchte gern die Datumswerte aus der Spalte 12 ab Zeile 6 bis die letzte erreicht wurde, in die Spalte
11 ab Zeile 6, kopieren.
Wenn in einer Zelle der Spalte 11 schon ein Datumswert drin steht, soll dies nicht überschrieben werden.
gr. Kurt P
Sub uebertrage()
Dim x As Long
For x = 6 To Cells(Rows.Count, 12).End(xlUp).Row
If Cells(x, 11) = "" Then Cells(x, 11) = Cells(x, 12).Value
Next
End Sub
Sub uebertrage()
Dim x As Long 'Variablen deklaration
For x = 6 To Cells(Rows.Count, 12).End(xlUp).Row 'd.h. für die Variable x gehe von der letzten _
beschrirbenen Zelle in Spalte 12 nach oben zur Zeile 6
If Cells(x, 11) = "" Then Cells(x, 11) = Cells(x, 12).Value 'wenn die Zelle x in Spalte 11 _
leer ist, dann schreibe in diese leere Zelle den wert aus der Zelle in der gleichen Zeile aus Spalte 12
Next 'solange bis Spalte 11 bis ans ende der Spalte 12 gefüllt ist
End Sub
Gruß Hoffi