Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo,
vielleicht so?
Code:
Sub Auto7518()
'
' Auto7518 Makro
'
Static bolSchonGestartet As Boolean
Dim vntAbfrage As Variant
If bolSchonGestartet Then vntAbfrage = MsgBox("Wollen Sie das Programm ein zweites Mal starten?", vbYesNo, "Abfrage")
If vntAbfrage = vbNo Then Exit Sub
With Sheets("7518")
.Visible = True
.Range("A2:A233").ClearContents
.Range("A2").PasteSpecial xlPasteAll
If MsgBox("Anpassungen notwendig?", vbYesNo + vbQuestion) = vbYes Then
Unload UserForm2
.Activate
Range("A35").Select
Exit Sub
End If
Sheets("Termineingabe").Activate
.Visible = False
End With
bolSchonGestartet = True
End Sub
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 06.03.2017
Version(en): 2007
Hallo, herzlichen Dank Funktioniert.
Registriert seit: 06.03.2017
Version(en): 2007
Aber eine frage hätte ich da noch.
Ist es sehr schwierig einen Text in der Windowszwischenablage nach Textbausteinen zu durchsuchen, und dann je nach den Suchergebniss das Macro zu steuern?
Hintergrund: Ich habe ja jetzt 10 Macros die vom Prinzip das selbe machen, aber jeweils mit einem anderen Tabellenblatt als Ziel.
Schöner wäre natürlich, wenn das macro den Inhalt erkennt und dann selbsttätig das richte Zielblatt auswählt.
Sollte das natürlich kompliziert sein, lasse ich das so wie es ist.
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 06.03.2017
Version(en): 2007
Hallo,
das wäre ja dann der erste Schritt, die Frage wäre dann wie man den Inhalt ausliest und zuordnet.
Aber wie gesagt, diesen Schritt gehe ich nur wenn es nicht zu aufwendig wird.
Registriert seit: 11.04.2014
Version(en): Office 2007
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
Zitat:die Frage wäre dann wie man den Inhalt ausliest
Eigentlich sieht es so aus, als ob das Makro das tut.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 06.03.2017
Version(en): 2007
Hallo,
entweder ich verstehe die Funktion der angegeben Codes nicht oder ich habe mich zu ungenau ausgedrückt. Aber
Das Macro müßte folgendes tun:
1. sich den text aus der Zwischenablage holen, im idealfall sogar prüfen ob der Inhalt der Zwischenablage zur Aufgabenstellung passt.
2. in einem bestimmten Bereich des Textes nach einer Bestimmten Zahl suchen zb 5678
3. je nach forliegenden treffer den text in ein bestimmtes tabellenblatt "5678" speichern
zum aktuellen Fall könnten das 10 Variationen an möglichen Treffern sein.
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
Die Funktion HoleTextAusZwischenablage gibt Dir den Text zurück. Damit wäre 1. erfüllt. Du kannst ja mal einem Text posten und dann schauen wir nach 2. und 3. Eventuell beschreibst Du 2. noch genauer.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 06.03.2017
Version(en): 2007
18.06.2017, 13:16
(Dieser Beitrag wurde zuletzt bearbeitet: 18.06.2017, 13:18 von M.Wichmann.)
Beispiel des textes aus der externen Datei:
Code:
Lieferabruf nach VDA-Norm 4905 Datum 07.06.2017
Uhrzeit 08:15 ID-Nummer: 69803 Seite 1
+-------------------------------------------------------------------------+
¦Kunden-Nummer/Name : xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ¦
¦Werk-Kunde : 030 ¦
¦Sachnummer Kunde : xxxxxxxxxxx ¦
¦Sachnummer Lieferant : 9063 ¦
¦Lieferabruf-Nummer : xxxxxxxxx Abrf.Nr. alt: ¦
¦Lieferabruf-Datum : 04.06.2017 ¦
+-------------------------------------------------------------------------¦
¦Artikel-Nummer : ¦
¦Artikelbezeichnung-1 : ¦
¦Artikelbezeichnung-2 : ¦
¦Artikelbezeichnung-3 : ¦
+-------------------------------------------------------------------------¦
¦Abschluß-/Bestell-Nr.: xxxxxxx Abladestelle : xxxxx ¦
¦Zeichen des Kunden : 448 Mengeneinheit : ¦
¦Anlieferungsintervall: Gemäß Abrufdatum Fertigungsfreigabe: 1 ¦
¦Verwendung : Serie Materialfreigabe : 0 ¦
¦Kontierungs-Schlüssel: F ¦
¦ ¦
+---------------------- Letzter Eingang ----------------------------------¦
¦Lieferschein-Nummer : xxxxxxxx Lieferschein-Menge: xxxx¦
¦Lieferschein-Datum : xxxxxxxxxx DFÜ-Fortschrittsz.: xxxxx¦
+---------------------- Packmittel ---------------------------------------¦
¦Sachnummer Kunde : ¦
¦Sachnummer Lieferant : ¦
¦Fassungsvermögen : 0 ¦
+-------------------------------------------------------------------------¦
¦ N e u e A b r u f t e r m i n e ¦
+-------------------------------------------------------------------------¦
¦Abruf-Termin¦ Abruf-Menge ¦ Abruf-Art ¦ Bestell-Nummer ¦Übertrag ¦
+------------+-------------+--------------+---------------------+---------¦
¦ 06.06.2017 ¦ 1.173 ¦ Sofortbedarf ¦ ¦ 1.173¦
¦ 12.06.2017 ¦ 240 ¦ Terminabruf ¦ ¦ 1.413¦
¦ 19.06.2017 ¦ 120 ¦ Terminabruf ¦ ¦ 1.533¦
¦ 26.06.2017 ¦ 240 ¦ Terminabruf ¦ ¦ 1.773¦
¦ 03.07.2017 ¦ 360 ¦ Terminabruf ¦ ¦ 2.133¦
¦ 10.07.2017 ¦ 240 ¦ Terminabruf ¦ ¦ 2.373¦
¦ 17.07.2017 ¦ 240 ¦ Terminabruf ¦ ¦ 2.613¦
¦ KW 33/2017 ¦ 360 ¦ Terminabruf ¦ ¦ 2.973¦
¦ KW 34/2017 ¦ 240 ¦ Terminabruf ¦ ¦ 3.213¦
¦ KW 35/2017 ¦ 360 ¦ Terminabruf ¦ ¦ 3.573¦
¦ KW 36/2017 ¦ 240 ¦ Terminabruf ¦ ¦ 3.813¦
¦ KW 37/2017 ¦ 240 ¦ Terminabruf ¦ ¦ 4.053¦
¦ KW 38/2017 ¦ 240 ¦ Terminabruf ¦ ¦ 4.293¦
¦ KW 39/2017 ¦ 240 ¦ Terminabruf ¦ ¦ 4.533¦
¦ KW 40/2017 ¦ 120 ¦ Terminabruf ¦ ¦ 4.653¦
¦ KW 41/2017 ¦ 240 ¦ Terminabruf ¦ ¦ 4.893¦
¦ KW 42/2017 ¦ 120 ¦ Terminabruf ¦ ¦ 5.013¦
¦ KW 46/2017 ¦ 240 ¦ Terminabruf ¦ ¦ 5.253¦
¦ KW 47/2017 ¦ 240 ¦ Terminabruf ¦ ¦ 5.493¦
¦ KW 49/2017 ¦ 240 ¦ Terminabruf ¦ ¦ 5.733¦
¦ KW 50/2017 ¦ 240 ¦ Terminabruf ¦ ¦ 5.973¦
¦ KW 51/2017 ¦ 240 ¦ Terminabruf ¦ ¦ 6.213¦
¦ 01.01.2018 ¦ 960 ¦ Terminabruf ¦ ¦ 7.173¦
¦ 01.02.2018 ¦ 1.080 ¦ Terminabruf ¦ ¦ 8.253¦
¦ 01.03.2018 ¦ 960 ¦ Terminabruf ¦ ¦ 9.213¦
¦ 01.04.2018 ¦ 960 ¦ Terminabruf ¦ ¦ 10.173¦
¦ 01.05.2018 ¦ 840 ¦ Terminabruf ¦ ¦ 11.013¦
¦ 01.06.2018 ¦ 960 ¦ Terminabruf ¦ ¦ 11.973¦
¦ 01.07.2018 ¦ 600 ¦ Terminabruf ¦ ¦ 12.573¦
¦ 01.08.2018 ¦ 480 ¦ Terminabruf ¦ ¦ 13.053¦
¦ 01.09.2018 ¦ 742 ¦ Terminabruf ¦ ¦ 13.795¦
+------------+-------------+----------------------------------------------+
¦Summe Bedarf¦ 13.795 ¦
¦Überliefert ¦ 0 ¦
+------------+-------------¦
¦Neuer Bedarf¦ 13.795 ¦
+--------------------------+
_x000C__x001A_
Das wird als Text in Spalte A eingefügt.(Ab A2)
Gesucht werden müßte in diesem Fall nach dem 9063 in der Reihe Sachnummer Lieferant(wenn es in Excel gespeichert wurde ist das in Zelle A8), und dann diesen Text in Sheet 9063 gepeichert werden um die Daten zu verarbeiten.
Alternativ könnte auch nur der eigentlich relevante Datenbereich also die Stückzahl passend in einer Terminübersicht eingetragen werden.
