VBA: Zellbereiche unformatiert kopieren

Hallo Forumsbesucher,
ich würde gerne per VBA die Zellinhalte der Zellbereiche H7:J30, H36:J39; H42:J43 und H46:J46 kopieren (in der Beispieltabelle die Zellen mit gelbem Hintergrund) und unformatiert an anderer Stelle der Tabelle einfügen. Die Einfügeposition soll immer durch die erste leere Zelle in Zeile 7 bestimmt (insgesamt sind maximal 44 Kopien möglich), die (möglichen) Einfügepositionen sind in der Beispieltabelle jeweils durch die eingerahmten Zellen ohne gelben Hintergrund gekennzeichnet.
Wenn also die Zelle K7 leer ist, sollte das Makro in die Spalten K bis M kopieren, beim nächsten Kopiervorgang in die Spalten O bis Q, beim letzten möglichen (44. Kopiervorgang) sollten die Werte in die Spalten GA bis GC eingefügt werden.
Zur Veranschaulichung füge ich eine Beispieldatei bei.
Ich bedanke mich im Voraus für eure Unterstützung.
mfg
Fritz
https://www.herber.de/bbs/user/80320.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub WerteWeiter() Dim zelle As Long zelle = Cells(7, Columns.Count).End(xlToLeft).Column + 1 zelle = IIf(zelle = 11, zelle, zelle + 1) If zelle = 183 Then MsgBox "letzter Kopiervorgang erreicht", vbInformation, "Info" Range(Cells(7, zelle), Cells(30, zelle + 2)).Value = Range(Cells(7, 8), Cells(30, 10)).Value Range(Cells(36, zelle), Cells(39, zelle + 2)).Value = Range(Cells(36, 8), Cells(39, 10)). _ Value Range(Cells(42, zelle), Cells(43, zelle + 2)).Value = Range(Cells(42, 8), Cells(43, 10)). _ Value Range(Cells(46, zelle), Cells(46, zelle + 2)).Value = Range(Cells(46, 8), Cells(46, 10)). _ Value End Sub

Sub WerteWeiter() Dim zelle As Long zelle = Cells(7, Columns.Count).End(xlToLeft).Column + 1 zelle = IIf(zelle = 11, zelle, zelle + 1) If zelle = 183 Then MsgBox "letzter Kopiervorgang erreicht", vbInformation, "Info" Cells(7, zelle).Resize(24, 3).Value = Cells(7, 8).Resize(24, 3).Value Cells(36, zelle).Resize(4, 3).Value = Cells(36, 8).Resize(4, 3).Value Cells(42, zelle).Resize(2, 3).Value = Cells(42, 8).Resize(2, 3).Value Cells(46, zelle).Resize(1, 3).Value = Cells(46, 8).Resize(1, 3).Value End Sub

;Hallo Hary,
noch einmal vielen Dank für Deine Hilfe.
Leider bin ich inzwischen auf ein Problem gestoßen und hoffe, dass man das noch lösen kann:
In der Datei, in der ich den Code verwenden will, stehen im 'Einfügebereich', also im Bereich der Spalten K bis GC in jeder vierten Spalte Formeln, mit denen ich die eingefügten Werte statistisch auswerten möchte. Formeln enthalten somit die Spalten N, R, V usw (in meiner Beispieldatei sind diese Zellen nicht eingerahmt). Der Code muss also prüfen, ob der Bereich mit den eingerahmten Zellen leer ist und entsprechend in den nächsten, leeren Bereich einfügen.
Ich hoffe, dass ich das Problem für Dich nachvollziehbar beschrieben habe und dass man das noch entsprechend berücksichtigen kann.
Wünsche Dir ebenfalls schöne Pfingstfeiertage und danke Dir nochmals für Deine Hilfe.
Schöne Grüße
Fritz

Sub WerteWeiter() Dim zelle As Long zelle = Cells(7, 8).End(xlToRight).Column + 1 If zelle Mod 4 = 3 Then If zelle = 183 Then MsgBox "letzter Kopiervorgang erreicht", vbInformation, "Info" Cells(7, zelle).Resize(24, 3).Value = Cells(7, 8).Resize(24, 3).Value Cells(36, zelle).Resize(4, 3).Value = Cells(36, 8).Resize(4, 3).Value Cells(42, zelle).Resize(2, 3).Value = Cells(42, 8).Resize(2, 3).Value Cells(46, zelle).Resize(1, 3).Value = Cells(46, 8).Resize(1, 3).Value Else MsgBox "4. Spalte des letzten Blocks enthält noch keine Formeln/Werte" End If End Sub

Beliebteste Forumthreads (12 Monate)

VBA: Zellbereiche unformatiert kopieren

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Zellbereiche unformatiert kopieren

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread