Daten aus 400 XLS Files in eine Tabelle integrieren

[WillWissen]

Hi,

In den VBA-Editor kommst du mit ALT-F11 am schnellsten. Einfach den relevanten Teil des Makros überschreiben und abspeichern. Um dir nichts zu "zerschießen", rate ich, das Ganze in einer Kopie zu machen.

Ein anderer Weg in den Editor zu gelangen ist, wenn du auf den Tabellenreiter gehst und mit Rechtsklick dort "Code anzeigen" anklickst.

[sowulo1337]

Geht leider nicht :(

[WillWissen]

Hi Simon,

ich konnte deine Fehlermeldung nachvollziehen, bin aber nach meinem Wissensstand leider nicht in der Lage dir fachlich zu helfen. Das muss in dem Fall André oder einer der anderen VBA-Spezialisten machen.

@VBA-ler

Der Code stoppt hier:

[
Bild bitte so als Datei hochladen: Klick mich!
]

[atilla]

Hallo zusammen,

die besagte Zeile so:

Workbooks.Open strPath & strFile

[WillWissen]

Hi Atilla,



Allerdings flackert mir der Bildschrim zu sehr.

@ Simon

Deshalb mein Tipp an dich, falls dich das auch stört:

Sub HolMirWas()
    'Bildschirmaktualisierung (Flackern) ausschalten
    Application.ScreenUpdating = False
        'Variablendeklarationen
        'String
        Dim strPath$, strFile$
        'Long
        Dim iRows&

       [...]
       
'Ende Schleife, solange eine Datei gefunden wird
        Loop
    'Bildschirmaktualisierung (Flackern) einschalten
    Application.ScreenUpdating = True
End Sub

 
Füge die farbigen Codeschnipsel ein.

[sowulo1337]

Wunderbar das hat mir etliche Arbeitsstunden gespart, ich danke ganz Herzlich ist ein Super Forum!

[schauan]

Hallöchen

das war auch gleich noch eine Lehrstunde für das Arbeitsverzeichnis von Excel. Wenn man zufälligerweise gerade in dem Verzeichnis mit Excel was gemacht hat, ist unter Umständen das Verzeichnis "intern" vorgemerkt, sodass beim Test mit dem entsprechenden Verzeichnis die fehlende Angabe nicht relevant ist bzw. nicht auffällt.