Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Excel 2007 Anlegen einer Bestimmten Ordnerstruktur auf verschiedene Netzlaufwerke

Mitglied: cyberdevil0815

cyberdevil0815 (Level 1) - Jetzt verbinden

21.11.2011, aktualisiert 22.11.2011, 3270 Aufrufe, 5 Kommentare

Anlegen von gleicher Auftragsnummer mit verschiedener Auftragsbeschreibung ist nicht möglich, ich erhalte einen VB Fehler

Hallo zusammen,

ergänzend zu meinen Ursprungsposting:

https://www.administrator.de/index.php?content=175231

wurde die Anforderung erweitert bzw. im Laufenden EInsatz mittels des Excelsheets, hat sich eine Erweiterung ergeben, welche aus dem PDF Dok zu entnehmen ist.

Hier steht auch die explizite Fehlerbeschreibung drin.

http://www.project-ae/download/2011-11-21-VBA-Excel-Fehler.pdf

01.
Sub Main() 
02.
 
03.
UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 2 
04.
Dim strData1 As String 
05.
Dim strData2 As String 
06.
Dim strData3 As String 
07.
Dim strData4 As String 
08.
Dim objWord As Object 
09.
 
10.
 
11.
Pfad = "G:\Projekte\" 
12.
Pfad1 = "I:\Projekte\" 
13.
 
14.
If IsError(Sheets("Tabelle1").Cells(6, "E")) Then 
15.
    MsgBox "Die Navisionlizenz lässt keine weiteren Anwender zu." & vbCrLf & _ 
16.
     "" & vbCrLf & _ 
17.
     "Warten Sie, bis ein anderer Anwender das Programm verlassen hat.", 48 + 0, _ 
18.
     "Projekt konnte nicht angelegt werden!" 
19.
     Unload UserForm1 
20.
     GoTo Abbruch2 
21.
End If 
22.
 
23.
A = Sheets("Tabelle1").Cells(6, "E")    'Verk. An Name 
24.
Be = Sheets("Tabelle1").Cells(8, "E")   'Anlagennummer 
25.
C = Sheets("Tabelle1").Cells(10, "E")   'Kom. Beschreibung 
26.
D = Sheets("Tabelle1").Cells(12, "E")   'Nr. (Auftragsnummer) 
27.
 
28.
 
29.
'******************************************************************* 
30.
'*** Für die Ordnerstruktur ungültige Zeichen werden umgewandelt *** 
31.
'******************************************************************* 
32.
 
33.
C = Replace(C, "/", "_") 
34.
C = Replace(C, "\", "_") 
35.
C = Replace(C, ":", ";") 
36.
C = Replace(C, "*", "+") 
37.
C = Replace(C, "<", " ") 
38.
C = Replace(C, ">", " ") 
39.
C = Replace(C, "|", "_") 
40.
C = Replace(C, "?", " ") 
41.
C = Replace(C, "Chr(34)", "Chr(39)") 
42.
 
43.
A = Replace(A, "/", "_") 
44.
A = Replace(A, "\", "_") 
45.
A = Replace(A, ":", ";") 
46.
A = Replace(A, "*", "+") 
47.
A = Replace(A, "<", " ") 
48.
A = Replace(A, ">", " ") 
49.
A = Replace(A, "|", "_") 
50.
A = Replace(A, "?", " ") 
51.
A = Replace(A, "Chr(34)", "Chr(39)") 
52.
 
53.
 
54.
'******************************************************************* 
55.
'*** Die aus Navision übernommenen Daten werden konntrolliert ****** 
56.
'******************************************************************* 
57.
 
58.
 
59.
'Hat die Auftragsnummer das richtige Format? 
60.
If IsNumeric(D) = False Then 
61.
    MsgBox "Die Auftragsnummer darf nur aus Zahlen bestehen!", 48 + 0, "Ungültige Eingabe!" 
62.
    Unload UserForm1 
63.
    GoTo Abbruch 
64.
End If 
65.
 
66.
If Len(D) <> 8 Then 
67.
    MsgBox "Die Auftragsnummer muss aus genau 8 Zahlen bestehen! Es sind aber " & Len(D), 48 + 0, "Ungültige Eingabe!" 
68.
    Unload UserForm1 
69.
    GoTo Abbruch 
70.
End If 
71.
 
72.
'Ist die Auftragsnummer vergeben? 
73.
If D = "" Then 
74.
    MsgBox "Es wurde kein Projekt gefunden!" & vbCrLf & _ 
75.
     "Dies kann folgende Ursachen haben:" & vbCrLf & _ 
76.
     "" & vbCrLf & _ 
77.
     "1. Die Auftragsnummer wurde falsch eingegeben." & vbCrLf & _ 
78.
     "2. Es wurde ein falscher Mandant ausgewählt.", 48 + 0, "Es wurde kein Projekt gefunden!" 
79.
     Unload UserForm1 
80.
     GoTo Abbruch 
81.
End If 
82.
 
83.
'Ist die Anlagennummer vergeben? 
84.
If Be = "" Then 
85.
    MsgBox "Es wurde in Navision keine Anlagennummer angegeben." & vbCrLf & _ 
86.
     "" & vbCrLf & _ 
87.
     "Bitte tragen sie diese zuerst nach, bevor sie das Projekt anlegen.", 48 + 0, _ 
88.
     "Keine Anlagennummer vergeben!" 
89.
     Unload UserForm1 
90.
     GoTo Ende 
91.
End If 
92.
 
93.
'Ist die Kom. Beschreibung vergeben? 
94.
If C = "" Then 
95.
    MsgBox "Es wurde in Navision keine Beschreibung angegeben." & vbCrLf & _ 
96.
     "" & vbCrLf & _ 
97.
     "Bitte tragen sie diese zuerst nach, bevor sie das Projekt anlegen.", 48 + 0, _ 
98.
     "Keine Beschreibung vorhanden!" 
99.
     Unload UserForm1 
100.
     GoTo Ende 
101.
End If 
102.
 
103.
'Ist die Anlagennummer vergeben? 
104.
If A = "" Then 
105.
    MsgBox "In Navision wurde das Feld 'Verk. an Name' ausgefüllt." & vbCrLf & _ 
106.
     "" & vbCrLf & _ 
107.
     "Bitte füllen sie dieses zuerst aus, bevor sie das Projekt anlegen.", _ 
108.
     48 + 0, "Keine Kundenname vorhanden!" 
109.
     Unload UserForm1 
110.
     GoTo Ende 
111.
End If 
112.
 
113.
'Anlagennummer ohne Punkt 
114.
B = Right$(Be, 6) 
115.
 
116.
'Wurde ein Ordnertyp ausgewählt? 
117.
If Sheets("Tabelle1").Cells(3, "F") = 1 Then 
118.
    MsgBox "Es wurde kein Ordnertyp ausgewählt", 48 + 0, "Achtung!" 
119.
    Sheets("Tabelle1").Cells(3, "F") = "" 
120.
    Unload UserForm1 
121.
    GoTo Abbruch 
122.
End If 
123.
 
124.
UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 1 
125.
 
126.
'******************************************************************* 
127.
'*** Anlegen der Ordnerstruktur in Windows ************************* 
128.
'******************************************************************* 
129.
 
130.
'Erstellen des Kundenordners auf LW I 
131.
Name = Pfad1 & A 
132.
If Dir(Name & "\", vbDirectory) = "" Then MkDir Name 
133.
 
134.
'Erstellen des Unterordners mit Anlagennummer_Beschreibung 
135.
ANR = Pfad1 & A & "\" & B & "_" & C 
136.
If Dir(ANR & "\", vbDirectory) = "" And Dir(Name & "\" & B & "*", vbDirectory) = "" Then 
137.
    MkDir ANR 
138.
End If 
139.
 
140.
'Erstellen der Unterordnerstruktur 
141.
Unterordner = Pfad1 & A & "\" & B & "_" & C & "\" 
142.
 
143.
OS10 = Unterordner & "Mechanik" 
144.
MkDir OS10 
145.
 
146.
 
147.
 
148.
 
149.
'Erstellen des Kundenordners auf LW G 
150.
Name = Pfad & A 
151.
If Dir(Name & "\", vbDirectory) = "" Then MkDir Name 
152.
 
153.
'Erstellen des Unterordners mit Anlagennummer_Beschreibung 
154.
ANR = Pfad & A & "\" & B & "_" & C 
155.
If Dir(ANR & "\", vbDirectory) = "" And Dir(Name & "\" & B & "*", vbDirectory) = "" Then 
156.
    MkDir ANR 
157.
Else: 
158.
    Ord = Name & "\" & Dir(Name & "\" & B & "*", vbDirectory) 
159.
    ASV = Ord & "\" & "Schriftverkehr" & "\" & D & "_" & C 
160.
    If Dir(ASV, vbDirectory) = "" Then 
161.
        MkDir ASV 
162.
        MkDir Ord & "\" & "\" & "Doku" & "\" & "Deutsch" & "\" & "Funktionspläne" & "\" & D & "_" & C & "\" 
163.
        MkDir Ord & "\" & "\" & "Doku" & "\" & "Deutsch" & "\" & "Datenblätter" & "\" & D & "_" & C & "\" 
164.
        UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 7 
165.
        Unload UserForm1 
166.
        GoTo Ende 
167.
     
168.
    Else: MsgBox "Projekt bereits vorhanden" 
169.
          Unload UserForm1 
170.
          GoTo Abbruch 
171.
    End If 
172.
End If 
173.
 
174.
'Erstellen der Unterordnerstruktur 
175.
Unterordner = Pfad & A & "\" & B & "_" & C & "\" 
176.
 
177.
OS1 = Unterordner & "Medien" 
178.
MkDir OS1 
179.
MkDir OS1 & "\" & "Videos" 
180.
MkDir OS1 & "\" & "Fotos" 
181.
 
182.
OS2 = Unterordner & "Berechnung" 
183.
MkDir OS2 
184.
 
185.
OS3 = Unterordner & "Doku" 
186.
MkDir OS3 
187.
MkDir OS3 & "\" & "Deutsch" 
188.
MkDir OS3 & "\" & "Deutsch" & "\" & "Bedienungsanleitung" 
189.
MkDir OS3 & "\" & "Deutsch" & "\" & "Funktionspläne" 
190.
MkDir OS3 & "\" & "Deutsch" & "\" & "Funktionspläne" & "\" & D & "_" & C 
191.
MkDir OS3 & "\" & "Deutsch" & "\" & "Datenblätter" 
192.
MkDir OS3 & "\" & "Deutsch" & "\" & "Datenblätter" & "\" & D & "_" & C 
193.
MkDir OS3 & "\" & "Englisch" 
194.
 
195.
OS4 = Unterordner & "Durchlaufplan" 
196.
MkDir OS4 
197.
 
198.
OS5 = Unterordner & "Elektro" 
199.
MkDir OS5 
200.
MkDir OS5 & "\" & "Antriebe" 
201.
MkDir OS5 & "\" & "Bustest" 
202.
MkDir OS5 & "\" & "Display" 
203.
MkDir OS5 & "\" & "E-Pläne" 
204.
MkDir OS5 & "\" & "Sicherheitstechnik" 
205.
MkDir OS5 & "\" & "Technische_Infos" 
206.
MkDir OS5 & "\" & "Zubehör_Parameter" 
207.
MkDir OS5 & "\" & "Programm" 
208.
MkDir OS5 & "\" & "Programm" & "\" & "_Vorbereitet" 
209.
MkDir OS5 & "\" & "Programm" & "\" & "_Vorlage" 
210.
 
211.
OS6 = Unterordner & "LLV" 
212.
MkDir OS6 
213.
 
214.
OS7 = Unterordner & "Schriftverkehr" 
215.
MkDir OS7 
216.
MkDir OS7 & "\" & D & "_" & C 
217.
MkDir OS7 & "\" & D & "_" & C & "\" & "Intern" 
218.
MkDir OS7 & "\" & D & "_" & C & "\" & "Kunde" 
219.
MkDir OS7 & "\" & D & "_" & C & "\" & "Zulieferer" 
220.
 
221.
OS8 = Unterordner & "Kalkulation" 
222.
MkDir OS8 
223.
 
224.
UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 1 
225.
 
226.
 
227.
 
228.
   Set WSHShell = CreateObject("WScript.Shell") 
229.
        'Hier kommt der Verweis nach G hin 
230.
        Set ProjektShortcut = WSHShell.CreateShortcut(ANR & "\" & "Mechanik.lnk") 
231.
        'Wohin soll der Link verweisen 
232.
        ProjektShortcut.TargetPath = OS10  'Mechanik 
233.
        ProjektShortcut.Save 
234.
        Set ProjektShortcut = Nothing 
235.
        Set WSHShell = Nothing 
236.
 
237.
 
238.
'******************************************************************* 
239.
'*** Exceldokumente für Ordner Kalkulation kopieren***************** 
240.
'******************************************************************* 
241.
 
242.
'Excelsheet mitlaufende Kalkulation.xlsx speichern 
243.
 
244.
Dim objExcel As Object 
245.
Set objExcel = CreateObject("Excel.Application") 
246.
 
247.
 
248.
objExcel.Application.Workbooks.Open "G:\Vordrucke\Projekte\Kalkulation\mitlaufende_Kalkulation.xlsx" 
249.
 
250.
 With objExcel.ActiveWorkbook 
251.
        .SaveAs Filename:=Unterordner & "Kalkulation\mitlaufende_Kalkulation" & "_" & D & ".xlsx" 
252.
        .Close 
253.
    End With 
254.
 
255.
 
256.
Set objExcel = Nothing 
257.
 
258.
 
259.
'Daten aus Exceldatei einlesen 
260.
strData1 = A 
261.
strData2 = B 
262.
strData3 = C 
263.
strData4 = D 
264.
 
265.
'Excelsheet Nachkalkulation_geschlossen.xlsx speichern 
266.
 
267.
Set objExcel = CreateObject("Excel.Application") 
268.
 
269.
 
270.
objExcel.Application.Workbooks.Open "G:\Vordrucke\Projekte\Kalkulation\Nachkalkulation_geschlossen.xlsx" 
271.
 
272.
 With objExcel.ActiveWorkbook 
273.
        .SaveAs Filename:=Unterordner & "Kalkulation\Nachkalkulation_geschlossen" & "_" & D & ".xlsx" 
274.
        .Close 
275.
    End With 
276.
 
277.
 
278.
Set objExcel = Nothing 
279.
 
280.
 
281.
'Daten aus Exceldatei einlesen 
282.
strData1 = A 
283.
strData2 = B 
284.
strData3 = C 
285.
strData4 = D 
286.
 
287.
 
288.
'******************************************************************* 
289.
'*** Die Worddokumente werden bearbeitet**************************** 
290.
'******************************************************************* 
291.
 
292.
 
293.
'Kopieren des Inhaltsverzeichnisses 
294.
FileCopy "G:\Vordrucke\VD_Inhaltsverzeichnis Projektordner.doc", Unterordner & "Inhaltsverzeichnis.doc" 
295.
 
296.
'Daten in Projektstand.xls eintragen 
297.
 
298.
Set objExcel = CreateObject("Excel.Application") 
299.
 
300.
 
301.
objExcel.Application.Workbooks.Open "G:\Vordrucke\Projektstand.xls" 
302.
objExcel.Application.Sheets("Tabelle1").Select 
303.
 
304.
 With objExcel.ActiveWorkbook 
305.
        .Sheets("Tabelle1").Cells(1, "B") = A 
306.
        .Sheets("Tabelle1").Cells(5, "B") = D 
307.
        .Sheets("Tabelle1").Cells(6, "B") = B 
308.
        .Sheets("Tabelle1").Cells(7, "B") = C 
309.
        .SaveAs Filename:=Unterordner & "Projektstand" & "_" & D & ".xlsx" 
310.
        .Close 
311.
    End With 
312.
 
313.
 
314.
Set objExcel = Nothing 
315.
 
316.
 
317.
'Daten aus Exceldatei einlesen 
318.
strData1 = A 
319.
strData2 = B 
320.
strData3 = C 
321.
strData4 = D 
322.
 
323.
 
324.
'*** Daten in "Vordruck für Ordnerrücken.doc" einfügen *** 
325.
If Sheets("Tabelle1").Cells(2, "F") = 1 Then 
326.
    Set objWord = CreateObject("Word.Application") 
327.
     
328.
   '*** Hier wird der Pfad der Wordvorlage angegeben *** 
329.
    objWord.documents.Open "G:\Vordrucke\VD_Vordruck für Ordnerrücken_v1.doc" 
330.
     
331.
    'Text in die Textmarken einfügen 
332.
    With objWord 
333.
        .ActiveDocument.Bookmarks("Firma").Range.Text = strData1 
334.
        .ActiveDocument.Bookmarks("Beschreibung").Range.Text = strData3 
335.
        .ActiveDocument.Bookmarks("Anlagennummer").Range.Text = strData2 
336.
    End With 
337.
     
338.
    'Dokument speichern unter 
339.
    objWord.ActiveDocument.SaveAs Unterordner & "Vordruck für Ordnerrücken.doc" 
340.
 
341.
    'word beenden 
342.
    objWord.Quit 
343.
     
344.
    'objekt löschen 
345.
    Set objWord = Nothing 
346.
 
347.
End If 
348.
 
349.
UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 1 
350.
 
351.
If Sheets("Tabelle1").Cells(1, "F") = 1 Then 
352.
    Set objWord = CreateObject("Word.Application") 
353.
     
354.
 
355.
    '*** Hier wird der Pfad der Wordvorlage angegeben *** 
356.
    objWord.documents.Open "G:\Vordrucke\VD_Vordruck für Ordnerrücken_schmal_v1.doc" 
357.
     
358.
    With objWord 
359.
        .ActiveDocument.Bookmarks("Firma").Range.Text = strData1 
360.
        .ActiveDocument.Bookmarks("Beschreibung").Range.Text = strData3 
361.
        .ActiveDocument.Bookmarks("Anlagennummer").Range.Text = strData2 
362.
    End With 
363.
     
364.
'Dokument speichern unter 
365.
objWord.ActiveDocument.SaveAs Unterordner & "Vordruck für Ordnerrücken_schmal.doc" 
366.
 
367.
'Word beenden 
368.
objWord.Quit 
369.
     
370.
'objekt löschen 
371.
Set objWord = Nothing 
372.
End If 
373.
 
374.
UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 2 
375.
     
376.
'Daten in "VD_Änderungen während des laufenden Projektes_v1.doc" einfügen 
377.
Set objWord = CreateObject("Word.Application") 
378.
 
379.
 
380.
 
381.
'*** Hier wird der Pfad der Wordvorlage angegeben *** 
382.
objWord.documents.Open "G:\Vordrucke\VD_Änderungen während des laufenden Projektes_v1.doc" 
383.
     
384.
With objWord 
385.
     
386.
    .ActiveDocument.Bookmarks("Firma").Range.Text = strData1 
387.
    .ActiveDocument.Bookmarks("Beschreibung").Range.Text = strData3 
388.
    .ActiveDocument.Bookmarks("Anlagennummer").Range.Text = strData2 
389.
    .ActiveDocument.Bookmarks("Kommissionsnummer").Range.Text = strData4 
390.
    End With 
391.
     
392.
 
393.
UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 2 
394.
 
395.
'Dokument speichern unter 
396.
objWord.ActiveDocument.SaveAs Unterordner & "Änderungen während des laufenden Projektes" 
397.
 
398.
'word beenden 
399.
objWord.Quit 
400.
 
401.
'objekt löschen 
402.
Set objWord = Nothing 
403.
 
404.
UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 1 
405.
 
406.
Unload UserForm1 
407.
 
408.
Ende: 
409.
MsgBox "Projekt wurde erfolgreich erstellt" 
410.
 
411.
Abbruch2: 
412.
Application.DisplayAlerts = False 
413.
Workbooks("Projektordner.xls").Close SaveChanges:=False 
414.
 
415.
Abbruch: 
416.
Unload UserForm1 
417.
Unload Projektdokumentation 
418.
Application.WindowState = xlMaximized 
419.
 
420.
End Sub 
421.
 
Mitglied: bastla
21.11.2011 um 16:37 Uhr
Hallo cyberdevil0815!

Der Link zur PDF-Datei ist unvollständig ...

... aber abgesehen davon wäre meine erste Empfehlung, mit zB
MsgBox OS10
zur Kontrolle vorweg den fraglichen Pfad einmal anzuzeigen ...

Grüße
bastla
Bitte warten ..
Mitglied: cyberdevil0815
22.11.2011 um 10:05 Uhr
Hallo bastla,

Link angepasst, sollte nun funktionieren. Danke für den Hinweis.

Bezgl. des "MsgBox 0S10", wird sich durch den Link von alleine vermutlich klären....
Bitte warten ..
Mitglied: bastla
22.11.2011 um 13:07 Uhr
Hallo cyberdevil0815!
wird sich durch den Link von alleine vermutlich klären....
Du solltest das aber trotzdem selbst einbauen und ausführen, um zu sehen, welchen Pfad "OS10" eigentlich enthält ...

Grüße
bastla
Bitte warten ..
Mitglied: cyberdevil0815
22.11.2011 um 13:25 Uhr
Ok...soweit bin ich schon gekommen...0S10 verweisst auf LW i
Bitte warten ..
Mitglied: bastla
22.11.2011 um 14:30 Uhr
Hallo cyberdevil0815!
0S10 verweisst auf LW i
Das ist aber noch kein Pfad ...

... und die Fehlermeldung war doch:
Pfad nicht gefunden

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Per Batch automatisch Ordnerstrukturen anlegen

gelöst Frage von evolutionBatch & Shell

Hallo, weiß jemand ob es möglich ist per Batch-Datei automatisch mit einer Eingabe Ordnerstrukturen anlegen zu lassen? Folgendes Szenario ...

Batch & Shell

Bestimmte Dateien aus Ordnerstrukturen kopieren

gelöst Frage von stridingBatch & Shell8 Kommentare

Hallo! Ich stehe mal wieder vor einem Problem, und vielleicht kann mir auch hierbei jemand weiterhelfen! Ich würde gerne ...

Batch & Shell

Batch bestimmte Dateien verschieben ohne Ordnerstruktur

gelöst Frage von OOmatrixOOBatch & Shell14 Kommentare

Hallo. Ich möchte aus mehreren Ordnern und Unterordnern bestimmte Dateien in ein anderes Verzeichnis verschieben. Habe schon dies probiert: ...

Microsoft Office

Office 2007: Neu-Anlegen, Speichern, Ändern auf Netzlaufwerken nicht mehr möglich

Frage von markymark76Microsoft Office14 Kommentare

Hallo. Ich betreue ein kleines Netzwerk mit 8 Windows 7 (Pro, 64 bit) Clients und Office 2007. Als Server ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 1 TagHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 1 TagRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 2 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 2 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Router & Routing
Mikrotik: Routing zwischen Interfaces mit Geräten ohne Gateway
Frage von TonLichtVideoRouter & Routing18 Kommentare

Hallo zusammen, ich komme aus dem Veranstaltungstechnik Bereich und habe zwei Netze um verschiedene Hardware zu Remoten. CONTROL1 192.168.1.0/24 ...

Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk14 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

SAN, NAS, DAS
Entscheidung SAN Dell oder HP
Frage von VincorSAN, NAS, DAS13 Kommentare

Hallo, wir wollen uns für unsere Hyper V Umgebung eine neue SAN Anschaffen. Es laufen 30 VM's darunter, DC; ...

Vmware
Server 2008 r2 vmware terminalserver
Frage von MasterCVmware10 Kommentare

Guten Abend zusammen, ich hoffe , dass einer von euch mir weiterhelfen kann ,bei meinem kack Problem ! Ist ...