Kopierte Zelle untereinander Einfügen

Question

Hallo,

ich habe in Spalte 2 immer ein Namen stehen die ich kopiere
und in die
leeren Zeilen untereinander einfüge bis der nächste Name
auftaucht.
Wie kann ich das eleganter lösen  ?
Hat jemand eine Idee? Danke für jeden Tipp und Gruß

Beispiel:

So ist es
Eintrag 1


Eintrag 2

Eintrag 3


So sollte es sein
Eintrag 1
Eintrag 1
Eintrag 1
Eintrag 2
Eintrag 2
Eintrag 3
Eintrag 3

Answer 1

Bereich markieren, Inhalt tippen und mit STRG+Enter abschließen. Dann wird der Inhalt in alle markierten Zellen geschrieben.

Alternativ mit derr Maus auf die untere rechte Ecke klicken fund nach unten ziehen. Wenn der Inhalt dabei hochzählt, einfach die STRG-Taste dazu drücken.

Gruß Flupo

Answer 2

Moin Flupo,

vielen dank für den Tipp so mache ich es.
Aber bei 1000 Zeilen ist das sehr doof.


Gruß, Nils

Answer 3

Hallo Nils

Probier mal!

Gruß Nighty

[code]Sub Auffüllen()
    Dim Daten As Variant, DatenName As Variant
    Dim ZeilenIndex As Long
    Daten = Range("B2:B" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row)
    For ZeilenIndex = 1 To UBound(Daten)
        If Daten(ZeilenIndex, 1) <> "" Then
            DatenName = Daten(ZeilenIndex, 1)
        Else
            Daten(ZeilenIndex, 1) = DatenName
        End If
    Next ZeilenIndex
    Range("B2:B" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row) = Daten
End Sub[/code]

Answer 4

Hi Nighty,


Super Danke dir :-)
Gruß