Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1764to1768
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
1764to1768
1764to1768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren der Datei mit Änderung von Attr

Kopieren der Datei mit Änderung von Attr
11.06.2020 23:11:16
Attr
Hallo Leute,
ich habe von der aktiver Zelle die Datei (C:\Lokal\Sergej\ID-Nummer.MA per CMD an 20 Standorte kopiert. Die Attribute der Zieldatei habe ich vor und nach dem Kopiervorgang geändert. Die Dateiattribute zu ändern dauert länger als die Datei zu kopieren. Lässt sich bitte der untere Code grundsätzlich per VBA vereinfachen/optimieren? 
Sub START_MAKROS()
Dim strFile As String
strFile = Environ("Temp") & "\" & Format(Now, "YYYY-MM-DD_HH_MM_SS") & "_copy.cmd"
Open strFile For Output As #1
Print #1, "color  17"
Print #1, "chcp 65001"
Print #1, "cls"
Print #1, "attrib -r -s -h /S /D "; """"; "P:\Daten\DE-WUP01\Einstellungen\Nova\ _
Standards\makros\" & ActiveCell.Offset(0, 1); """"
Print #1, "attrib -r -s -h /S /D "; """"; "P:\Daten\DE-KAM16\Einstellungen\Nova\ _
Standards\makros\" & ActiveCell.Offset(0, 1); """"
Print #1, "attrib -r -s -h /S /D "; """"; "P:\Daten\DE-TES04\Einstellungen\Nova\ _
Standards\makros\" & ActiveCell.Offset(0, 1); """"
'usw.
Print #1, "xcopy "; """"; ActiveCell; """"; " "; """"; "P:\Daten\DE-WUP01\Einstellungen\ _
Nova\Standards\makros\"; """"; " /Y"
Print #1, "xcopy "; """"; ActiveCell; """"; " "; """"; "P:\Daten\DE-KAM16\Einstellungen\ _
Nova\Standards\makros\"; """"; " /Y"
Print #1, "xcopy "; """"; ActiveCell; """"; " "; """"; "P:\Daten\DE-TES04\Einstellungen\ _
Nova\Standards\makros\"; """"; " /Y"
'usw.
Print #1, "attrib +r +s +h /S /D "; """"; "P:\Daten\DE-WUP01\Einstellungen\Nova\ _
Standards\makros\" & ActiveCell.Offset(0, 1); """"
Print #1, "attrib +r +s +h /S /D "; """"; "P:\Daten\DE-KAM16\Einstellungen\Nova\ _
Standards\makros\" & ActiveCell.Offset(0, 1); """"
Print #1, "attrib +r +s +h /S /D "; """"; "P:\Daten\DE-TES04\Einstellungen\Nova\ _
Standards\makros\" & ActiveCell.Offset(0, 1); """"
'usw.
Close #1
End Sub
Beste Grüße,
Sergej

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren der Datei mit Änderung von Attr
12.06.2020 16:49:22
Attr
Hallo Sergej,
das Makro zum Erstellen der cmd-Datei (Textdatei) könnte man auch in die folgende Form bringen.
Das wird aber nichts daran ändern wie lange die Ausführung der Datei daurt, um die Dateien zu kopieren und die Dateiattribute anzupassen.
LG
Franz 
Sub START_MAKROS()
Dim strFile As String
Dim strZelle As String, strZelleOffset As String
Dim arrO() As String, iO
Dim strpfad As String
strZelle = ActiveCell.Text
strZelleOffset = ActiveCell.Offset(0, 1).Text
ReDim arrO(1 To 3) '3 entsprechend der ANzahl der Ordner anpassen
iO = 0
iO = iO + 1: arrO(iO) = "DE-WUP01"
iO = iO + 1: arrO(iO) = "DE-KAM16"
iO = iO + 1: arrO(iO) = "DE-TES04"
'usw.
strFile = Environ("Temp") & "\" & Format(Now, "YYYY-MM-DD_HH_MM_SS") & "_copy.cmd"
Open strFile For Output As #1
Print #1, "color  17"
Print #1, "chcp 65001"
Print #1, "cls"
For iO = 1 To UBound(arrO)
strpfad = "P:\Daten\" & arrO(iO) & "\Einstellungen\Nova\Standards\makros\"
Print #1, "attrib -r -s -h /S /D "; """"; strpfad & strZelleOffset; """"
Print #1, "xcopy "; """"; strZelle; """"; " "; """"; strpfad; """"; " /Y"
Print #1, "attrib +r +s +h /S /D "; """"; strpfad & strZelleOffset; """"
Next
Close #1
End Sub

Anzeige
AW: Kopieren der Datei mit Änderung von Attr
13.06.2020 09:39:38
Attr
Einen wunderschönen guten Morgen Franz,
dein Code gefällt mir sehr gut (übersichtlich).
Wie kann ich bitte beim Ausführen des Makros, abfragen, ob alle Standorte (iO) abgearbeitet werden sollen oder nur ein Standort den man auswählt oder in einem Inputbox oder ähnliches eintippt (Bsp. DE-KAM16).
Beste Grüße,
Sergej
AW: Kopieren der Datei mit Änderung von Attr
13.06.2020 10:53:28
Attr
Hallo Sergej,
ich hab dir mal 2 Varianten für die Standort-Auswahl erstellt.
Variante 1: eingegeben wird der Name
Variante 2: Auswahl über eine Nummer in der Liste der angezeigten Standorte. Diese funktioniert bis ca. 40 Standorte
LG
Franz 

Sub START_MAKROS_Variante_1()
Dim strFile As String
Dim strZelle As String, strZelleOffset As String
Dim arrO() As String, iO
Dim strpfad As String
Dim varAuswahl
strZelle = ActiveCell.Text
strZelleOffset = ActiveCell.Offset(0, 1).Text
ReDim arrO(1 To 3) '3 entsprechend der ANzahl der Ordner anpassen
iO = 0
iO = iO + 1: arrO(iO) = "DE-WUP01"
iO = iO + 1: arrO(iO) = "DE-KAM16"
iO = iO + 1: arrO(iO) = "DE-TES04"
'usw.
varAuswahl = InputBox("Welcher Standort soll aktualisiert werden?" & vbLf & vbLf _
& "Bitte Groß-/Kleinschreibung beachten!", _
"Standort-Aktualisierung", "ALLE")
If varAuswahl = "" Then Exit Sub
'Prüfen, ob gültiger Standort eingegeben wurde
If varAuswahl  "ALLE" Then
For iO = 1 To UBound(arrO)
If varAuswahl = arrO(iO) Then Exit For
Next
If iO = UBound(arrO) + 1 Then
If MsgBox("Der eingegebene Standort """ & varAuswahl _
& """ ist nicht in Liste vorhanden!", vbRetryCancel, _
"Standort-Auswahl") = vbCancel Then
Exit Sub
Else
GoTo Auswahl
End If
End If
End If
strFile = Environ("Temp") & "\" & Format(Now, "YYYY-MM-DD_HH_MM_SS") & "_copy.cmd"
Open strFile For Output As #1
Print #1, "color  17"
Print #1, "chcp 65001"
Print #1, "cls"
For iO = 1 To UBound(arrO)
If varAuswahl = arrO(iO) Or varAuswahl = "ALLE" Then
strpfad = "P:\Daten\" & arrO(iO) & "\Einstellungen\Nova\Standards\makros\"
Print #1, "attrib -r -s -h /S /D "; """"; strpfad & strZelleOffset; """"
Print #1, "xcopy "; """"; strZelle; """"; " "; """"; strpfad; """"; " /Y"
Print #1, "attrib +r +s +h /S /D "; """"; strpfad & strZelleOffset; """"
End If
Next
Close #1
End Sub
Sub START_MAKROS_Variante_2()
Dim strFile As String
Dim strZelle As String, strZelleOffset As String
Dim arrO() As String, iO
Dim strpfad As String
Dim varAuswahl, sMsg As String
strZelle = ActiveCell.Text
strZelleOffset = ActiveCell.Offset(0, 1).Text
ReDim arrO(1 To 3) '3 entsprechend der Anzahl der Standorte anpassen
iO = 0
iO = iO + 1: arrO(iO) = "DE-WUP01"
iO = iO + 1: arrO(iO) = "DE-KAM16"
iO = iO + 1: arrO(iO) = "DE-TES04"
'usw.
sMsg = "Standort-Auswahl"
For iO = 1 To UBound(arrO)
sMsg = sMsg & vbLf & iO & " - " & arrO(iO)
Next
sMsg = sMsg & vbLf & "99 = ALLE" & vbLf & "Bitte Nummer eingeben"
Auswahl:
varAuswahl = Val(InputBox(sMsg, "Standort-Auswahl", 99))
Select Case varAuswahl
Case 0 'Abbgebrochen
Exit Sub
Case 99, 1 To UBound(arrO)
Case Else
If MsgBox("Unzulässige Zahl wurde eingegeben", _
vbRetryCancel, "Standort-Auswahl") = vbCancel Then
Exit Sub
Else
GoTo Auswahl
End If
End Select
strFile = Environ("Temp") & "\" & Format(Now, "YYYY-MM-DD_HH_MM_SS") & "_copy.cmd"
Open strFile For Output As #1
Print #1, "color  17"
Print #1, "chcp 65001"
Print #1, "cls"
For iO = 1 To UBound(arrO)
If varAuswahl = iO Or varAuswahl = 99 Then
strpfad = "P:\Daten\" & arrO(iO) & "\Einstellungen\Nova\Standards\makros\"
Print #1, "attrib -r -s -h /S /D "; """"; strpfad & strZelleOffset; """"
Print #1, "xcopy "; """"; strZelle; """"; " "; """"; strpfad; """"; " /Y"
Print #1, "attrib +r +s +h /S /D "; """"; strpfad & strZelleOffset; """"
End If
Next
Close #1
End Sub

Anzeige
AW: Kopieren der Datei mit Änderung von Attr
13.06.2020 11:03:02
Attr
Hallo Franz,
vielen herzlichen Dank.
Ich habe beide Varianten getestet:
Variante 1: Das Makro bleibt hier "GoTo Auswahl" stehen. Soll ich dies auskommentieren oder fehlt mir etwas?
Variante 2: Funktioniert perfekt
Beste Grüße,
Sergej
AW: Kopieren der Datei mit Änderung von Attr
13.06.2020 11:33:37
Attr
Hallo Sergej,
ich hab das Makro getestet, es läuft bei mir ohne Probleme.
Bei falsch eingegebenem Standort soll das Makro hier ggf. zurückspringen zur Eingabe.
Fehlt bei dir evtl die Zeile 
Auswahl:

vor der Anzeige der Inputbox?
LG
Franz
AW: Kopieren der Datei mit Änderung von Attr
13.06.2020 11:43:02
Attr
Hallo Franz,
genau die Zeile "Auswahl:" hat gefehlt. Jetzt geht es ;-)
Beste Grüße,
Sergej
Anzeige

202 Forumthreads zu ähnlichen Themen

VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Anzeige
Konkatinieren : kopieren funktioniert nicht
stelud

Hallo,
in Spalte E will ich eine Konkatinierung der Spalten A - D haben - dies löse ich wie folgt :
=$A$1&$B$1&$C$1&$D$1
Ergebnis eine Zeile :
A B C D E
1 2 3 4 1234
wenn ich aber nun diese Formel in Zeile2 kopiere, wird der Index nic...
04.11.2008 09:10:59
Thread-ID: 1021470
3 Beiträge
Inhalt Zelle/Text mit "=" kopieren
Go

Hallo AlleMiteinander,
ich bin auf folgendes Problem gestossen, dessen Lösung ich suche:
Ein bestimmter Bereich eines Worksheets wird mit Textdaten beschrieben (deren Ursprung via CopyPaste aus einer anderen Anwendung stammen).
Diese werden etwas bereinigt und sollen anschliesend in...
20.12.2008 01:12:00
Thread-ID: 1034334
4 Beiträge
Anzeige
Formel funktionieren nicht mehr!!`????
nino

Hallo, kann mir jemand sagen, was ich falsch gemacht habe?
Die formel funktionieren seit gestern nicht mehr! Bis gestern mitag ist alles gelaufen!?
Ich bedanke mich im Voraus! Nino.
Die Datei https://www.herber.de/bbs/user/60480.xls wurde aus Datenschutzgründen gelöscht
19.03.2009 23:30:43
Thread-ID: 1062003
7 Beiträge
Zelle mit Gültigkeitsabfrage kopieren
chsarto

Hallo suche mich den Wolf und finde den Weg nicht.
Ich habe ein Makro welches einen bestimmtenn Teil x mal kopiert, mit Formel und Formatierung.Alles so weit so gut. In einem bestimmten Bereich in Spalte G ist eine Gültigkeitsabfrage hinterlegt, diese wird jedoch nicht auf die neuen Spalten...
23.04.2009 14:04:36
Thread-ID: 1070682
4 Beiträge
Kopieren von Formeln mit externen Links
Formeln

Hallo
was ich versuche zu machen ist folgendes:
I habe zwei Exceldateien. Eine (Quelle) welche viele Formeln mit externen Verweisen enthält. Ich muss die Formeln aus der Quelldatei in die Zieldatei kopieren. Das an sich stellt natürlich kein Problem dar. Jedoch werden die externen Verwe...
15.06.2009 10:03:59
Thread-ID: 1081503
6 Beiträge
Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Kopieren von Formeln in Excel funktioniert nicht
Formeln

Hallo Leute,
ich kann seit heute keine Formeln mehr in Excel von einer Datei in eine andere Dateien kopieren. Excel übernimmt nur die Werte. Kopieren in einer Datei zwischen zwei Tabellenblättern funktioniert.
Habe nichts verstellt. Automatische Berechnung ist eingestellt.
Weiß jem...
30.06.2009 13:38:40
Thread-ID: 1085354
8 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
5
3
2
3
1
6
3
5
20
7
2
3
3
4
5
8
7
4
4
1
7
5
2
5
2