Neue Zeile mit bestimmter Formatierung einfügen

Question

Hallo Zusammen,

ich brauche ein Makro mit dem ich in einem Aktiven Arbeitsblatt
eine neue Zeile mit vordefinierter Formatierung begrenzt auf bestimmte Zellen
immer dann einfügen kann wenn ich es brauche.

Das Makro "neue Zeile mit Format einfügen" soll nach einer Aktiv ausgewählten Zelle
über einen gleichnamigen Button bedienbar sein.

1. Neue Zeile soll eingefügt werden
2. Werte aus Zellen A, B, C, D, E, F, G, H sollen übernommen werden
3. Werte sollen mit Schriftfarbe weiß übernommen werden
4. Formate und Rahmen von Zellen A bis T sollen übernommen werden

Vielen Dank im Vorraus

Answer 1

Hallo,

aus welcher Zeile soll die Inhalte in die neue Zeile kopiert werden?

Gruß

M.O.

Answer 2

die Inhalte sollen aus einer "aktiv ausgewählten Zeile" übernommen werden....so dass die neue zeile direkt darunter eingeordnet bzw. eingeschoben wird....

Answer 3

Hallo,

versuch es mal so:

Sub Zeilen_einfügen()
Dim lngZeile As Long

'Zeile für das Einfügen
lngZeile = ActiveCell.Row + 1
'neue Zeile wird eingefügt
Rows(lngZeile).EntireRow.Insert
'Spalten A bis T werden kopiert und Formate übernommen
Range(Cells(lngZeile - 1, 1), Cells(lngZeile - 1, 21)).Copy
Cells(lngZeile, 1).PasteSpecial Paste:=xlPasteFormats
'Werte der Spalten A bis H werden kopiert
Range(Cells(lngZeile - 1, 1), Cells(lngZeile - 1, 8)).Copy
Cells(lngZeile, 1).PasteSpecial Paste:=xlPasteValues
'Kopierauswahl aufheben
Application.CutCopyMode = False

End Sub

Gruß

M.O.

Answer 4

Danke dir hat super geklappt

Gruß

K...1234

Answer 5

Hat doch noch nicht so geklappt wie erhofft

.....die werte der Spalten A - H sollen kopiert werden
aber sie sollen eine immer gleichbleibend vordefinierte
Formatierung bekommen die anders ist als in
der Hauptspalte

A = Schriftfarbe schwarz
B bis H Schriftfarbe weiß

danke falls noch ein Tipp kommt

Gruß

K...1234

Answer 6

Hallo,

stimmt, hatte ich vergessen ;-(.

Hier das ergänzte Makro:

Sub Zeilen_einfügen()
Dim lngZeile As Long

'Zeile für das Einfügen
lngZeile = ActiveCell.Row + 1
'neue Zeile wird eingefügt
Rows(lngZeile).EntireRow.Insert
'Spalten A bis T werden kopiert und Formate übernommen
Range(Cells(lngZeile - 1, 1), Cells(lngZeile - 1, 21)).Copy
Cells(lngZeile, 1).PasteSpecial Paste:=xlPasteFormats
'Werte der Spalten A bis H werden kopiert
Range(Cells(lngZeile - 1, 1), Cells(lngZeile - 1, 8)).Copy
Cells(lngZeile, 1).PasteSpecial Paste:=xlPasteValues
'Kopierauswahl aufheben
Application.CutCopyMode = False
'Schriftfarben festlegen
Cells(lngZeile, 1).Font.ThemeColor = xlThemeColorLight1
Range(Cells(lngZeile, 2), Cells(lngZeile, 8)).Font.ThemeColor = xlThemeColorDark1

End Sub

Gruß

M.O.