kleine ? Makro Änderung
15.07.2007 11:39:00
michael
Herzlichen Gruß ins Forum
Ich habe ZWEI Dateien
Datei Liste
Datei Ziel
Die Datei Liste besteht aus 4 Spalten A-D ( Hochformat )
Die Datei Ziel kann aber 2 mal 4 Spalten aufnehmen (nebeneinander)
also A-D E leer und F-I.
Die Liste hat z.B.110 Zeilen derzeit Kopiere ich in die Datei Ziel 55 Zeilen nach A-D
und 55 Zeilen nach F-I (mühsam ernährt sich das Eichhörnchen)
Das war meine Frage ans Forum !!!!!!!!!!!
=====================================================
Dank Forumshilfe habe ich dieses Makro erhaltenfunktioniert einwandfrei .aber
ich bin erst nach einiger Zeit draufgekommen das wenn ich weniger als 110 Zeilen habe
z.B. 80 , diese Zeilen auf 2x40 aufgeteilt werden.
In der ersten Spalte , also A-D sollen IMMER 55 Zeilen ausgefüllt werden
und der REST , in dem Fall 25 Zeilen nach F-I.
Kann mir bitte jemand den Code ändern .
Danke und kühlender Gruß---bei mir hats schon 32 Grad
der kleine michael
====================================================
Sub umsetzen()
QuellBook = ActiveWorkbook.Name
quellSheet = "Liste2"
'Ziel
Workbooks.Add
ZielBook = ActiveWorkbook.Name
With Workbooks(QuellBook).Sheets(quellSheet)
lzeile = Round(.Cells(65536, 1).End(xlUp).Row / 2, 0)
For zeile = 2 To lzeile
For y = 1 To 4
Worksheets(1).Cells(zeile, y) = .Cells(zeile, y)
Worksheets(1).Cells(zeile, y + 5) = .Cells(zeile + lzeile - 1, y)
Next y
Next zeile
End With
End Sub