|
Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Sheet und auf diesem Sheet sind 6 identische Vorlagen untereinander (also Seite 1-6). Nun möchte ich per Makro ab einer bestimmten Zeile immer 7 Spalten und 10 Zeilen einlesen.
Also beispielsweise ab C18, 7 Spalten nach rechts und 10 Zeilen nach unten einlesen. Das klappt beim ersten Blatt auch wunderbar. Nun muss ich aber die restlichen 5 Seiten auch einlesen können...
so lese ich ein...
Range("C18").Select
For o = 0 To 9
Items(o, 0) = Range("C18").Offset(o, 0).Value
Items(o, 1) = Range("D18").Offset(o, 0).Value
Items(o, 2) = Range("E18").Offset(o, 0).Value
Items(o, 3) = Range("F18").Offset(o, 0).Value
Items(o, 4) = Range("G18").Offset(o, 0).Value
Items(o, 5) = Range("H18").Offset(o, 0).Value
Items(o, 6) = Range("I18").Offset(o, 0).Value
</span>
counter = 0
For o = 0 To 9
For i = 0 To 6
counter = counter + 1
Selection.Offset(0, 17 + counter).Value = Items(o, i)
Next
Wie kann ich bestimmte Bereiche einlesen und dann auch alle wieder ausgeben? Gesagt sei auch, dass alle Zeilen in einer neuen Datei in eine EINZIGE Zeile nach rechts geschrieben werden.
Bei Fragen könnt ihr euch nochmal gerne an mich wenden.
Grüße,
b-baller-juka
|