Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Warum funktioniert meine Schleife nicht?

Warum funktioniert meine Schleife nicht?
06.08.2018 08:57:42
Alex1860
Hallo zusammen,
Ich habe letztens versucht, per VBA Werte aus verschiedenen, gleich aufgebauten aber unterschiedlich benannten, Arbeitsmappen die sich alle im selben Ordner befinden, in ein neues Excel-File zu kopieren.
Leider passiert beim ausführen des Makros rein Garnichts.
Für Hilfe wäre ich sehr Dankbar!
Ich bin blutiger Anfänger was VBA betrifft also bitte so einfach wie möglich und nur so kompliziert wie nötig.
Hab auch schon in diversen anderen Foren nach Lösungen gesucht nur passiert, egal welches Makro ich anwende, absolut nichts :(
Wahrscheinlich steh ich einfach auf dem Schlauch.
Hier mein Code:
Sub Auslesen()

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Warum funktioniert meine Schleife nicht?
06.08.2018 08:59:29
Alex1860 

Sub Auslesen()
Dim path As String
Dim filecount As Integer
Dim Workbook As Workbook
Dim zielspalte As String
Dim mainwb As Workbook
Dim file As Variant
Set mainwb = ActiveWorkbook
path = "C:\Users\user\Documents\Programming\Alex\data\"
quellzelle = "A1"
zielspalte = "A"
filecount = 1
file = Dir(path & "*.xlsx")
Do While Len(file) > 0
Set Workbook = Application.Workbook.Open(path & file)
mainwb.Sheets(1).Range(zielspalte & filecount).Value = Workbook.Sheets(1).Range( _
quellzelle).Value
filecount = filecount + 1
Workbook.Close
file = Dir
Loop
End Sub

Anzeige
AW: Warum funktioniert meine Schleife nicht?
06.08.2018 09:22:07
Robert
Hallo Alex,
nimm Workbooks statt Workbook: 
Set Workbook = Application.Workbooks.Open(path & file)
Gruß
Robert
PS:
Wenn Du die Variablen vorher deklarierst (was man meiner Meinung nach auch tun sollte), dann aber bitte alle.
Füge also noch ein Dim quellzelle As String ein.
AW: Warum funktioniert meine Schleife nicht?
06.08.2018 09:41:43
Alex1860
Hallo Robert & Daniel,
Danke für die schnelle Antwort!
Also müsste es so Funktionieren:
Sub Auslesen()
Dim path As String
Dim filecount As Integer
Dim quelle As Workbook
Dim quellzelle As String
Dim zielspalte As String
Dim mainwb As Workbook
Dim file As Variant
Set mainwb = ActiveWorkbook
path = "C:\Users\user\Documents\Programming\Alex\data\"
quellzelle = "A1"
zielspalte = "A"
filecount = 1
file = Dir(path & "*.xlsx")
Do While Len(file) > 0
Set quelle = Application.Workbooks.Open(path & file)
mainwb.Sheets(1).Range(zielspalte & filecount).Value = quelle.Sheets(1).Range( _
quellzelle).Value
filecount = filecount + 1
quelle.Close
file = Dir
Loop
End Sub

Leider passiert wieder nichts:(
Danke euch!!
Anzeige
AW: Warum funktioniert meine Schleife nicht?
06.08.2018 09:55:18
Robert
Hallo Alex,
bei mir funktioniert es. Gibt es das Verzeichnis
C:\Users\user\Documents\Programming\Alex\data\
denn überhaupt?
Gruß
Robert
AW: Warum funktioniert meine Schleife nicht?
06.08.2018 10:04:30
daniel
Hi
der Code ist meiner Ansicht nach korrekt.
wenn nichts passiert (keine Fehlermeldung), dann liegt der Verdacht nahe, dass du einen Schreibfehler in deinem Pfad hast oder dort keine .xlsx-Datei vorhanden ist.
teste auch mal im Einzelstep-Modus.
hierzu setzt du den Cursor in den Code und drückst F8.
bei jedem Druck auf F8 wird die gelb markierte Programmzeile ausgeführt.
hierbei siehst du z.B. wie in Schleifen oder Verzweigungen gesprungen wird und du kannst den Inhalt von Variablen testen, in dem du mit dem Cursor über die Variable fährst.
nach ausführen des File = Dir(...) sollte File einen Inhalt haben.
Gruß Daniel
Anzeige
AW: Warum funktioniert meine Schleife nicht?
06.08.2018 09:22:38
daniel
Hi
naja, dass gar nichts passiert, kann ich mir nicht vorstellen. Bei mir kommt der Laufzeitfehler 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht" in der Zeile: 
Set Workbook = Application.Workbook.Open(path & file)

der Befehl heißt: Application.Workbooks.Open(...)
du hast da das "s" vergessen.
außerdem solltest du die Variablenbenennungen so wählen, dass sie sich von den VBA-Schlüsselwörtern unterscheiden ("Workbook").
sowas kann funktionieren, es muss aber nicht funktionieren, wenn an einer Stelle nicht eindeutig ist, ob die Variable oder die VBA-Funktion gelten soll.
Gruß Daniel
Anzeige
AW: Warum funktioniert meine Schleife nicht?
06.08.2018 10:00:54
Alex1860
Hallo Robert,
Mein Verzeichnis existiert.
Ich kann mir nicht erklären warum nichts passiert
LG
AW: Warum funktioniert meine Schleife nicht?
06.08.2018 10:03:39
Alex1860
Hallo Robert,
Mein Verzeichnis existiert.
Ich kann mir nicht erklären warum nichts passiert
LG

303 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
SVERWEIS geht nicht
gio

Hallo Profis,
brauche Eure Hilfe.
Ich erstelle mir in einer Zelle über eine Formel eine 3stellige Zahl oder Buchstabenkombination.
=(LINKS(A1;3)) ergibt z.B. 123 oder abc
Das passt soweit.
Über Sverweis suche ich mir dann zu 123 oder abc dazugehörige Daten.
Das funzt nic...
29.10.2008 09:54:21
Thread-ID: 1020154
5 Beiträge
Anzeige
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
SVERWEIS geht nicht
Schmidt

Guten Tag
In der Tabelle komm ich mit der Funktion SVERWEIS nicht weiter.
Würde mir bitte jemand helfen.
Danke im Voraus
https://www.herber.de/bbs/user/56652.xls
10.11.2008 15:44:06
Thread-ID: 1023236
7 Beiträge
Filtern, Sverweis geht wohl nicht?
Angela

Hallo,
Habe im Tab 1 eine sehr lange Liste, ca von B5:C5000.
Nun möcht ich gern auf Tab 2 eine neue Liste erstellen, ausgehend von Tab 1 B5:B5000 über Combobox oder anders eben.
Es soll auf Tab 2 durch selektion Daten ausgewählt werden und in Tab2 geschrieben werden.
Angenommen...
17.01.2009 21:29:04
Thread-ID: 1041000
25 Beiträge
Warum funktioniert das Verknüpfen nicht ?
TomTom


Hallo,
also, ich möchte per Makro eine andere Datei in mein Excel Sheet als Symbol einbinden. Also das Gleiche, was man über EINFÜGEN / OBJEKT / AUS DATEI ERSTELLEN (als Symbol) macht :
Dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
If D...
01.02.2009 22:58:20
Thread-ID: 1046037
3 Beiträge
warum funktioniert dieses makro nicht?
Emil

Hallo zusammen
Also, ich möchte, wenn der Togglebutton betätigt wird, dass alle Sheets welche mit Tag* beginnen, eingeblendet werden. Wenn ich ihn nochmals drücke, dann sollen alle ausgeblendet werden. Ist ganz einfach, aber ich kriegs irgendwie nicht hin..Hier mein bisheriges Makro:
...
03.04.2009 13:45:04
Thread-ID: 1066669
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
6
4
4
4
6
24
2
8
2
1
2
5
3
4
12
1
16
3
3
2
2
2
5