Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1112to1116
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
Inhaltsverzeichnis

Zeile einfügen

Zeile einfügen
Manfred
Hallo zusammen,
wieder mal gesucht, aber nichts passendes gefunden.
Habe einen Programmcode gefunden aber der ist nicht die beste Wahl.
Ist es möglich die letzte beschriebene Zeile ab A12 zu suchen und dann eine neue leere Zeile A1-X16 mit der gleichen Formatierung untendrann einzufügen ? Das löschen sollte auch so funktionieren.
Eine Beispieltabelle habe ich angehängt
https://www.herber.de/bbs/user/65737.xls
Mit freundlichen
Grüßen Manfred

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Zeile unterhalb einfügen
10.11.2009 22:15:32
NoNet
Hallo Manfred,
teste doch mal folgendes Makro :
VBA-Code:
Sub NeueZeileAnfuegen()
    Dim rngZelle As Range
    Set rngZelle = [A12].End(xlDown)
    With rngZelle.EntireRow
        .Copy
        .Offset(1).Insert Shift:=xlDown
        .Offset(1).ClearContents
    End With
End Sub
HINWEIS : Das Makro geht davon aus, dass in Spalte A aller gelben Zeilen ein Wert eingetragen ist, ansonsten wird unterhalb der Zeile "Bemerkungen" kopiert !
Gruß, NoNet
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige