Dateien auswerten

Hallo Tino Hallo Tino
Das Thema im 'Betreff' war ja eigentlich erledigt bzw. durch Deine Hilfe waren die Probleme gelöst und meine Anwendung funktionierte.
Die Dateien der User wurden schön der Reihe nach bereit gestellt und standen für die weitere Verarbeitung bereit. Dein zusätzlicher Hyperlink habe ich immer noch - wie in der nochmals beigefügten Datei ersichtlich - ruhig gestellt und rufe die Dateien über die ComboBox auf.
Bei der Arbeit kam ich auf die Idee auch den nachträglichen Ablauf zu automatisieren. Also habe ich mir für diese Arbeit ein zusätzliches Makro geschrieben - funktioniert auch ....... ABER
Ja es gibt wieder ein ABER!
Nämlich - ich finde keine Möglichkeit die gesamte Anwendung nach dem Durchlauf des auch Dir bekannten Codes fortzusetzen. Die Anwendung ist gestoppt. Ist OK so - weil es so auch korrekt ist. Die vorhandenen Dateien werden angezeigt und können auf Wunsch gestartet werden. Sobald ich den ersten Namen in der Combobox anklicke wird diese Datei geladen und steht nun da im Vordergrund.
Ich könnte neben der CboBox einen 'Start'-Knopf installieren und die weitere Bearbeitung über mein neues Makro laufen lassen. Oder hast Du eine bessere Idee?
Ich vertraue auf Deine tägliche Erfahrung.
Frdl. Grüsse Ernst
https://www.herber.de/bbs/user/55769.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CboDatei_Change() Dim meFullName As String If Cbodatei.ListIndex = -1 Then Exit Sub meFullName = strSuchPfad & Cbodatei.Value Workbooks.Open meFullName 'Hier kommt die abfrage ob Dein zusätzlichen Makro gestartet werden soll If MsgBox("Wollen Sie die geöffnete Datei nun Aufbereiten?", vbYesNo, "Aufbereiten?") = vbYes Then Call MeinMakro End If End Sub

Hi Tino
Ich wollte die Datei sofort mitschicken und hatte es prompt vergessen. Dann habe ich gedacht einfach ein neues Thema zu bringen in der Hoffnung, dass der 'Tino' es auch liest. Ich hatte Glück und Du hast es gelesen - und das finde ich richtig Klasse.
Inzwischen habe ich bemerkt, dass ich Oberschlauberger in meinem 'Bearbeitungs'-Makro die Dateien mit dem zufälligen Namen des Monats September 2008 aufgerufen habe. Die Dateien haben alle fast den gleichen Namen d.h. zum Beispiel: 'Claus_Sep_2008.xls' oder 'Koch_Sep_2008.xls' usw.
Und was mache ich im Oktober oder November? Da müsste ich - nein ich muss in jedem Monat die Chance haben den Namen des Monats und im nächsten Jahr auch die Jahreszahl ändern zu können. Aber wie ich das machen soll ist mir noch ein Rätsel. Vielleicht hast Du eine Idee.
Dann muss ich auch noch berücksichtigen, dass die Dateien in jedem Monat unterschiedlich groß sind. Also kann ich nicht mit festen Adressen - so wie ich das jetzt für den September gemacht habe - arbeiten.
Heute ist die Datei des ersten Users bei der Zeile 'B38' zu Ende, so dass die nächste Datei in der Zeile 'B39' beginnen kann. Aber da kann ich doch z.B. mit 'Selection.end(xlDown)' o.ä. arbeiten - oder?
Aber ich habe noch eine Sache wo ich mit dem Code, den Du mir heute geschickt hast, mit einem Laufzeitfehler '424' - Objekt erforderlich auf der Prg.Zeile ' If Cbodatei.ListIndex = -1 Then' hängen bleibe.
Warum - weiß ich nicht. Ich habe allerdings den Code, der in dem Arb.Blatt 'Tabelle 1' steht, still gelegt, weil ich ja den neuen Code erhalten und in ein 'Modul3' kopiert habe. Welches Objekt sucht das Prg. an dieser Stelle?
Ich hoffe, dass Du mit diesem Durcheinander klar kommst.
Frdl. Grüsse Ernst

Private Sub CboDatei_Change()
Dim meFullName As String
If Cbodatei.ListIndex = -1 Then Exit Sub
meFullName = strSuchPfad & Cbodatei.Value
Workbooks.Open meFullName
'Hier kommt die abfrage ob Dein zusätzlichen Makro gestartet werden soll
If MsgBox("Wollen Sie die geöffnete Datei nun Aufbereiten?", vbYesNo, "Aufbereiten?") = vbYes Then
Call Makro3
End If
End Sub

'öffnen der Datei Private Sub CboDatei_Change() Dim meFullName As String If Cbodatei.ListIndex = -1 Then Exit Sub meFullName = strSuchPfad & Cbodatei.Value Workbooks.Open meFullName Call Datentransfer(wksDaten:=ActiveWorkbook.Worksheets("XYZ"), _ wksZiel:=ThisWorkbook.Worksheets("ABC")) End Sub Sub Datentransfer(wksDaten As Worksheet, wksZiel As Worksheet) 'Prozedur um Daten der Daten-Tabelle in die Zieltabelle zu übertragen End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien auswerten

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread