ich dupliziere die Aktive Zeile, und füge sie vier Mal, unter der Aktiven Zeile ein.
Die Duplizierten Zeilen, sollen die Schriftfarbe Rot haben. Wie kann ich das machen
kann mir von Euch, einer einen Tipp geben.
ich kopiere aus einem anderen Datenblatt auch noch Daten in das Datenblatt hinein
Gruß
Olaf
Private Sub CommandButton5_Click()
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
ActiveCell.Offset(1, 9).Select
Application.Goto (ActiveWorkbook.Sheets("Zuschläge").Range("C21:M24"))
Selection.Copy
Sheets("Tabelle1").Select
ActiveSheet.Paste
End Sub