Supportnet / Forum / Tabellenkalkulation
Bereich einer excel-Tabelle in einen Bereich einer anderen Tabelle anneinandergereiht kopieren
Frage
Hallo,
ich habe folgendes Problem:
aus einer Quelldatei soll täglich ein bestimmter Bereich ( B13:AO108 ) einer Excel-Tabelle ( Mappe1.xls ) in eine Zieldatei in eine Excel-Tabelle Mappe2.xls in einen bestimmten Bereich kopiert werden. Am ersten Tag in den Bereich B13:AO108, am zweiten Tag in den Bereich B109:AO204, am dritten Tag in B205:AO300 usw.
Es handelt sich um jeweils 96 Zeilen pro Tag, die dann anneinandergereiht einen Monatsbericht ergeben sollen. Wobei in der Spalte B Datum und Uhrzeit stehen und in den Spalten C bis AO die Zahlenwerte. Wer kann mir helfen, eine Lösung für das Makro zu finden ?
Vielen Dank
Thomas
Antwort 1 von cmkatz
Hallo,
da es ja immer die gleiche Mappe2.xls sein soll, schlage ich vor, du legst Sie manuell an nu dspeicherst sie auch dort, wo die Mappe1.xls liegt.
Dann fügst du folgenden Code in Mappe1.xls als neues Modul1 ein:
Du kannst jetzt entweder per Alt+F8 das Makro starten, oder du fügst einen Button in die tabelle und weist diesem das Makro zu mit diesem Code:
Gruß
cmkatz
da es ja immer die gleiche Mappe2.xls sein soll, schlage ich vor, du legst Sie manuell an nu dspeicherst sie auch dort, wo die Mappe1.xls liegt.
Dann fügst du folgenden Code in Mappe1.xls als neues Modul1 ein:
Sub anfuegen()
Dim i As Integer
Worksheets("Tabelle1").Range("B13:AO108").Select
Selection.Copy
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "mappe2.xls"
Range("B13").Activate
Do Until IsEmpty(ActiveCell) 'erste leere Zelle suchen
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste 'dann einfügen
ActiveWorkbook.Close SaveChanges:=True
ThisWorkbook.Activate
End Sub
Du kannst jetzt entweder per Alt+F8 das Makro starten, oder du fügst einen Button in die tabelle und weist diesem das Makro zu mit diesem Code:
Private Sub CommandButton1_Click()
anfuegen
End Sub
Gruß
cmkatz