388 Aufrufe
Gefragt in Tabellenkalkulation von
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

4 Antworten

0 Punkte
Beantwortet von flupo Profi (17.7k Punkte)
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
0 Punkte
Beantwortet von
Moin Flupo,

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


Gruß, Nils
0 Punkte
Beantwortet von
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]
0 Punkte
Beantwortet von
Hi Nighty,


Super Danke dir :-)
Gruß
...