Thema Datum  Von Nutzer Rating
Antwort
20.08.2024 11:37:44 Thomas
NotSolved
Blau Zeilen einfügen
 20.08.2024 12:15:02 ralf_b
NotSolved
20.08.2024 15:31:38 Gast41077
NotSolved
20.08.2024 20:12:33 ralf_b
NotSolved
20.08.2024 16:36:42 Alwin Weisangler
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
20.08.2024 12:15:02		 Views:
78		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen einfügen

deine Frage beantwortet die KI von meinem Oprea browser wie folgt. Soll heissen das du das zukünftig selbst auch nutzen solltest. Bei solch einfachen Fragestellungen liegt ne KI selten daneben. 

Sub LeereZeilenEinfuegen()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    ' Arbeitsblatt setzen (aktives Blatt)
    Set ws = ActiveSheet

    ' Letzte Zeile in Spalte D finden
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row

    ' Von der letzten Zeile nach oben iterieren
    For i = lastRow To 1 Step -1
        If ws.Cells(i, "D").Value = "Ende" Then
            ' Drei leere Zeilen einfügen
            ws.Rows(i + 1 & ":" & i + 3).Insert Shift:=xlDown
        End If
    Next i
End Sub

 

 

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
20.08.2024 11:37:44 Thomas
NotSolved
Blau Zeilen einfügen
 20.08.2024 12:15:02 ralf_b
NotSolved
20.08.2024 15:31:38 Gast41077
NotSolved
20.08.2024 20:12:33 ralf_b
NotSolved
20.08.2024 16:36:42 Alwin Weisangler
NotSolved