Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren einfügen mit Makro

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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