VBA: Einmaliges kopieren von best. Zellenbereichen
11.03.2019 12:06:56
best.
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