Suchergebnisse

Werde ich mir für das nächste Mal merken. Habe es jetzt herausgefunden! =) Sub ZeilenKopieren() Dim i As Integer Dim endrow As Integer endrow = ActiveSheet.UsedRange.Rows.Count - 1 For i = 2 To endrow If Cells(i, 1).Value <> "" Then End If If Cells(i + 1, 1).Value = "" Then Range(Cells(i + 1, 1), Cells(i + 1, 11)).Value = Range(Cells(i, 1), Cells(i, 11)).Value Next i End Sub

Vielen Dank für die schnelle Antwort! Doch leider passiert jetzt gar nichts - es wird nicht einmal die Spalte A ausgefüllt... Was mache ich echt falsch?

Hallo petaod Vielen Dank für deine schnelle Rückmeldung. Könntest du mir bitte sagen, wie ich eine zweite innere Schleife über alle Spalten mache? Vielen Dank für deine Bemühungen.

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 …

Hallo zusammen ch 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…