Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1704to1708
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 Wertübergabe mehrerer Zellen über eine Schleif

VBA Wertübergabe mehrerer Zellen über eine Schleif
30.07.2019 10:46:04
Constantin
Guten Tag,
ich sitze hier an einem Makro-Code und komme nicht weiter.
Ich möchte aus der Tabelle "Gefiltert" die Werte aus den einzelnen Zellen in eine andere Tabelle "Druckversion" reinkopieren und hier ist ein anderer formatierter Zellbereich. Je nach dem was ich an Daten gefiltert zurück bekomme, wird in einer for-Schleife bis zu der Anzahl der gefüllten Zeilen die Zellenbereiche formatiert. Soweit so gut, jetzt möchte ich die Daten aus den jeweiligen Zeilen in das neue Format reinkopieren. Also von "A3" nach "A4", "A4" nach "A11", "A5" nach "A18", "A6" nach "A25", anderes Beispiel: "K3" nach "E6", "K4" nach "E13" usw.
Es wäre also immer (1,4+n*7) n=0. Wie kriege ich die Werte mehrerer Zellen auf ein anderes Tabellenblatt über eine for-Schleife am Besten übertragen?

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Wertübergabe mehrerer Zellen über eine Schleif
30.07.2019 13:01:57
Constantin
Kann mir wirklich niemand weiterhelfen? :/
AW: VBA Wertübergabe mehrerer Zellen über eine Schleif
30.07.2019 13:34:41
Werner
Hallo,
so:
Public Sub aaa()
Dim n As Long, i As Long
With Worksheets("Gefiltert")
For i = 3 To .Cells(.Rows.Count, 1).End(xlUp).Row
Worksheets("Druckversion").Cells(4 + n * 7, 1) = .Cells(i, 1)
Worksheets("Druckversion").Cells(6 + n * 7, 5) = .Cells(i, 11)
n = n + 1
Next i
End With
End Sub
Gruß Werner
Anzeige

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige