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

Forumthread: Werte von einem sheet auf ein anderes übertragen - makro

Werte von einem sheet auf ein anderes übertragen - makro
04.12.2019 15:34:57
einem
Guten Tag zusammen,
gibt es die Möglichkeit, solch Code:
Sheets("Sheet2").Range("BA4").Value = Sheets("Sheet1").Range("G14").Value
Sheets("Sheet2").Range("BA5").Value = Sheets("Sheet1").Range("F13").Value
Sheets("Sheet2").Range("BA6").Value = Sheets("Sheet1").Range("E12").Value
Sheets("Sheet2").Range("BA7").Value = Sheets("Sheet1").Range("D11").Value
Sheets("Sheet2").Range("BA8").Value = Sheets("Sheet1").Range("C10").Value
in eher solch code zusammenzufassen:
Sheets("Sheet2").Range("E4:E8").Value = Sheets("Sheet1").Range("C10, D11, E12, F13, G14").Value
würde gerne den oberen code noch weiter verringern. :)
Danke für eure Ideen.
Viele Grüße
Marc-David
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte von einem sheet auf ein anderes übertragen - makro
04.12.2019 15:52:04
einem
Hallo,
spontan fällt mir da nun nichts ein außer eine schleife oder ähnliches. da einmal die Werte aufsteigend und das andere mal absteigend sind.
Allerdings würde das dann wohl inklusive der variablendeklaration auch mehr Zeilen ergeben, als du schon hast.
Ob das allerdings dann performance-technisch sinnig oder eher das Gegenteil ist ist fraglich. Ich gehe davon aus, dass das schon gut so ist, wie es ist :)
Anzeige
AW: Werte von einem sheet auf ein anderes übertragen - makro
05.12.2019 09:02:56
einem
Wie wäre die Situation wenn beide ansteigend oder absteigend wären, also nicht gegensätzlich?
AW: Werte von einem sheet auf ein anderes übertragen - makro
05.12.2019 10:54:25
einem
Hallo Marc-David,
ich kann mich MISTERWENN nur anschließen. dass das nur in einer Schleife durchführbar wäre.
Für die paar Zeilen bringt das keinen Gewinn. Falls mehr zusammenkäme könnte man eine Schleife so in dieser Art nehmen:
Sub Teste()
 Dim Obj As Range
 For Each Obj In Sheets("Tabelle2").Range("BA4:BA8")
   Obj.Value = Sheets("Tabelle1").Cells(18 - Obj.Row, 11 - Obj.Columns - Obj.Row).Value
 Next Obj
End Sub

Anzeige
AW: Werte von einem sheet auf ein anderes übertragen - makro
05.12.2019 10:57:55
einem
Kleine Verbesserung:
Sub Teste()
 Dim Obj As Range
 For Each Obj In Sheets("Tabelle2").Range("BA4:BA8")
   Obj.Value = Sheets("Tabelle1").Cells(18 - Obj.Row, 11 - Obj.Row).Value
 Next Obj
End Sub

Anzeige
AW: Werte von einem sheet auf ein anderes übertragen - makro
05.12.2019 11:16:51
einem
Hätte ich vielleicht am Anfang fragen oder sagen sollen, ich mache 52 if Abfragen also ich habe diesen Code 52x - Woche 1 - Woche 52, Daten auf Sheet1 werden auf Knopfdruck wöchentlich in eine andere Spalte kopiert (Liste Sheet2), die Position der Daten ändert sich nie.
AW: Werte von einem sheet auf ein anderes übertragen - makro
05.12.2019 11:22:08
einem
Es gibt keine Möglichkeit meinen Code in solch eine Art Zeile zu verpacken oder?
List.Range("BA4:BA8").Value = Data.Range("C10, D11, E12, F13, G14")
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige