Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Einmaliges kopieren von best. Zellenbereichen

VBA: Einmaliges kopieren von best. Zellenbereichen
11.03.2019 12:06:56
best.
Hallo Leute,
ich habe ein Problem mit dem kopieren von bestimmten Zellenbereichen per VBA über eine Schaltfläche.
Der Code lautet wie folgt:
Private Sub CommandButton1_Click()
Dim rngStart1 As Range
Dim rngEnde1 As Range
Dim rngStart2 As Range
Dim rngEnde2 As Range
Dim rngStart3 As Range
Dim rngEnde3 As Range
Set rngStart1 = Columns(1).Find(What:="Anfang1")
Set rngEnde1 = Columns(1).Find(What:="Ende1")
Set rngStart2 = Columns(1).Find(What:="Anfang2")
Set rngEnde2 = Columns(1).Find(What:="Ende2")
Set rngStart3 = Columns(1).Find(What:="Anfang3")
Set rngEnde3 = Columns(1).Find(What:="Ende3")
Range(rngStart1, rngEnde1).Copy
Range("B1:B20").PasteSpecial xlPasteValues
Range(rngStart2, rngEnde2).Copy
Range("C1:C20").PasteSpecial xlPasteValues
Range(rngStart3, rngEnde3).Copy
Range("D1:D20").PasteSpecial xlPasteValues
End Sub

Die Ranges zwischen 1 und 3 können sich ändern, deswegen .Find. Jetzt möchte ich gerne, dass bspw. rngStart1 bis rngEnde1 nur einmalig kopiert wird und nicht immer wieder neu bis zum ende der angegeben Range.
Habe mir das alles aus Schnipseln durch Google zusammengeschustert :) Eine Datei zur Veranschaulichung habe ich auch beigefügt: https://www.herber.de/bbs/user/128289.xlsm

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Einmaliges kopieren von best. Zellenbereichen
11.03.2019 13:26:11
best.
Außerdem würde ich gerne noch das Format der jeweiligen Zellen kopieren. Allerdings bekomme ich immer ein Fehler wenn ich im Code noch zusätzlich "Range("XX:XX").PasteSpecial xlPasteFormat" einfüge.
AW: VBA: Einmaliges kopieren von best. Zellenbereichen
12.03.2019 11:41:37
best.
Habs selber hinbekommen yuhu!!! :)
- Kann geschlossen werden :)
Anzeige

326 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige