Daten kopieren - selber Lsg. gefunden

**Alina**

Moin-Moin zusammen.

Ich weiß jetzt gar nicht, ob Excel eigentlich hier rein gehört oder unter "Andere Programmierspracen". Aber ich frage dennoch hier mal nach.

Ich habe ein Exceltabelleblatt "Hauptdaten", in dem ist ein Kalender wie folgt aufgebaut ist:

[D17] [von] [bis] ..... [x17]
[02.01.2017] [07:30] [17:30] ..... [M17]
[03.01.2017] [07:30] [17:30] ..... [M18]

Nun möchte ich die Monate trennen und auf die Tabellenblätter [01_2017], [02_2017];[03_2017] ....
verteilen. Also könnte ich die Daten rauskopieren und auf dem jeweiligen Tabellenblatt wieder einfügen, das geht sicherlich, ist aber sehr kompliziert und ich habe dann die Daten wie gewollte auf dem Monatsblatt und den Blatt "Hauptdaten", aber ich frage mich, ob man das nicht einfacher machen kann, da es ja nicht nur eine Tabelle betrifft, wo ich das gerne machen würde ohne C & P.

Wäre dankbar für eine ectl. Lösung, so es die denn gibt. Im Netzt habe ich genauso wenig gefunden wie leider auch hier im Forum.

Zeitriss

Hi,

Sollte mit der Excel Udf eigentlich kein Problem sein.

mal eben auf die Schnelle:

AutoIt

#include<Excel.au3>
Global $oExcel, $sPath, $iError
$oExcel = _Excel_Open(False)
For $i = 1 to $cmdLine[0]
   ToolTip($i & "/" & $cmdLine[0], 0, 0, $cmdLine[$i])
   Work($oExcel, $cmdLine[$i])
   $iError = @error
   If $iError = 1 Then MsgBox(16, $cmdLine[$i], "Datei konnte nicht gefunden/geöffnet werden.")
   If $iError = 2 Then MsgBox(16, $cmdLine[$i], "Das Excel-Dokument hat kein Hauptdaten Blatt.")
Next


_Excel_Close($oExcel)


Func Work($oExcel, $sPath)
   Local $oBook, $aSheets, $oSheet_MainData, $aRange, $aMatchSheet, $aMatch, $oRangeSource, $oRangeTarget, $iCounter
   $oBook = _Excel_BookOpen($oExcel, $sPath)
   If @error or Not IsObj($oBook) Then Return SetError(1)
   ; Suche nach einem Blatt mit dem Namen Hauptdaten
   $aSheets = _Excel_SheetList($oBook)
   For $i = 0 to UBound($aSheets) -1
	  If $aSheets[$i][0] = "Hauptdaten" Then $oSheet_MainData = $aSheets[$i][1]
   Next
   If Not IsObj($oSheet_MainData) Then
	  _Excel_BookClose($oBook)
	  Return SetError(2)
   EndIf
   ; Erstelle ein Array der ersten spalte, welches das Datum enthält,
   $aRange = _Excel_RangeRead($oBook, $oSheet_MainData.Name, "D17:D9999")
   For $iSheet = 0 to UBound($aSheets) -1
	  ; Prüfe ob das Blatt den Vorgaben entspricht mm_yyyy
	  $aMatchSheet = StringRegExp($aSheets[$iSheet][0], "^(\d{2})_(\d{4})$", 1)
	  If Not IsArray($aMatchSheet) Then ContinueLoop
	  $iCounter = 16 ; Zählt die Zeilen auf der Zielfolie
	  For $iRow = 0 to UBound($aRange) -1
		 ; Suche das Datum aus der Spalte D, welche wir zuvor in einem Array gelagert haben
		 $aMatch = StringRegExp($aRange[$iRow], "(\d{4})(\d{2})\d{2}\d{6}", 1)
		 If Not IsArray($aMatch) Then exitloop; Sobald eine Angabe nicht passt, wird die Schleife abgebrochen
		 ; Wenn das Datum übereinstimmt, wird die Zeile in das Blatt kopiert.
		 If ($aMatch[0] = $aMatchSheet[1]) And ($aMatch[1] = $aMatchSheet[0]) Then
			$iCounter +=1
			$oRangeSource = $oSheet_MainData.Range("D" & (17 + $iRow) & ":X" & (17 + $iRow))
			$oRangeTarget = $aSheets[$iSheet][1].Range("D" & $iCounter & ":X" & $iCounter)
			_Excel_RangeCopyPaste($oSheet_MainData, $oRangeSource, Default)
			_Excel_RangeCopyPaste($aSheets[$iSheet][1], Default, $oRangeTarget)
		 EndIf
	  Next
   Next
   _Excel_BookClose($oBook)
   Return True
EndFunc

Alles anzeigen

Sollte alle Zeilen von D17 in die jewaligen Blätter einsortieren. Allerdings verschiebt es jede Zeile einzeln was eigentlich natürlich unsinn ist.

mfg
Zeitriss

**Alina**

So, jetzt ganz langsam.

Erst einmal die Kurzfassung: Habe gerade mein eigenes Problem gelöst. Ich könnte vor Glück an die Holzdecke springen. Aber ich werde mir gleich lieber den Kamin an machen und zur Belohnung ein Glas Wein in meinem Hängesessel genießen.

Aber zuvor mein DANK AN ZEITRISS !!!
Ich werde das auf jeden Fall ausprobieren, denn eigentlich brauche ich, wie ich gerade erfahren habe und was hier sehr gut erklärt ist: URL / LINK.

Das war wieder so ein Problem, wo ich die Lösung einfach nicht mehr zur Verfügung hatte. Da muss sich etwas anderes den Platz in meinem Gehirn genommen haben.
Dann kam noch Murphy dazu. Ihr kennt Murphy doch oder? Murphys Gesetz, den meine ich. Da habe ich die Vorlage fertig und mache binnen 10 Minuten die ersten vier Monate fertig.
Dann fällt mir auf, das er irgendwie auf dem Hauptblatt in den Textzellen bewusst nichts drinne hat, aber beim Zellenbezug eine [0] setzt. Schreibt man etwas auf dem Hauptblatt in die Zelle, überträgt er es sauber, aber sobald ich die Zelle auf dem Hauptblatt leere steht in der Monatsübersicht wieder diese [0]. Das ging mir so auf die ......, da habe ich einfach gesagt, das bei einer Null Hintergrund und Schriftfarbe weiß sind. Auf den Arm nehmen lasse ich mich nicht in meiner eigentlichen Freizeit, die ich dennoch bezahlt bekomme.

Schade ist, das man die Schriftfarbe nicht mit nehmen kann, aber auch da werde ich sicherlich noch eine Lösung finden.

So, dann bin ich mal gleich noch eine kurze Runde durchs Forum und dann ab ins Wohnzimmer. Knisterne Kaminwärme genießen.

Schönen Abend noch.

Edit.
Nicht das Ihr nun denkt, ich mache einen auf C & P. Folgendes Script füllt mir die Zelle [B6], so das ich binnen 1-2 Minuten jedes Monatsblatt komplett fertig habe.

AutoIt

#include <Excel.au3>


Local $oExcel = _Excel_Open()
Local $sFilePath1 = @ScriptDir & "\tteesstt.xlsx"
Global $oWorkbook = _Excel_BookOpen($oExcel, $sFilePath1,Default,True,Default,Default,Default)


$oWorkbook.Sheets("01_2017").Activate
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "=Haupttabelle!D36", "B6", False)


$oWorkbook.Sheets("02_2017").Activate
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "=Haupttabelle!D62", "B6", False)


$oWorkbook.Sheets("03_2017").Activate
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "=Haupttabelle!D86", "B6", False)


;  Hier geht es bis "=Haupttabelle!D322". Kopfkino: In der Kürze liegt die Würze
_Excel_BookSave($oWorkbook)

Alles anzeigen

Und für die, die etwas nachdenken möchten, hier ein kleines Rätzel. An Hand des o. g. Scripts läßt sich errechnen, wieviele Arbeitstage ich im kommenden Jahr habe und ihr dürft raten, wieviel Wochenarbeitstage das sind. ----- ?????----- Bedenke, Feiertage die nicht auf einen Sonntag fallen sind arbeitstage, auch wenn ich nicht arbeite. Ist alles eine Frage der Verhandlung gewesen. Bevor ich es vergesse, 36 Tage bzw. 42 Tage Urlaub sind da irgendwo unter zu bringen und zählen solange als Arbeitstage, wie ich sie nicht genommen habe. Warum zwei verschiedene Urlaubsanzahltage? Ganz einfach, einmal Deutschland und einmal Dänemark, wobei ich nicht mal die 36 weg bekomme dieses Jahr.