Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 18:39:44
Hilfe beim VBA-Code
08.10.2025 12:36:22
Hinweis für Word auf dem MAC
08.10.2025 12:35:32
Datumsabhängige Einträge in Zellen. Bedingter Formatierung.
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
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
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofill mit Loop

Forumthread: Autofill mit Loop

Autofill mit Loop
24.08.2019 22:56:54
Simone
Hallo Ihr Lieben,
hat jemand eine Idee wie ich folgendes Problem gelöst bekomme:
Ich habe in Spalte A ca. 3000 Zeilen beschrieben. 3 Zeilen ergeben immer einen Info-Block. Jetzt möchte ich die Blöcke auf die Spalten B,C und D aufteilen. Also einfach gesagt, B1 = A1, C1 = A2 und D1 = A3 .... A2 ist dann natürlich A4.... usw.
Wie bekomme ich mit VBA einen eleganten Autofill hin?
Danke für Eure Hilfe
LG Simone
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Autofill mit Loop
24.08.2019 23:13:58
Simone
Sorry, ich meinte natürlich B2 ist dann A4 :-)
AW: Autofill mit Loop
24.08.2019 23:27:49
Toni
Hi Simone,
z.B.:
Sub test()
Dim i As Integer, x As Integer, lC As Integer
With ActiveSheet
lC = .Cells(1048576, 1).End(xlUp).Row
For i = 1 To lC Step 3
x = x + 1
.Cells(x, 2) = .Cells(i, 1)
.Cells(x, 3) = .Cells(i + 1, 1)
.Cells(x, 4) = .Cells(i + 2, 1)
Next i
.Columns(1).Clear
End With
End Sub

lG
Toni
Anzeige
AW: Autofill mit Loop
24.08.2019 23:36:16
Daniel
Hi
mit der Formel =index(a:a;Ganzzahl((Zeile(a1)-1)/3)+Spalte(a1))
die kannst du dann in alle Zellen schreiben.
btw autofill benötigt man in VBA sehr selten. in den meisten Fällen kann man die Formel in alle Zellen gleichzeitig schreiben.
Cells(1, 2).resize(worksheetfunctionCountA(columns(1) / 3, 3).formulaLocal =  "=index(a:a;Ganzzahl((Zeile(a1)-1)/3)+Spalte(a1))"
gruß Daniel
Anzeige
AW: Autofill mit Loop
24.08.2019 23:41:14
Simone
Hallo Toni,
vielen Dank ... läuft perfekt :-)
LG Simone
Vielen Dank auch an Daniel!
Gern! oT
24.08.2019 23:44:04
Toni
;

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