Registriert seit: 08.11.2018
Version(en): 2007
21.02.2019, 22:02
(Dieser Beitrag wurde zuletzt bearbeitet: 21.02.2019, 22:03 von PeterN.)
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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
kommt das auch bei der Datei:
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 08.11.2018
Version(en): 2007
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)
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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:1 Nutzer sagt Danke an schauan für diesen Beitrag 28
• PeterN
Registriert seit: 08.11.2018
Version(en): 2007
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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallo Peter,
wenn das in einer weiteren Spalte passieren kann, dann per Formel mit WECHSELN
Arbeitsblatt mit dem Namen 'Tabelle1' |
| A | B | C | D | E |
1 | C:\Users\Admin\Desktop\Folder\file1.html | volle1 | qzDAR7yq | London | C:\Users\Admin\Desktop\Folder\volle1.html |
Zelle | Formel |
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)
Registriert seit: 08.11.2018
Version(en): 2007
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.
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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:1 Nutzer sagt Danke an schauan für diesen Beitrag 28
• PeterN
Registriert seit: 08.11.2018
Version(en): 2007
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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
HI Peter,
wir müssten aber auch mal schauen, dass Du irgendwann einen Code und eine Schaltfläche selber einbauen kannst

Ist jetzt auch wieder ungetestet
. \\\|/// 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:1 Nutzer sagt Danke an schauan für diesen Beitrag 28
• PeterN