Office: Zellen zwischen Zeilen einfügen

Hallo,

bitte um Hilfe.

Ich hab mehrere Daten in ca. 200 Zeilen (wird Täglich aktualisiert).

Ich möchte zu jeder Zeilen noch mal 2 neue Zeilen darunter.


Gibt es hierzu einen Tastatur kürzel? oder einen Trick?


Mit freundlichen Grüßen

 

Hi,

so etwas lässt sich mit VBA lösen - kopiere den folgenden Code in ein allgemeines Modul und rufe es (täglich) über Extras -> Makro -> Makros auf:

Code:

Sub Einfuegen()
    Dim lngZeile As Long
    For lngZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) To 2 Step -1
        Rows(lngZeile & ":" & lngZeile + 1).Insert shift:=xlDown
    Next lngZeile
End Sub

Bis später,
Karin

 

Hallo Karin,

vielen vielen Dank es funzt super... *keks rüber reicht*

wenn ich hierzu 1 statt 2 neue Zeilen haben will, was muss ich ändern?


Vielen Dank im Voraus.

Gruß

 

Hi,

ändere diese Zeile:

Code:

        Rows(lngZeile).Insert shift:=xlDown

Bis später,
Karin

 

ich habs geschafft :)

Code:

Sub Einfuegen() 
    Dim lngZeile As Long 
    For lngZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) To 2 Step -1 
        Rows(lngZeile & ":" & lngZeile ).Insert shift:=xlDown 
    Next lngZeile 
End Sub 

 

Hallo Katrin,


nochmals Danke, deine Lösung ist natürlich die Richtige :)

Gruß

 

Hi,

nicht nur meine Lösung ist richtig, deine auch :-) , denn sie macht ja das, was du erreichen wolltest - nur ist es nicht erforderlich, bei 1 Zeile diese doppelt in den Code zu schreiben, auch wenn die Makroaufzeichnung dies so vorgaukelt:

Code:

    Rows("11:11").Select
    Selection.Insert Shift:=xlDown

Bis später,
Karin

 

Hallo Karin,

ich melde mich nochmal zur oben genannte Maro :) *kekse rübereicht*


Zur die 2 Leere Zeilen (ab Spalte N) will ich Formeln einfügen. Is es möglich Parallel zur Leerezeilen zufügen auch Formel in die Zellen (ab Spalte N) zu integrieren?

Gruß

 

Hi,

ja das ist möglich - damit ist deine Frage eigentlich beantwortet :lol: ;-)

Das kannst du entweder mit dem Makrorekorder aufzeichnen oder du müsstest deine Formeln posten, sodass man das in den Code einbauen kann.

Bis später,
Karin

 

Hallo Karin,

ja, jedoch Makrorecorder-Aufnahme ist bei der Menge einen Zusatzlast für Excel.

Darf ich dir die Formel überreichen :) mit der Bitte einen "Profesionelle" Sache daraus zu machen :roll:

=SVERWEIS(Tabelle2!A:A;C1;5;FALSCH)

Gruß

 

Hi,

ich nehme an, C1 soll sich dann auf die laufende Zeile beziehen?

Code:

Sub Einfuegen()
    Dim lngZeile As Long
    For lngZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) To 2 Step -1
        Rows(lngZeile).Insert shift:=xlDown
        Cells(lngZeile, 14).FormulaLocal = "=SVERWEIS(Tabelle2!A:A;C" & lngZeile & ";5;FALSCH)"
    Next lngZeile
End Sub

Bis später,
Karin