Hallo zusammen
Ich erhalte aus einer Applikation leider unvollständige Auswertungen. Es wird jeweils nur eine Zelle mit den Benutzerdaten befüllt. Die nachstehenden Zellen sind dann leer, obwohl diese auch zu diesem Benutzer gehören. Ich möchte nun, dass alle leeren Zellen mit dem obenstehenden Wert befüllt werden, bis sich der Wert ändert. Danach wird der neue Wert in die darunter stehenden Zellen hinterlegt.
Ich konnte ein Makro "programmieren" was auch funktioniert - leider nur in der Spalte A. Was habe ich vergessen, um das gesamte Tabellenblatt in Excel zu berücksichtigen? Vielen lieben Dank für die Antwort.
Sub test2()
Dim i As Integer
For i = 2 To 3000
If Cells(i, 1) <> "" Then
If Cells(i, 1).Value <> "" Then
End If
If Cells(i + 1, 1).Value = "" Then Cells(i + 1, 1).Value = Cells(i, 1).Value
End If
Next i
End Sub
Ich erhalte aus einer Applikation leider unvollständige Auswertungen. Es wird jeweils nur eine Zelle mit den Benutzerdaten befüllt. Die nachstehenden Zellen sind dann leer, obwohl diese auch zu diesem Benutzer gehören. Ich möchte nun, dass alle leeren Zellen mit dem obenstehenden Wert befüllt werden, bis sich der Wert ändert. Danach wird der neue Wert in die darunter stehenden Zellen hinterlegt.
Ich konnte ein Makro "programmieren" was auch funktioniert - leider nur in der Spalte A. Was habe ich vergessen, um das gesamte Tabellenblatt in Excel zu berücksichtigen? Vielen lieben Dank für die Antwort.
Sub test2()
Dim i As Integer
For i = 2 To 3000
If Cells(i, 1) <> "" Then
If Cells(i, 1).Value <> "" Then
End If
If Cells(i + 1, 1).Value = "" Then Cells(i + 1, 1).Value = Cells(i, 1).Value
End If
Next i
End Sub