Verketten einer Zeile mit zwei folgenden
16.07.2008 14:48:00
Alina
ich habe noch ein Problem. Und zwar bin ich im Besitz eines Makros (das für eine andere Art von Datei auch immer sehr gut funktioniert hatte)
Sub verketten()
Dim ZQ As Integer 'Zeilenvariable Quelldaten
Dim ZZ As Integer 'Zeilenvariable Zieldaten
Set p1 = ActiveWorkbook.Worksheets("Tabelle1")
Set p2 = ActiveWorkbook.Worksheets("Tabelle2")
'ZZ und ZQ in der FOR-Schleife ggf. anpassen
ZZ = 1
For ZQ = 1 To 377 Step 2 ' jede 2. Quellzeile auslesen
p2.Cells(ZZ, 1).Formula = _
p1.Cells(ZQ, 1).Text
p2.Cells(ZZ, 2).Formula = _
p1.Cells(ZQ, 2).Text
p2.Cells(ZZ, 3).Formula = _
p1.Cells(ZQ, 3).Text
p2.Cells(ZZ, 4).Formula = _
p1.Cells(ZQ, 4).Text
p2.Cells(ZZ, 5).Formula = _
p1.Cells(ZQ, 5).Text
p2.Cells(ZZ, 6).Formula = _
p1.Cells(ZQ, 6).Text
p2.Cells(ZZ, 7).Formula = _
p1.Cells(ZQ, 7).Text
p2.Cells(ZZ, 8).Formula = _
p1.Cells(ZQ, 8).Text
p2.Cells(ZZ, 9).Formula = _
p1.Cells(ZQ, 9).Text
p2.Cells(ZZ, 10).Formula = _
p1.Cells(ZQ, 10).Text
p2.Cells(ZZ, 11).Formula = _
p1.Cells(ZQ, 11).Text
p2.Cells(ZZ, 12).Formula = _
p1.Cells(ZQ, 12).Text
p2.Cells(ZZ, 13).Formula = _
p1.Cells(ZQ, 13).Text
p2.Cells(ZZ, 14).Formula = _
p1.Cells(ZQ + 1, 1).Text
p2.Cells(ZZ, 15).Formula = _
p1.Cells(ZQ + 1, 2).Text
p2.Cells(ZZ, 16).Formula = _
p1.Cells(ZQ + 1, 3).Text
p2.Cells(ZZ, 17).Formula = _
p1.Cells(ZQ + 1, 4).Text
p2.Cells(ZZ, 18).Formula = _
p1.Cells(ZQ + 1, 5).Text
p2.Cells(ZZ, 19).Formula = _
p1.Cells(ZQ + 1, 6).Text
p2.Cells(ZZ, 20).Formula = _
p1.Cells(ZQ + 1, 7).Text
p2.Cells(ZZ, 21).Formula = _
p1.Cells(ZQ + 1, 8).Text
p2.Cells(ZZ, 22).Formula = _
p1.Cells(ZQ + 1, 9).Text
p2.Cells(ZZ, 23).Formula = _
p1.Cells(ZQ + 1, 10).Text
p2.Cells(ZZ, 24).Formula = _
p1.Cells(ZQ + 1, 11).Text
p2.Cells(ZZ, 25).Formula = _
p1.Cells(ZQ + 1, 12).Text
ZZ = ZZ + 1 'Zieltabelle jede Zeile schreiben
Next
End Sub
das entsprechend angepasst werden müsste und zwar habe ich eine riesige Datei mit Spalten von A bis N, die erste Spalte müsste mit den beiden folgenden verkettet und das Ergebnis in ein anderes Blatt geschrieben werden. Wie muß das Makro angepasst werden? Vielen Dank!
LG
alina