Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

kopieren einfügen mit Makro

kopieren einfügen mit Makro
21.04.2006 22:46:42
Antje
Hallo alle zusammen,
ich habe 30 Zeilen (A1:I30) wo die Werte von Tabellenblatt1 ins Tabellenblat2 kopiert werden sollen. Wobei wie folgt verfahren werden soll. Blatt 1 Zelle A1:C1 kopieren dann in Blatt 2 die Werte untereinander einfügen von A1:A3. Blatt 1 Zelle D1:F1 kopieren dann in Blatt 2 die Werte untereinander einfügen von B1:B3. Blatt 1 Zelle G1:I1 kopieren dann in Blatt 2 die Werte untereinander einfügen von C1:C3. Dann von Blatt 1 das gleiche mit der 2. Zeile bis zur 30. Zeile durchführen. In Blatt 2 sollten die Werte an die vorhandenen Werte jeweils angehängt werden. Es sind immer 3 Einheiten die waagerecht kopiert und senkrecht eingefügt werden sollen.
Hat dafür jemand eine Makrolösung.
Danke im voraus
Antje

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren einfügen mit Makro
22.04.2006 01:01:21
Michael
Hallo Antje,
Versuchs mal mit forlgender Funktion:

Sub DreiWerte_Transponieren()
Dim i,k As Integer
Dim wert(3) As Variant
Dim Anzahl_der_3er_Gruppen As Integer
Anzal_der_3er_Gruppen = 10
For i=1 to Anzahl_der_3er_ Gruppen
sheets("tabelle1").Activate
For k=1 to 3
wert(k-1)=Cells(k,i).Value
Next k
sheets("tabelle2").Activate
For k=1 to 3
Cells(k+3*(i-1),1).Value=wert(k-1)
Next k
Next i
End Sub

Viele Grüsse,
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige