Zeilen mit VBA einfügen und Formatierung übernehmen

[MundM]

Hallo Zusammen,

ich habe eine Liste an die sollten immer 2 Zeilen per Makro hinzugefügt werden.

Ich lade gerne die Datei mit hoch.

Bei dem konkreten Beispiel müsste nach Zeile 37 das Einfügen der 2 Zeilen erfolgen. Das Format sollte immer von A6:H7 geholte werden.

Beim wiederholen des Makros sollte dann nach Zeile 39 usw das Einfügen erfolgen.

Ich hoffe das ich es verständlich schildern konnte und würde mich auf eine Antwort freuen.

Dank im Voraus

VG
MundM

[BoskoBiati]

Hi,

warum immer zwei Zeilen?
Warum gibt es in der Tabelle keinen Code?

[Kuwer]

Hallo,

Code:

Sub Makro2()
  Range("A6:H7").Copy
  With Cells(Rows.Count, 1).End(xlUp).Offset(-1)
    .Insert Shift:=xlDown
    .Offset(-1).Resize(1, 8) = ""
    .Offset(-2, 2).Resize(1, 6) = ""
  End With
  Application.CutCopyMode = False
End Sub

Gruß, Uwe

[MundM]

Vielen Dank für den Code.

Funktioniert perfekt.

Grüße
MundM

[Rabe]

Hi,

nein, finde ich nicht,
wenn Du in Zeile 38/39 was einträgst, wird beim Hinzufügen jedes weiteren Blockes dieser Inhalt (38/39) wieder gelöscht.
und in Spalte B wird jedes Mal "[Uhrzeit von bis]" eingefügt.

Gruß Ralf

[Kuwer]

Hallo,

da war noch eine Zeile zuviel drin im Code. Hab ich gerade noch entfernt.

Gruß, Uwe