Datumsbezogener Wertetransfer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Heiko,
die Formatierung deines Posts ist nicht so wesentlich, ...
-- in Teilen hat es dann doch zur verwirrung geführt. Jetzt von zu Hause sollte es aber funktionieren
Angesichts der folgenden Fragen wirst du IMHO, um sinnvolle Hilfe zu bekommen,
wohl doch zwei Beispielmappen erstellen müssen.
"Das Datum der Quelldatei läuft das ganze Jahr in einem Sheet fort,
zwischen den Monaten gibt es allerdings Unterbrechungen."
Wie sieht Spalte A genau aus?
"Es sollen immer nur Werte =heute-1 (also von gestern) übertragen werden."
Das bedeutet wohl, dass die Prozedur jeden Tag laufen muss.
Was ist mit Wochenenden, Feiertagen, Krankheit des Bearbeiters, Stromausfall, Vergessen, ...?
Die Welt ist nicht perfekt, Menschen und Maschinen machen Fehler.
--- die Aufgabe ist Routine und wird jeden morgen durchgeführt, wir sind ein vollkontinuierlicher Betrieb und entsprechend ist eigentlich sicher gestellt, dass die Aufgabe erledigt wird. Sollte es wider erwarten doch einmal vergessen werden, habe ich im Moment nicht den Anspruch das zu automatisieren. Dann muss mal von Hand nachgetragen werden. Wenn ich dann mal Fuss gefasst habe in VBA dann wird erweitert.
"von Tageswerte nach Mrz ___________________________________"
Die Zeile verstehe ich nicht.
--- hier war der Vormatierungshund, das sollte heissen:
folgende Daten stehen in 'Tagesbericht BF1.xls' Sheet 'Tageswerte' und sollen nach 'BF1 Eingaben 2012.xls' Sheet 'Mrz'
"wenn B = nicht Stade dann von C nach F wenn B = Stade von C nach G"
Sorry - aber was soll man mit diesem Abschnitt anfangen? Erst mal mühsam analysieren?
Das solltest du übersichtlicher und klarer aufschreiben.
Was ist Stade? Ein feststehender Text?
Meinst du z. B.:
Wenn B5="Stade", übertrage C5 in Spalte G, sonst in Spalte F
--- genau
"In G wird die Summe von B, E und H gebildet"
In Quelle oder Ziel?
Können in B Zahlen stehen? Bislange sehe ich nur: Bx="Stade" oder Bx ungleich "Stade".
--- was hab ich denn da geschrieben? Muss ich morgen nochmal anschauen
"L ist von Mo-Fr immer 200 CL nach M und N P ist von Mo-Fr immer 25 Q ist von Mo-Fr immer
24 BN nach AF BO nach AG BR nach AH BR nach AH BS"
Sorry - was soll das denn bedeuten?
---Hier stolpern wir auch wieder über die Formatierung
L (Ziel) ist von Mo-Fr immer 200 'hierbei handelt es sich um eine Kontrollmessung die nur an Werktagen in Betrieb ist
wenn ich weiss wie ich letzteres programmiere klappts dann auch für den Rest, denke ich.
"Das ganze soll idealerweise per cmd Box aus einer beliebigen Excel Datei gestartet werden können"
Was meinst du mit cmd Box?
Warum nur aus beliebigen Exceldateien? Warum nicht auch Outlook oder Word?
Woher soll "Excel" deine cmd Box kennen?
--- ich meinte starten mit einer Befehlsschalfläche. Aus Excel weil das ohnehin geöffnet ist.
Also Start aus 'Tagesbericht BF1.xls'. D. h., dass der Benutzer diese Mappe geöffnet hat und was dann tut?
--- die Befehlsschaltfläche anklicken
"liegen nicht auf C: und sind auch nicht im gleichen Ordner untergebracht"
Es ist nicht so spannend, wo die Mappen nicht liegen, oder? Ja wo liegen sie denn?
--- s:\bde\Berichte
Der Dateiname 'BF1 Eingaben 2012.xls' enthält das Jahr. Also hängt es wohl vom Datum in Quellspalte A ab,
welche die richtige Ausgabemappe ist.
Damit sind nicht nur die Zielblätter variabel, sondern auch die Zielmappen.
Für das neue Jahr würde ich das ganze dann einfach entsprechend abändern.
Keine Antwort auf meine Fragen habe ich gefunden zu:
Was ist mit Daten, die bereits in den Zielblättern stehen? --- diese bleiben erhalten
Sollen die neuen Daten darunter geschrieben werden? (Dies ist beantwortet - in Zeile des Datums)
Oder sollen die Altdaten überschrieben werden? --- nein
In welcher Form könntest du dir die Hilfe vorstellen?
Unterstützung beim Programmieren = Weiterentwickeln deiner Ansätze? (Dann solltest du die posten...)
--- ich hab keinen blassen schimmer wie ich das Problem angehen kann. Ich denke wenn ich die Basics hätte, einen Ansatz, könnte ich versuchen darauf aufzubauen.
Fertiges Programm? Das kann leicht zur Auftragsprogrammierung werden.
--- das solls nicht sein. Es geht um Hilfe zur Selbsthilfe
ich hoffe damit kannst du schon was anfangen. Morgen früh baue ich an Beispieltabellen wenn du die noch brauchst.
1000 Dank nochmal für die Mühe die du dir machst.
Grüße aus Kerken sendet Heiko

Option Explicit Sub Makro1() ' liefert die Makroaufzeichnung Windows("Quellmappe.xls").Activate Range("A2:B8").Select Selection.Copy Windows("Heiko-Ziel.xlsm").Activate Range("C6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub Sub Makro2() ' wie Makro1, aber ohne Activate und Select Workbooks("Quellmappe.xls").Sheets(1).Range("A2:B8").Copy ' in Zwischenablage Workbooks("Heiko-Ziel.xlsm").Sheets(2).Range("C6").PasteSpecial _ Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End Sub Sub Makro3() ' ohne Copy, Übertragung per einfacher Zuweisung (Gleichsetzung) ' Range("A2:B8") soll übertragen werden, also 7 Zeilen, 2 Spalten Workbooks("Heiko-Ziel.xlsm").Sheets(2).Range("C6").Resize(7, 2) = _ Workbooks("Quellmappe.xls").Sheets(1).Range("A2").Resize(7, 2).Value End Sub

Hallo,
ich denke was ich gebastelt hab ist ziemlich kompliziert aber es funktioniert erstmal, für eine bestimmte Zeile.
Wie es weiter geht wenn es ein bestimmtes Datum sein soll hoffe ich noch rauszufinden.
Was mir nicht gelungen ist dem Programm beizubringen Nullwerte bzw leere Zellen nicht zu übertragen.
Wenn ich eine leere Zelle kopiere entsteht im Ziel eine 0, die Zielzelle soll in dem Fall aber keinen Wert enthalten (auch wenn 0 nicht viel ist)
Hier mein Code... bis jetzt:
<pre>Sub Übertragen1()
' Übertragen Makro
'
' Öffnen Zieldatei
ChDir "C:\Users\Juko\Desktop\BA"
Workbooks.Open Filename:= _
"C:\Users\Juko\Desktop\BA\Ziel2012.xls"
'Inhalte übertragen
'Laufzeit Waagen
Windows("Quelle.xls").Activate
Range("Y98").Copy
Windows("Ziel2012.xls").Activate
Range("H37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Windows("Quelle.xls").Activate
Range("P98").Copy
Windows("Ziel2012.xls").Activate
Range("K37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
End Sub</pre>
<pre>Sub TonnageWaagen()
Windows("Quelle.xls").Activate
' LöserMix Summe
Range("IS98").Select
ActiveCell.FormulaR1C1 = _
"=SUM(IF(RC[-251]=""stade"",0,RC[-250]),(IF(RC[-248]=""stade"",0,RC[-247])),(IF(RC[-245]=""stade"",0,RC[-244])))"
' LöserStade Summe
Range("IT98").Select
ActiveCell.FormulaR1C1 = _
"=SUM(IF(RC[-252]=""Stade"",RC[-251],0),(IF(RC[-249]=""stade"",RC[-248],0)),(IF(RC[-246]=""stade"",RC[-245],0)))"
' DKZMix Summe
Range("IU98").Select
ActiveCell.FormulaR1C1 = _
"=SUM(IF(RC[-238]=""stade"",0,RC[-237]),(IF(RC[-235]=""stade"",0,RC[-234])))"
' DKZStade Summe
Range("IV98").Select
ActiveCell.FormulaR1C1 = _
"=SUM(IF(RC[-239]=""stade"",RC[-238],0),(IF(RC[-236]=""stade"",RC[-235],0)))"
End Sub</pre>
<pre>Sub Übertragen2()
'Waagen übertrag
Windows("Quelle.xls").Activate
Range("iv98").Select
Selection.Copy
Windows("Ziel2012.xls").Activate
Range("g37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=True, Transpose:=False
'
Windows("Quelle.xls").Activate
Range("iU99").Select
Selection.Copy
Windows("Ziel2012.xls").Activate
Range("f37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=True, Transpose:=False
'
Windows("Quelle.xls").Activate
Range("it98").Select
Selection.Copy
Windows("Ziel2012.xls").Activate
Range("j37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=True, Transpose:=False
'
Windows("Quelle.xls").Activate
Range("is98").Select
Selection.Copy
Windows("Ziel2012.xls").Activate
Range("i37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=True, Transpose:=False
End Sub</pre>
<pre>Sub Laugen()
'Laugedaten übertrag
Windows("Quelle.xls").Activate
Range("bp98").Select
Selection.Copy
Windows("Ziel2012.xls").Activate
Range("af37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
'
Windows("Quelle.xls").Activate
Range("bq98").Select
Selection.Copy
Windows("Ziel2012.xls").Activate
Range("ag37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
'
Windows("Quelle.xls").Activate
Range("bw98").Select
Selection.Copy
Windows("Ziel2012.xls").Activate
Range("ah37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
'
Windows("Quelle.xls").Activate
Range("bu98").Select
Selection.Copy
Windows("Ziel2012.xls").Activate
Range("ai37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
'
Windows("Quelle.xls").Activate
Range("bx98").Select
Selection.Copy
Windows("Ziel2012.xls").Activate
Range("aj37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
'
Windows("Quelle.xls").Activate
Range("by98").Select
Selection.Copy
Windows("Ziel2012.xls").Activate
Range("ak37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
'
Windows("Quelle.xls").Activate
Range("CN98").Select
Selection.Copy
Windows("Ziel2012.xls").Activate
Range("M37:N37").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
End Sub</pre>
<pre>Sub LöschenTemps()
Windows("Quelle.xls").Activate
Range("IS98:IV98").ClearContents
Range("B69").Select
End Sub</pre>
Abgerufen werden die Sub´s über einen Button in der Quelldatei
Rückmeldung ware nett! - Grüße aus Kerken von Heiko

Option Explicit Sub Übertragen1() ' Übertragen Makro ' Öffnen Zieldatei ChDir "C:\Users\Juko\Desktop\BA" Workbooks.Open Filename:= _ "C:\Users\Juko\Desktop\BA\Ziel2012.xls" 'Inhalte übertragen 'Laufzeit Waagen Workbooks("Quelle.xls").Range("Y98").Copy With Workbooks("Ziel2012.xls") .ReadOnly("H37").PasteSpecial Paste:=xlPasteValues End With Workbooks("Quelle.xls").Range("P98").Copy With Windows("Ziel2012.xls") .Range("K37").PasteSpecial Paste:=xlPasteValues End With End Sub

Sub Übertragen1() ' Übertragen Makro ' Öffnen Zieldatei ChDir "C:\Users\Juko\Desktop\BA" Workbooks.Open Filename:= _ "C:\Users\Juko\Desktop\BA\Ziel2012.xls" Windows("ziel2012").Activate 'Inhalte übertragen 'Laufzeit Waagen Workbooks("Quelle.xls").Sheets(1).Range("Y98").Copy Workbooks("Ziel2012.xls").Sheets("mrz").Range("H37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Windows("Quelle.xls").Activate Workbooks("Quelle.xls").Sheets(1).Range("P98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("K37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False End Sub Sub TonnageWaagen() Windows("Quelle.xls").Activate ' LöserMix Summe Range("IS98").Select ActiveCell.FormulaR1C1 = _ "=SUM(IF(RC[-251]=""stade"",0,RC[-250]),(IF(RC[-248]=""stade"",0,RC[-247])),(IF(RC[-245] _ =""stade"",0,RC[-244])))" ' LöserStade Summe Range("IT98").Select ActiveCell.FormulaR1C1 = _ "=SUM(IF(RC[-252]=""Stade"",RC[-251],0),(IF(RC[-249]=""stade"",RC[-248],0)),(IF(RC[-246] _ =""stade"",RC[-245],0)))" ' DKZMix Summe Range("IU98").Select ActiveCell.FormulaR1C1 = _ "=SUM(IF(RC[-238]=""stade"",0,RC[-237]),(IF(RC[-235]=""stade"",0,RC[-234])))" ' DKZStade Summe Range("IV98").Select ActiveCell.FormulaR1C1 = _ "=SUM(IF(RC[-239]=""stade"",RC[-238],0),(IF(RC[-236]=""stade"",RC[-235],0)))" End Sub Sub Übertragen2() 'Waagen übertrag Workbooks("Quelle.xls").Sheets(1).Range("iv98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("g37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Workbooks("Quelle.xls").Sheets(1).Range("IU98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("F37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Workbooks("Quelle.xls").Sheets(1).Range("IT98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("J37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Workbooks("Quelle.xls").Sheets(1).Range("IS98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("I37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False End Sub Sub Laugen() 'Laugedaten übertrag 'Workbooks("Ziel2012.xls).sheets(3).Range("AF37").Resize(1, 2) = _ 'Workbooks("Quelle.xls).Sheets(1).Range("BP98").Resize(1, 1).Value 'hier wollte ich 'Sub Makro3()' verwenden. Das liefert aber: Fehler beim Kompilieren, _ erwartet 'Listentrennzeichen oder ) Workbooks("Quelle.xls").Sheets(1).Range("BP98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("AF37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Workbooks("Quelle.xls").Sheets(1).Range("BQ98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("AG37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Workbooks("Quelle.xls").Sheets(1).Range("BW98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("AH37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Workbooks("Quelle.xls").Sheets(1).Range("BU98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("AI37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Workbooks("Quelle.xls").Sheets(1).Range("BX98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("AJ37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Workbooks("Quelle.xls").Sheets(1).Range("BY98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("AK37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Workbooks("Quelle.xls").Sheets(1).Range("CN98").Copy Workbooks("Ziel2012.xls").Sheets(3).Range("M37:N37").PasteSpecial _ Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False End Sub Sub LöschenTemps() Windows("Quelle.xls").Activate Range("IS98:IV98").ClearContents Range("B69").Select End Sub

Beliebteste Forumthreads (12 Monate)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread