Office: Zeile kopieren und darunter einfügen

Hallo Forumsmitglieder,

ich hatte versucht etwas über die Suche zu finden - aber dort war alles ein wenig zu speziell - falls ich hier trotzdem eine Frage stelle die schon 1000mal beantwortet worden ist tut es mir leid.
Begrüße aber jede Hilfe

Jetzt zu meinem kleinen Problemchen:

Ich brauche ein Makro, dass mir eine gesamte Zeile kopiert und darunter einfügt.
Wenn möglich soll jetzt einer der Zellenwerte (z.B. Zelle J in der Zeile) leer gelassen werden, stattdessen ein anderer konstanter Wert eingefügt werden.

Ich habe bereits einen Code, der mir eine Leerzeile im gesamten Dokument einfügt, gefunden - jetzt sollte aber anstatt Leerzeile die dadrüber kopiert werden und wie gesagt - der Wert in Zelle J durch eine Konstante ersetzt werden.

vielen dank im voraus

grüße
MagB

Code:

Sub Leerzeilen() 
Set wksTemp = ActiveSheet 
Menge = wksTemp.UsedRange.Rows.Count 
Titel = InputBox("Wie viele Zeilen ist die Überschrift hoch?") 
For i = Menge To Titel + 2 Step -1 
Menge1 = i & ":" & i 
Rows(Menge1).Select 
Selection.Insert Shift:=xlDown 
Next 
End Sub 

 

Hallo!

Dieser Code fügt unter der Zeile, in der sich gerade die aktive Zelle befindet, eine weitere hinzu und kopiert Werte der Zeile. In Spalte J wird "irgendwas" eingetragen.

Code:

Sub test()
Dim Zeile As Long
Zeile = ActiveCell.Row
Rows(Zeile + 1).Insert (xlShiftDown)
Rows(Zeile).Copy Rows(Zeile + 1)
Cells(Zeile + 1, 10) = "irgendwas"
End Sub

 

Hi Schatzi,

vielen Dank - jetzt fehlt nur noch, dass das Makro durch gesamte Dokument läuft. Ich möchte ziemlich ungern ein paar tausend mal die Zeile anklicken und dann das Makro ausführen :roll:

Ansonsten hätte ich es wahrscheinlich auch mit Zeile kopieren und einfügen machen können, oder ??

Wenn du ne Idee hast - wäre nett wenn du helfen könntest.
Wie gesagt, vielleicht hilft der Code, den ich mitgegeben habe. Dort geht das Makro durch komplette Dokument und fügt ab der Zeile, die ich manuell eingeben (Wie viele Zeilen ist die Überschrift hoch?) die Leerzeile ein.
Kann man das irgendwie kombinieren ??

Thanx a lot
MagB

 

Hallo!

Du sprachst immer von EINER Leerzeile, daher habe ich dich falsch verstanden...

Code:

Sub Leerzeilen()
Dim wkstemp As Worksheet, Menge As Long, Titel As Long, i As Long
Set wkstemp = ActiveSheet
Menge = wkstemp.UsedRange.Rows.Count
Titel = InputBox("Wie viele Zeilen ist die Überschrift hoch?")
For i = Menge To Titel + 2 Step -1
Rows(i).Insert Shift:=xlDown
Rows(i - 1).Copy Rows(i)
Cells(i, 10) = "irgendwas"
Next
End Sub

 

Hast recht - shame on me ...

vielen dank - klappt !!!
cheers
MagB