Zeilen einfügen oberhalb eines bestimmten Zeilen

Frage ich mich, wie legen Sie 3 extra Zeilen oberhalb einer angegebenen Zeile, die "Auftragsart" (wie unten angegeben).

Diese Zeile kommt mehrmals in dem Blatt. Der code unten funktioniert, außer es fügt die Zeilen unterhalb der angegebenen Zeile. Dank

Sub try()
    Dim c As Range

    For Each c In Range("A1:A100")
        If c.Value Like "*Order Type*" Then
            c.Offset(3, 0).EntireRow.Insert
        End If
    Next c
End Sub

InformationsquelleAutor user2616026 | 2013-07-24

  1. 4

    Wenn Ihr problem ist das hinzufügen von 3 zusätzlichen Zeilen oben genannten Kriterien gesucht, um Ihr problem zu lösen sollte einfach sein:

    In der Sie die code-Zeile:

    c.Offset(3, 0).EntireRow.Insert

    Ihre Linie sagt bei der Bestellung Typ gefunden wird, sollte er gehen, 3 Zeilen unterhalb und fügen Sie zusätzliche Zeilen.

    Sollte so gehen:

    c.EntireRow.Resize(3).Insert

    Meine Leitung sagt, bei Bestellung Typ gefunden wird, fügen Sie 3 extra Zeilen oberhalb.

    Hoffe, dass dies ist, was Sie suchen.

    Bearbeitet:

    Habe ich Internet gesucht und was ähnliches gefunden für dein problem, und verändert Sie entsprechend Ihren Bedürfnissen. Hoffe, das wird für Sie arbeiten.
    Kleine Erklärung, wie es funktioniert: es sucht alle den Weg durch Eine Spalte, und wenn "Auftragsart" gefunden wurde, fügt es 3 Zeilen oben. Beim makro geht um die leere Zelle, die er hält. Probieren Sie es aus und sagen Sie mir, wenn es funktioniert gut für Sie.

    Sub AddRows()

Dim lastValue As String, i As Long, r As Long
Do
    r = r + 1
    If r > 1 And Cells(r, 1).Value Like "*Order Type*" Then
        If Cells(r, 1).Value = "" Then Exit Do
        For i = 1 To 3
            Rows(r).Insert Shift:=xlUp
        Next
        r = r + 3

        Else
            If IsEmpty(Cells(r, 1)) = True Then
            Exit Do

            Else

            End If

    End If
    lastValue = Cells(r, 1).Value
Loop

End Sub
    vielen Dank, das funktioniert, aber wie würde ich den code, um eine Schleife, damit er nicht immer wieder auf der Suche das ganze Blatt. Nochmals vielen Dank!
    Froh, Sie fand es hilfreich - markieren Sie Sie als beantwortet, so dass ppl kann dieses dann später 😉 Wenn das Gespräch über die loop-code wurde zur Verfügung gestellt von Ripster, do - loop-Methode hat Ihre Grenzen, Sie können etwas Lesen über ihn hier: excel-pratique.com/en/vba/loops.php
    Sorry nochmal, ich habe versucht, all diese verschiedenen Schleifen, und es hält gerade auf der Suche das ganze Blatt und ich bin ernsthaft verwirrt. Sorry für all die kleinen Fragen, es ist nur gab mir große Mengen von Schwierigkeiten. Danke!
    oh... ich sehe das problem, unofortunately jetzt keine Zeit dies zu beheben. Ich werde versuchen daran zu denken.
    Ok, danke

    InformationsquelleAutor lowak

  2. 1

    Sollte dies gehen bis drei Zeilen statt der drei:

    c.Offset(-3, 0).EntireRow.Insert

    Seien Sie vorsichtig mit diesem, weil, wenn es nicht drei Zeilen vor der aktuellen Zeile wird ein Fehler ausgelöst. Ein sicherer Weg, dies zu tun ist durch das einfügen vor der aktuellen Zeile + 2 mehr und verschiebt sich alles nach unten.

    Rows(c.Row & ":" & c.Row + 2).EntireRow.Insert Shift:=xlDown

    Edit: Der Grund, warum es läuft, bis excel friert, ist aufgrund der Art, wie die Schleife aufgebaut ist. Die erste Zeit Sie eine übereinstimmung findet, fügt es Zeilen und dann weiter auf, findet das gleiche Spiel wieder, die es verursacht, stecken zu bleiben in einer Endlosschleife.

    Können Sie versuchen, diese und sehen, ob es tut, was Sie wollen, es funktionierte für mich.

    Sub try()
    Dim i As Long
    Dim c As Range

    Do While i < ActiveSheet.UsedRange.Rows.Count
        i = i + 1
        Set c = Cells(i, 1)

        If c.Value Like "*Order Type*" Then
            Rows(c.Row & ":" & c.Row + 2).EntireRow.Insert Shift:=xlDown
            i = i + 3
        End If
        Debug.Print i
    Loop
End Sub
    Danke, aber wenn ich geben Sie den ersten code in das, es gibt mir diese Meldung
    sagt, dass es ist ein Objekt Fehler, auch die zweite, nur läuft das makro und dann ist mein excel sagt, nicht reagiert, nicht sicher, das problem gibt, lasst es mich wissen, wenn Sie Anregungen haben, vielen Dank!
    Er gab mir noch den gleichen Fehler, ist es etwas, was ich versuchen kann? Dank

    InformationsquelleAutor Ripster

Schreibe einen Kommentar