Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen einfügen

Forumthread: Zeilen einfügen

Zeilen einfügen
27.04.2009 19:41:24
Ruedi
Hallo zusammen
Wer kann mir sagen ob und wie das machbach ist. Wenn der Wert im Zellenbereich a2 bis a100 grösser als 1 ist, dann sollte es nachfolgend 5 leere Zeilen einfügen. Ich danke dir. Gruss Ruedi
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen einfügen
27.04.2009 20:18:11
ransi
Hallo Rudi
Versuch mal...
Option Explicit



Public Sub test()
Dim L As Long
Dim I As Integer
For L = 100 To 2 Step -1
    If Cells(L, 1) > 1 Then
        For I = 1 To 5
            Cells(L + 1, 1).Rows.Insert (xlShiftDown)
        Next
    End If
Next
End Sub

ransi
Anzeige
AW: Zeilen einfügen
27.04.2009 20:18:46
Original
Hi,

Sub Gib_mir_5()
Dim z As Long, Zeile As Long
Application.ScreenUpdating = 0
For z = 101 To 3 Step -1
Cells(z, 1).Select
If Cells(z - 1, 1) > 1 Then
For Zeile = 1 To 5
Rows(z).Insert
Next
End If
Next
Application.ScreenUpdating = -1
End Sub


fg Kurt

Anzeige
Cells(z, 1).Select muss natürlich weg!
27.04.2009 20:20:29
Original
ot
AW: Zeilen einfügen
29.04.2009 19:22:02
Ruedi
Hallo Kurt, funktioniert fantastisch (merci) bis Zeile 590. Was muss ich verändern damit es bis zur Zeile 7000 funktioniert? MFG Ruedi
AW: Zeilen einfügen
29.04.2009 19:24:42
Ruedi
Hallo Ransi, Funktioniert auf der Spalte A. Die Leerzeile sollte sollte jedoch Spalte A bis Z eingefügt werden. Hast Du hier auch ein Lösung. Merci. MFG Ruedi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige