Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige