Excel VBA - Kopieren Zellwert, wenn sie leer ist, in eine andere Zelle in der gleichen Zeile

Question

ich eine komplett neue Starter VBAs bin und würde Ihre Hilfe benötigen, sieht meine Daten wie folgt aus:

. ABCD

1 tttt

2 tttt

3 ..... t

4 tttt

5 tttt

6 ..... t

7 tttt

Das Makro sollte überprüfen, ob es Informationen in Spalte A: A gibt und wenn es leer ist sollte es den Wert in der gleichen Zeile in Spalte D löschen.

Ich hoffe, dass Sie mir helfen können.

Vielen Dank im Voraus.

Mit freundlichen Grüßen

Answer 1

Wie pro meinem Verständnis auf Ihrer Frage, den Code unten versuchen.

Dim i As Integer 
Dim lastrow As Long 
lastrow = Cells(Rows.Count, "A").End(xlUp).Row 
For i = 1 To lastrow 
If Range("A" & i) = "" Then 
Range("D" & i).ClearContents 
End If 
Next i 

Answer 2

Sie brauchen eigentlich keine Schleifen und ein Motto:

Range("A1", Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlCellTypeBlanks).Offset(, 3).ClearContents