Problem mit Makro
11.01.2017 14:28:31
Peter
ich habe leider ein kleines Problem, welches ich nicht weiss, wie ich dies lösen kann.
Mittels nachstehendem Makro fülle ich die Spalte G mit dem Datum aus einer anderen Tabelle.
Nun soll jedoch dies nur dort entstehen, wo kein Wert in der Zelle in Spalte A steht.
Da die Werte in Spalte A aus einer anderen Tabelle kommen mittels =wenn... befindet sich in der Spalte A von A2 bis A500 eine Formel.
Sub Datum_einfügen_SpalteG_Gesamtabrechnung()
Dim Zelle As Range
Dim Datum As String
Datum = Worksheets("Hilfstabelle").Range("W15").Value
Worksheets("Gesamtabrechnung").Activate
For Each Zelle In Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 1))
If Zelle.Value > "" Then
Zelle.Offset(0, 6) = Datum
End If
Next Zelle
End Sub
Was muss bitte in o.a. Makro geändert werden, damit dies nur in den Zellen erfolgt, wo ein Wert steht.
Besten Dank für Eure Hilfe.
Gruss
Peter