Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1252to1256
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

VBA Kopie mehrfach

VBA Kopie mehrfach
Justus
Hallo Excel-Community,
Habe eine Tabelle mit einem dynamischen Spaltenbereich (Bsp. Spalte E2, E3, E4, E...).
D.h. die Anzahl der Einträge in Spalte E variert.
Ich möchte nun eine Befehlsschaltfläche anlegen, die - in Abhängigkeit von der Anzahl der Einträge in Spalte E - folgende Rechenoperation durchführt.
Spalte E2 soll 3-mal in den Bereich B2-B4 kopiert werden
Spalte E3 soll 3-mal in den Bereich B5-B7 kopiert werden
Spalte E4 soll 3-mal in den Bereich B8-B10 kopiert werden
usw.
Wie kriegt man das hin?
Anbei eine Excel-Beispiel-Datei, falls unklar sein sollte, was ich meine:
https://www.herber.de/bbs/user/79444.xlsm
An alle schon mal ein herzliches Dankeschön vorab.
Justus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Kopie mehrfach
19.03.2012 19:56:32
robert
Hi,
hier meine Variante...
Sub Copy()
Dim lz As Long
Dim xl As Long
Dim i As Long
lz = 2
xl = 2
For i = 2 To Cells(Rows.Count, 5).End(xlUp).Row ' letzte Zeile Spalte E
Range(Cells(lz, 2), Cells(lz + 2, 2)) = Cells(i, 5) ' Eintrag in Spalte B
lz = lz + 3
Next i
End Sub
Gruß
robert
AW: VBA Kopie mehrfach
19.03.2012 20:04:20
Justus
Hallo Robert,
Wow. Vielen Dank. Klappt wunderbar.
Viele Grüße,
Justus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige