Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1816to1820
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
Inhaltsverzeichnis

VBA Daten einlesen: Makro mit Prolemen

VBA Daten einlesen: Makro mit Prolemen
26.02.2021 16:16:22
Peter
Liebe Fan-Gemeinde,
ich habe ein kleines Test-Programm geschrieben. Mit diesem Programm kopiere ich eine oder mehrere Datei(en) und fasse sie in einer Sammeldatei zusammen.
Das funktioniert soweit gut, aber dennoch gibt es ein kleines Problem.
In der anhängenden Datei habe ich auf der Startseite das Problem genauer erklärt. Ich würde mich freuen, wenn ich da ein klein wenig Unterstützung bekommen kann.
Gruß aus dem hohen Norden
Peter
https://www.herber.de/bbs/user/144269.zip

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Daten einlesen: Makro mit Prolemen
26.02.2021 18:05:16
fcs
Hallo Peter,
du hast vergessen die Datei mit dem Makro mit in die ZIP-Datei zupacken.
Lade sie bitte noch hoch.
Gruß aus dem Nordwesten Bayerns.
Franz

AW: VBA Daten einlesen: Makro mit Prolemen
26.02.2021 18:23:39
Peter
Hallo Franz,
da ist wohl was schief gelaufen. Die ursprüngliche Zip-Datei war zu groß, ich habe einiges drin löschen müssen. Aber jetzt ist das Programm auch drin.
Dank für die Info!
Gruß, Peter
https://www.herber.de/bbs/user/144280.zip

AW: VBA Daten einlesen: Makro mit Prolemen
28.02.2021 12:59:45
Peter
Hallo Franz,
anscheinend habe ich eine Lösung gefunden: Ich habe im entsprechenden Ordner eine Text-Datei (A-Text.txt) erstellt und umbenannt in .xlsx. Diese Datei ist somit total leer, steht aber an oberster Stelle im Ordner.
Und jetzt funktioniert es, ich hoffe, es bleibt so ;-)
Zusätzlich habe ich einen Teil im Makro geändert, s.u.
Vielen Dank für Dein Interesse
Peter

Do While LS_Datei  ""
LS_Datei = Dir()
LS = Left(LS_Datei, 21)
If LS = M16 Then
S = S + 1
Workbooks.Open Pfad & LS_Datei
GoSub Zuweisung
If S = 1 Then
Bereich = "A1:C4"
QBL.Range(Bereich).Copy ZBL.Range(Bereich)
ZBL.Range("A1") = 6
End If
Q = QBL.Range("A1")
Z = ZBL.Range("A1")
Q_Bereich = "B6:C" & Q
Z_Bereich = "B" & Z & ":C" & Z
QBL.Range(Q_Bereich).Copy ZBL.Range(Z_Bereich)
ZBL.Range("A1") = ZBL.Cells(Rows.Count, 2).End(xlUp).Row + 2
Workbooks(3).Close False
ZBL.Range("E1") = S
End If
Loop

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige