Datum

Titel

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1768to1772

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Mit VBA jeweils 3 Zeilen einfügen

Forumthread: Mit VBA jeweils 3 Zeilen einfügen
5 Beiträge zu diesem Forumthread
Anzeige
320 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

02.07.2020 13:31:55

Michel

Hallo in die Runde,
ich benötige Hilfe bei einem VBA Code. Ich habe eine Datei mit ca. 850 Einträgen. Unter jedem Eintrag sollen nun jeweils drei leere Zeilen eingefügt werden.
Freue mich über Hilfe!
Gruß
Michel

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mit VBA jeweils 3 Zeilen einfügen

02.07.2020 13:40:12

Werner
AW: Mit VBA jeweils 3 Zeilen einfügen

02.07.2020 13:44:45

Michel
Gerne u. Danke für die Rückmeldung. o.w.T.

02.07.2020 13:54:37

Werner
2 andere schnellere Wege

03.07.2020 10:02:34

lupo1
AW: Mit VBA jeweils 3 Zeilen einfügen

03.07.2020 10:34:39

Daniel

AW: Mit VBA jeweils 3 Zeilen einfügen

02.07.2020 13:40:12

Werner

Hallo,
so:

Public Sub aaa()
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 2 Step -1
.Rows(i).Resize(3).Insert
Next i
End With
End Sub

Gruß Werner

AW: Mit VBA jeweils 3 Zeilen einfügen

02.07.2020 13:44:45

Michel

Hi Werner,
klappt auf Anhieb wie es soll.
Vielen Dank Dir!
Gruß Michel

Gerne u. Danke für die Rückmeldung. o.w.T.

02.07.2020 13:54:37

Werner

2 andere schnellere Wege

03.07.2020 10:02:34

lupo1

a) Sortierspalte anfügen mit 1, ...,n und im Nachbereich dann 1,16 + 1/3*ZEILE(A1) runterziehen, plattmachen und Sort
b) Variant-Array A:Z zuweisen und dort von hinten:
Zeile 3400 = Zeile 850
Zeile 3396 = Zeile 849 usw.
Anschließend in den Range A:Z zurück.

AW: Mit VBA jeweils 3 Zeilen einfügen

03.07.2020 10:34:39

Daniel

Hi
wenns schnell gehen soll, dann wie von Lupo vorgeschlagen mit sortieren.
also Code so:

Sub bbb()
With ActiveSheet.Cells(1, 1).CurrentRegion
With .Columns(.Columns.Count + 1)
.Cells(1, 1).Value = 1
.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1
.Copy
.Offset(.Rows.Count).Resize(.Rows.Count * 3).PasteSpecial xlPasteValues
.CurrentRegion.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.EntireColumn.ClearContents
End With
End With
End Sub

der Code von Werner braucht für 1000 Zeilen c.a. 15 Sekunden, dieser Code 0,1 Sekunden.
Gruß Daniel