Messreihen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Gerhard,
einfacher wäre es gewesen, wenn du gleich genauer geschrieben hättest, was du möchtest.
"Tabelle 1" ist (auch) für mich ein Tabellenblatt - keine Excelmappe/Datei.
Leichte Unklarheiten gibt es auch jetzt noch:
1.
Wo sollen sich der Button und die Prozedur befinden? In der Zielmappe? Oder einer eigenen (dritten) Mappe?
2.
Soll der Name der Quellmappe in der Prozedur stehen? Oder wo soll er herkommen?
3.
Soll als Zielbereich immer derselbe Bereich im selben Blatt derselben Mappe verwendet werden?
Was, wenn da schon Daten stehen? Sollen die alten Daten gelöscht werden?
Probier mal:


Option Explicit
Sub Umschaufel()
Dim wksQ As Worksheet, wksZ As Worksheet
Dim lngQ As Long, arrQ, arrZ, zz As Long, ss As Long
Const lngS As Long = 50
Set wksQ = Workbooks("INDEX-Umschaufel.xlsm").Worksheets("Quell")
Set wksZ = Workbooks("INDEX-Umschaufel.xlsm").Worksheets(2)
With wksQ
lngQ = .Cells(.Rows.Count, 1).End(xlUp).Row
arrQ = .Cells(1, 1).Resize(lngQ, 2)
End With
ReDim arrZ(1 To lngS, 1 To 2 * Fix((lngQ + lngS - 1) / lngS))
For zz = 1 To lngS
For ss = 0 To UBound(arrZ, 2) / 2 - 1
If zz + ss * lngS

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Option Explicit Public Const Quelle As String = "MAPPE1" ' hier den Namen anpassen Public Const Ziel As String = "MAPPE2" ' hier den Namen anpassen Sub kopieren_einfügen() Dim wks As Worksheet, zae1 As Long For Each wks In Workbooks(Quelle).Worksheets zae1 = zae1 + 2 wks.Range(wks.Cells(1, "A"), wks.Cells(50, "B")).Copy _ Destination:=Workbooks(Ziel).Worksheets("Tabelle1").Cells(1, zae1 - 1) Application.CutCopyMode = False Next End Sub

Hallo Henrik,
nochmals zum Verständnis!
Die Messdaten werden in einer Exceldatei abgespeichert und liegen darin im Tabellenblatt1 in den Spalten A+B vor.
Die Länge der Messreihen ist dynamisch.
Diese können mal je nach Messeinstellung von A1 bis B1000 oder bei einer anderen Einstellung
von A1 bis B3000 usw... varieren.
Wenn ich nun diese langen Messwertreihen aus der Tabelle1 ausdrucken möchte, kann es schon mal vorkommen, dass dies mehr als 20 Seiten sind!
Um dies zu vermeiden und aus übersichtsgründen möchte ich die Messreihen in der gleichen Arbeitsmappe nur nebeneinander in das Tabellenblatt2 übertragen (wie oben beschrieben).
Noch eine Anmerkung:
Im Tabellenblatt1 in der Spalte A sind 2 Zelleinträge farbig markiert (gelb).
Können diese beiden Formate für diese Zelle beim Übertrag mit übernommen werden!
Danke
Gruß Gerhard

Sub Messreihen_Umsortieren() Dim lngZ As Long, lngLZ As Long Const lngMax = 50 'Maximale Anzahl Zeilen pro Spalte - inkl. Überschrift lngLZ = Cells(Rows.Count, 1).End(xlUp).Row For lngZ = lngMax + 1 To lngLZ Step lngMax Cells(1, 2 * (lngZ \ 50) + 1) = [A1] 'Überschrift Spalte A Cells(1, 2 * (lngZ \ 50) + 2) = [B1] 'Überschrift Spalte B Cells(lngZ, 1).Resize(lngMax - 1, 2).Cut Cells(2, 2 * (lngZ \ 50) + 1) Next End Sub

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G
1	wertA1	wertB1	wertA51	wertB51	wertA101	wertB101	wertA151
2	wertA2	wertB2	wertA52	wertB52	wertA102	wertB102	wertA152
3	wertA3	wertB3	wertA53	wertB53	wertA103	wertB103	wertA153

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread