|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Abfrage Attribute und falls gesetzt entfernen |
14.02.2022 13:30:37 |
Paul |
|
|
|
14.02.2022 15:21:55 |
Gast78637 |
|
|
|
14.02.2022 15:27:22 |
Paul |
|
|
|
14.02.2022 22:19:21 |
xlKing |
|
|
|
15.02.2022 11:15:04 |
Paul |
|
|
Von:
Paul |
Datum:
14.02.2022 13:30:37 |
Views:
809 |
Rating:
|
Antwort:
|
Thema:
Abfrage Attribute und falls gesetzt entfernen |
|
Guten Tag,
ich arbeite nun seit einer Weile an einer Excel-Datei.
Bis jetzt läuft die Datei auch.
Mein Problem momentan ist, dass ich eine Abfrage erstellen muss ob bei verschiedenen Daten zwei Attribute gesetzt sind und falls ja diese entfernen.
Bis jetzt läuft es so das ich einen Code erstellt habe, der die Attribute generell erstmal, in dem Ordner in dem die Dateien liegen, entfernt werden sollen.
Das Problem ist das Excel einfach die Attribute, wie bei einem Lichtschalter, switcht ob es aktiviert ist oder nicht und zusätzlich manchmal das Attribut "versteckt" setzt. Somit funktioniert dieser Weg nur wenn vorher schon die Attribute beide aktiviert waren.
Ich hoffe das war halbwegs verständlich.
Anbei hier der Code den ich verwende:
SuperFolder = "pfadangabe" & Seriennummer
Dim pathArch As String, f As File
pathArch = SuperFolder
If fso.FolderExists(pathArch) Then
For Each f In fso.GetFolder(pathArch).Files
f.Attributes = f.Attributes - Archive - ReadOnly
Next
Call Unterordner_archivieren_verschieben_daten
End If
Vielen Dank im Voraus für die Hilfe und Anregungen!
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Abfrage Attribute und falls gesetzt entfernen |
14.02.2022 13:30:37 |
Paul |
|
|
|
14.02.2022 15:21:55 |
Gast78637 |
|
|
|
14.02.2022 15:27:22 |
Paul |
|
|
|
14.02.2022 22:19:21 |
xlKing |
|
|
|
15.02.2022 11:15:04 |
Paul |
|
|