Hallo, kann mir jemand sagen wie ich die Formatierung der letzten beschriebenen Zeile in meiner Tabelle kopieren und dann darunter wieder einfügen kann? Und das Ganze mit einer Schaltfläche.
Option Explicit
Sub Unbekannter()
Rows(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy _
Rows(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
End Sub
AW: letzte beschriebene Zeile kopieren
24.04.2011 15:42:14
Gerd
Sub Salve()
MsgBox "Hallo Nicki!"
With Cells(Rows.Count, 1).End(xlUp).EntireRow
.Copy
.Offset(1).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
.Cells(1, 1).Activate
End With
MsgBox "Frohe Ostern!"
End Sub
AW: letzte beschriebene Zeile kopieren
26.04.2011 14:40:13
wowanick
danke für die Antwort aber ich glaube ich habe mich falsch ausgedrückt. Es funktioniert soweit alles richtig ausser, dass bei mir nur die Formeln der letzten Zeile kopiert und eingefügt werden müssen. Die Tabelle geht bei mir ab Spalte 2 (bzw. B) bis Spalte 11 (bzw. L).
Von mir auch Frohe Ostern!
Anzeige
AW: letzte beschriebene Zeile kopieren
27.04.2011 18:56:04
serge
Hallo
probier es mit
.Offset(1).PasteSpecial xlPasteFormulas
Serge
AW: letzte beschriebene Zeile kopieren
29.04.2011 11:27:56
wowanick
Hallo serge, bitte um nähere Erläuterung (was kommt davor und was dahinter). Ich kenne diese Formulas nicht.