Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 20:08:47
Datum/Zeit in einer Zelle fixieren über Makros
17.05.2024 18:14:48
Aaaah! Tabelle erstellen mit Index
17.05.2024 17:37:33
letztes Zeichen in Zelle entfernen
17.05.2024 17:07:32
Problem bei Diagrammerstellung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1948to1952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1948to1952
1948to1952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Format der Zeile übernehmen

Format der Zeile übernehmen
06.10.2023 11:17:04
walli
Guten Morgen,
ich habe mir ein Makro für das erstellen der neuen Zeile erstellt.
Jetzt soll aber das Format der der Zeile davor übernommen werden.
ODER aber jede einzelne Zelle Rahmen in Fett. 
Public Sub Liste_NEUE_Zeile()

   Dim zz As String

    zz = 3

 Do While Cells(zz, 1) > ""                 ' Start der Schleife   1=Spalte A

    zz = zz + 1                                       ' Schleifenzähler um 1 erhöhen

 Loop                                                   ' Wendepunkt für Schleife

    Cells(zz, 1).Select                            ' Zelle selektieren    1=in Spalte A anfang

    ActiveCell.Offset(0, 0).Select           ' letzte Zeile nach oben

    ActiveCell.Offset(0, 1).Select

    Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 7)).Select

End Sub

mfg walli

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Format der Zeile übernehmen Ergänzung
06.10.2023 11:42:48
walli
Hallo,
habe mal aufgezeichnet und dann dies erstellt. 
ActiveCell.Offset(-1, 0).Select

    Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 7)).Select

    Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 7)).Copy

    ActiveCell.Offset(1, 0).Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.ClearContents


gehts auch einfacher ?

mfg walli
AW: Format der Zeile übernehmen Ergänzung
06.10.2023 12:10:59
onur
DAS sollte reichen: 
Sub Makro2()

    Dim lz

    lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

    Rows(lz).Copy

    Cells(lz + 1, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub
Anzeige
Danke Onur...
06.10.2023 13:09:22
walli
Hallo Onur,
danke klappt !
Habe noch ergänzt:
Selection.ClearContents
ActiveCell.Offset(0, 1).Select

Schönes Wochenende !
Gruß walli
Gerne !
06.10.2023 16:06:47
onur
AW: Format der Zeile übernehmen
06.10.2023 11:51:25
onur
Warum beschreibst du nicht komplett, was du willst?
"ich habe mir ein Makro für das erstellen der neuen Zeile erstellt. " - Der neien Zeile ? WELCHER neuen Zeile denn?
Ausserdem verschweigst du, dass dein Code die erste leere Zeile suchen soll. Was verschweigst du noch alles?

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige