Thema Datum  Von Nutzer Rating
Antwort
29.05.2017 13:10:41 Julia
NotSolved
13.06.2017 20:09:14 BigBen
NotSolved
04.07.2017 13:08:09 Julia
NotSolved
Blau Mit Macro Zeile kopieren und unterhalb einfügen
 04.07.2017 16:58:30 Ben
NotSolved
04.07.2017 17:18:36 Ben
NotSolved
02.08.2017 16:24:45 Julia
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
04.07.2017 16:58:30		 Views:
3859		 Rating:
     
Antwort:
  Ja
Thema:
Mit Macro Zeile kopieren und unterhalb einfügen

Hallo Julia,

ich habe Deinen VBA-Code etwas ergänzt bzw. umgeschrieben:

Sub Schrittfelder()
    Rows("7:7").Copy
    With GetNextEmptyRow(Rows("11:11"))
        .Insert Shift:=xlDown
        With .Offset(RowOffset:=-1).Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        .Delete ' Heruntergeschobene Zeile löschen
    End With
    Rows("7:7").ClearContents
End Sub

Function GetNextEmptyRow(rngRow As Range) As Range
    Dim lngChkRow As Long, rngEmpty As Range
    Dim bEmptyRow As Boolean
    With rngRow.Worksheet
        For lngChkRow = rngRow.Row To .UsedRange.Row + .UsedRange.Rows.CountLarge - 1
            bEmptyRow = True
            For Each rngEmpty In Intersect(.Rows(lngChkRow), .UsedRange).Cells
                If Not IsEmpty(rngEmpty) Then
                    bEmptyRow = False
                    Exit For
                End If
            Next
            If bEmptyRow Then
                Set GetNextEmptyRow = .Rows(lngChkRow)
                Exit For
            End If
        Next
    End With
End Function

Die Select-Befehle sind unnötig.

Mit der Funktion GetNextEmptyRow wird die nächste leere Zeile ermittelt. Anschließend wird diese gefüllt.

Beim Einfügen der Inhalte werden nach wie vor alle Inhalte um eine Zeile nach unten verschoben. Die neue Zeile wird allerdings gleich wieder gelöscht.

die Variable rng zeigt nach dem einfügen auf die Leere Zeile unterhalb der eingefügten Zeile.

LG, Ben

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.05.2017 13:10:41 Julia
NotSolved
13.06.2017 20:09:14 BigBen
NotSolved
04.07.2017 13:08:09 Julia
NotSolved
Blau Mit Macro Zeile kopieren und unterhalb einfügen
 04.07.2017 16:58:30 Ben
NotSolved
04.07.2017 17:18:36 Ben
NotSolved
02.08.2017 16:24:45 Julia
NotSolved