Clever-Excel-Forum

Moin zusammen :19:

Derzeit benutze ich ein Makro um eine neue Zeile zu generieren. So weit so gut. Aber jetzt soll auch eine Checkbox übernommen werden und mein Makro kann nur Formate und Formeln :22:
Ist das möglich? Und wenn ja wäre ich um eine Lösung dankbar.
Hier das Makro:

Sub NeueZeile()
 Dim Zeile As Long
 With ActiveSheet
   
    Zeile = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
   
    Intersect(.Rows(Zeile - 1), .UsedRange).Copy
    .Cells(Zeile, 1).PasteSpecial Paste:=xlPasteFormats
    .Cells(Zeile, 1).PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
    
   
    Intersect(.Rows(Zeile), .UsedRange).SpecialCells(xlCellTypeConstants).ClearContents
   
        
   
    
 End With
 End Sub

Danke schonmal

Hallöchen,

Zitat:und mein Makro kann nur Formate und Formeln

korrekt, hast Du so programmiert.

So würde es gehen

Intersect(.Rows(Zeile - 1), .UsedRange).Copy .Cells(Zeile, 1)

Moin!
Da hast Du ja einen Asbach-Thread ausgegraben, André.

Ab Excel 2007 gibt es "intelligente" Tabellen (Strg+t, oder Einfügen, Tabelle).
Beim Anhängen eines neuen Datensatzes werden Formate und Formeln automatisch übernommen.

Ich würde niemals eine Checkbox pro Zeile nehmen, sondern zum Beispiel ein ü in Wingdings.

	A
1	ü

Zelle	Schriftart	Inhalt
A1	Wingdings	ü

Hat den gewaltigen Vorteil, dass man das Zeichen bequem mittels Formeln auswerten kann.

Wer es "noch bequemer" haben will, kann sich ja mal meinen Workshop durchlesen.
Hier wird jedoch ein wenig VBA benötigt.
https://www.clever-excel-forum.de/Thread...mal-anders

Gruß Ralf

Moin Ralf,

Zitat:Da hast Du ja einen Asbach-Thread ausgegraben, André.

bei mir geht nix verloren und auch wenn der TE vielleicht inzwischen schon anderswo eine Antwort erhalten oder das Problem selbst gelöst hat geht es mir darum, dass eine Suche nicht wie so oft im Netz ins Leere führt

Da bin ich ganz bei Dir!
Auch deshalb (wohl wissend, dass der Threaderöffner nicht mehr mitliest) habe ich ja die Alternative(n) vorgeschlagen.

Gruß Ralf