Anzeige
Archiv - Navigation
784to788
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
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eigene Transponieren-Funktion geht nicht :(

Eigene Transponieren-Funktion geht nicht :(
26.07.2006 09:43:32
Markus
Hi, ich hab in Tabellenblatt 1 (drucker) in Spalte C immer 6 zeilen die sich wiederholen und transponiert werden sollen auf Tabellenblatt 2 (importdata) in jeweils eine neue zeile mit spalte a-f.
soweit bin ich jetzt, leider klappt es nicht ganz :(
Wo liegen der/die Fehler?

Sub Makro1()
Dim zeilenimport As Integer
Dim zeilendrucker As Integer
Dim columncount As Integer
Dim i As Integer
columncount = 1
zeilendrucker = (Sheets("drucker").Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To zeilendrucker
zeilenimport = (Sheets("Importdata").Cells(Rows.Count, 1).End(xlUp).Row) + 1
For columncount = 1 To 6
Sheets("drucker").Select
Cells(i, 3).Select
Selection.Copy
Sheets("Importdata").Select
Cells(zeilenimport, columncount).Select
Selection.Paste
Next
Next
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eigene Transponieren-Funktion geht nicht :(
26.07.2006 10:32:22
Galenzo
ich würde das:
Dim intRow As Integer
Do Until IsEmpty(Cells(intRow * 6 + 1, 3))
Sheets("importdata").Cells(intRow * 6 + 1, 3).Range("A1:A6").Copy
Sheets("Drucker").Cells(intRow + 1, 1).PasteSpecial Transpose:=True
intRow = intRow + 1
Loop
/Galenzo
AW: Eigene Transponieren-Funktion geht nicht :(
26.07.2006 11:13:59
Markus
Hi, danke.
Habs mittels Array jetzt gelöst, ging einfacher und die Makrolaufzeit ist kürzer.
AW: Eigene Transponieren-Funktion - wie?
26.07.2006 12:10:09
Galenzo
wie ist den dein Code - interessiert mich mal..
/Galenzo
Anzeige

288 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige