Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Werte aus einer Datei in Andere nach Datum


Betrifft: Werte aus einer Datei in Andere nach Datum von: Stefan
Geschrieben am: 13.09.2017 13:12:21

Hallo,

ich stehe vor einer für mich unlösbaren Aufgabe. Ich habe eine Excel Datei in der Werte errechnet werden. Diese möchte ich in eine andere Datei auf Knopfdruck kopieren. Nach Drücken des Knopfes soll eine Abfrage kommen an welchem Datum der Wert eingetragen werden soll. Jetz soll das Script sich den Tag im Monat von 1-31 durchnummeriert aus einer Spalte heraussuchen und den Wert in der Zeile eintragen. mehrere Werte sind möglich, diese sollen in der Zeile dann an nächster Stelle eingetragen werden.

Ich hab mal ein Bild zum besseren Verständnis angehängt


Ich schreib nochmal eine kleine Abfolge, ist etwas schwer zu erklären.

Button drücken, Fenster öffnet sich wo ein Datum eingetragen wird, Wert aus Datei A kopieren, Datei B öffnen, aus einer Spalte das selbe Datum Suchen und in der Zeile Wo das Datum steht eine Zelle Weiter in der Zeile Wert eintragen, Wenn Zelle belegt, nächste Zelle in Zeile benutzen.

Wenn Fragen sind Antworte ich schnellstmöglich.

Vielen Vielen Dank schon mal im Vorraus, ich hab schonwieder graue Haare bekommen

  

Betrifft: AW: Bsp-Datei von: Fennek
Geschrieben am: 13.09.2017 14:07:44

Hallo,

bei allen Ansätzen mit einem Datum ist es ohne Bsp-Datei kaum möglich einen Code zu schreiben.

mfg


  

Betrifft: AW: Bsp-Datei von: Stefan
Geschrieben am: 13.09.2017 15:38:00

So richtig kann ich keine Beispieldatei liefern, Zum Datum kann ich sagen, Es müsste eine Abfrage aufpoppen "Datum Eingeben" und dieses Datum müsste dann in Datei B in der Spalte gesucht werden, in der gleichen Zeile, eine Zelle rechts daneben wird der Wert geschrieben, wenn die Zelle beschrieben ist dann die nächste Zelle in der Zeile


  

Betrifft: AW: Bsp-Datei von: Fennek
Geschrieben am: 13.09.2017 16:16:29

Hallo,

na dann auch so, anpassen musst du es dann selbst.

https://www.herber.de/bbs/user/116221.xlsm

mfg


  

Betrifft: AW: Bsp-Datei von: Stefan
Geschrieben am: 14.09.2017 14:17:35

Hallo Fennek,

ich habs angepasst bleib aber an einer Stelle hängen.
Das Script erwartet das ich innerhalb einer Datei kopiere. das ist aber nicht der Fall.
Ich will die Zahl aus Datei XY im Ordner XY kopieren und in Datei XX im Ordner XX einfügen.

Dim Datum As Date
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
Range("D19").Select
D_inp = InputBox("Datum, im September 2017")
Datum = CDate(D_inp)
Debug.Print Datum, CDbl(Datum)
Workbooks.Open Filename:="I:\LABOR\Qualitätssicherung-Kontrollproben\Kontrollkarten\Futter\iCAP\ _
Kontrollkarte-Futter-iCAP.xlsm"
With Sheets("Ca-KP1")
Sheets("Ca-KP1").Select
ActiveSheet.Unprotect ("xxxxx")
r = WSF.Match(CDbl(Datum), Sheets("Ca-KP1").Columns(3), 0)
Debug.Print r

.Cells(r, 4) = ActiveCell.Value
.Cells(r, 5) = ActiveCell.Offset(2).Value
.Cells(r, 6) = ActiveCell.Offset(4).Value
.Cells(r, 7) = ActiveCell.Offset(6).Value
.Cells(r, 8) = ActiveCell.Offset(8).Value

ActiveSheet.Protect ("xxxxx")
ActiveWorkbook.Save
ActiveWorkbook.Close True
End With
End Sub
An der Fett markierten Stelle müsste das genauer stehen "aus Datei so und so holen und in Datei an folgende Stelle schreiben"

Ansonsten funktionierts


  

Betrifft: AW: war so gewollt von: Fennek
Geschrieben am: 14.09.2017 17:23:39

Hallo,

es ist für mich einfacher, in ein anderes Blatt im selben Workbook zu schreiben. Du braucht nur die Referenz zu ändern.

mfg


  

Betrifft: AW: war so gewollt von: Stefan
Geschrieben am: 15.09.2017 07:25:36

Moin Moin, ich seh nich durch ;) "schwitz"

die zu kopierenden Werte liegen in der Datei: iCAP_F_KPA_MW.xls, Tabellenblatt "Kontr" in dieser Datei wird auch das Makro über Knopfdruck ausgelöst.

Die Datei in der die Werte reingeschrieben werden heißt: Kontrollkarte-Futter-iCAP.xlsm Tabellenblatt Ca-KP1

Kannst du nochmal helfen?


  

Betrifft: AW: nein, keine Lust von: Fennek
Geschrieben am: 15.09.2017 09:15:41

Hallo,

das andere Workbook muss zuerst geöffnet werden:

set WB = workbooks.open(Pfad & DateiName)

Die Referenzierung ist

WB.sheets("Name").Range("A1")

Das ist elementar, solltest du lernen.

mfg


Beiträge aus den Excel-Beispielen zum Thema "Werte aus einer Datei in Andere nach Datum"