Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

ID`s/Werte aus Spalte(n) gegen txt/html Dateien matchen
#11
Hola!

Habe den Fehler behoben, einen Button einfügt und das Makro zugewiesen, aber es kommt immer noch:

"Fehler beim Kompilieren: Sub oder Function nicht definiert"

Gruss

Peter
Antworten Top
#12
Hallöchen,

kommt das auch bei der Datei:


Angehängte Dateien
.xlsm   CF_TextFileKomplettEinlesen_LOF_TextErsetzen.xlsm (Größe: 20,61 KB / Downloads: 4)
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#13
Es kommt die Meldung

Fehler beim Kompilieren:
Variable nicht definiert

und folgendes wird gelb markiert:

Public Sub FileWriteAll(ByVal strFile As String, ByVal strTxt As String)
Antworten Top
#14
Hallöchen,

da hab ich in einer Zeile meine Integer-Variable nicht richtig verwendet

Ersetze
Open strFile For Output As #F
Durch
Open strFile For Output As #iFi
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • PeterN
Antworten Top
#15
Super!!!

Der erste, kurze Test hat schon mal funktioniert.

Hast Du eventuell eine Lösung um die Dateinamen nach diesem Muster zu ersetzen?

Also C:\Users\Admin\Desktop\Folder\file1.html in A1 durch file999 in B1 usw.?

Danke & Gruss

Peter
Antworten Top
#16
Hallo Peter,

wenn das in einer weiteren Spalte passieren kann, dann per Formel mit WECHSELN

Arbeitsblatt mit dem Namen 'Tabelle1'
ABCDE
1C:\Users\Admin\Desktop\Folder\file1.htmlvolle1qzDAR7yqLondonC:\Users\Admin\Desktop\Folder\volle1.html

ZelleFormel
E1=WECHSELN(A1;TEIL(A1;FINDEN("file";A1;1);100);B1&".html")
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#17
Entschuldige meine schlecht formulierte Frage.

Ich meinte nicht den Dateinamen in der Excelliste verändern, sondern die Dateinamen direkt auf dem Rechner, wie bei dem vorherigen Script auch.

Nur eben nicht im Inhalt, sondern im Dateinamen:

C:\Users\Admin\Desktop\Folder\qzDAR7yq.html           qzDAR7yq            qzkuhz60
C:\Users\Admin\Desktop\Folder\VcHnwDqG.html           VcHnwDqG          nhGT5rT5
C:\Users\Admin\Desktop\Folder\TTCppCul.html             TTCppCul             DrP0GKGw
usw.
Antworten Top
#18
Hallöchen,

ja, so was geht auch. Sollen die mit dem Namen aus Spalte B oder der ID aus Spalte C ersetzt werden oder gibt es da weitere Spalten?

Das
C:\Users\Admin\Desktop\Folder\qzDAR7yq.html qzDAR7yq qzkuhz60

sieht ja anders aus als das
C:\Users\Admin\Desktop\Folder\file1.html file1 yW3yMAD0 Greater London
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • PeterN
Antworten Top
#19
Hola!

Hatte es anders bezeichnet, um es klar von dem anderen Script abzugrenzen.

Die Struktur ist natürlich identisch, nur das wir hierbei mit drei Spalten auskommen.

Vorher:

C:\Users\Admin\Desktop\Folder\file1.html           file1            yW3yMAD0

Nachher:

C:\Users\Admin\Desktop\Folder\yW3yMAD0.html

oder

Vorher:

C:\Users\Admin\Desktop\Folder\yW3yMAD0.html           yW3yMAD0           yxyuT6D0

Nachher:

C:\Users\Admin\Desktop\Folder\yxyuT6D0.html

P.S. Kannst Du mir das bitte wieder als "fertige" Datei schicken, mit Schaltfläche zum starten?

Danke
Antworten Top
#20
HI Peter,

wir müssten aber auch mal schauen, dass Du irgendwann einen Code und eine Schaltfläche selber einbauen kannst Smile Ist jetzt auch wieder ungetestet Sad


Angehängte Dateien
.xlsm   CF_Renema_Files.xlsm (Größe: 16,21 KB / Downloads: 5)
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • PeterN
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste