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, 3406 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
VB for Applications
Excel 2007 - Macro
Frage von EverestVB for Applications4 Kommentare

Hallo Excel-Spezialisten, ich habe eine Frage. Gibt es eine Möglichkeit, die Einstellung des Makros NUR für eine bestimmte Datei, ...

VB for Applications

Windows Ordnerstruktur, Pfad und Dateiname in Excel ausgeben

gelöst Frage von zlep01VB for Applications2 Kommentare

Hallo liebes Forum, ich stehe zur Zeit vor einem Problem, welches ich hoffe, mit einem Makro (VBA) oder ähnlichem ...

Microsoft Office

Excel 2007 erstellt temporäre Dateien auf Netzlaufwerk und löscht sie nicht automatisch

Frage von blacksnowMicrosoft Office6 Kommentare

Hallo liebes Forum! Ich habe ein Problem, bei dem mir langsam die Fantasie ausgeht. So erstellt Excel bei der ...

Microsoft Office

Word bestimmt Sprache selbst

gelöst Frage von honeybeeMicrosoft Office1 Kommentar

Hallo, habe in Word 2016 ein nerviges Problem: Auf meinem Computer (Windows 10) sind zwei Sprachen installiert: Deutsch und ...

Neue Wissensbeiträge
Windows Server

Zähe Update-Installation auf Windows Server 2016

Information von kgborn vor 2 TagenWindows Server4 Kommentare

Mir sind in der Vergangenheit immer wieder Beschwerden von Admins unter die Augen gekommen, die sich über die doch ...

Humor (lol)
Turnschuhe per Firmware lahmlegen
Information von Henere vor 2 TagenHumor (lol)8 Kommentare

Und was kommt demnächst ? Bekomme ich kein Klopapier mehr, weil der Spender einem DDOS unterliegt ? :-) Ich ...

Sicherheit

Sicherheitsrisiko in WinRAR und Co. durch Schwachstelle in UNACEV2.DLL

Information von kgborn vor 2 TagenSicherheit

In der seit 2005 nicht mehr aktualisierten Bibliothek UNACEV2.DLL gibt es eine Path-Traversal-Schwachstelle. Diese ermöglicht es, bei ACE-Archiven Dateien ...

Internet

CDU Propaganda: Urheberschutz im Internet - Ende des digitalen Wild-West

Information von Frank vor 3 TagenInternet6 Kommentare

Hallo Administratoren, aus einem Kommentar heraus habe ich folgenden Beiträge von Herr Sven Schulze und Axel Voss (beide CDU ...

Heiß diskutierte Inhalte
Windows Tools
Dateiname Automatisch auf PDF Klartext oder als Barcode abdrucken
Frage von spongebob24Windows Tools29 Kommentare

Hallo Zusammen, habe eine tolle Anforderung bekommen. Ich sollte auf mehrere PDF Dateien Automatisch einen Stempel anbringen lassen. Toll ...

Internet
SDSL oder ADSL - Preis-Leistungs-Verhältnis
Frage von ZeppelinInternet22 Kommentare

Wehrte Community, der Unterschied dieser beiden Techniken ist recht einfach erklärt. Das S, steht für Synchron (Gleich) und das ...

Microsoft Office
MicroSoft und seine Lizenzen
Frage von ZeppelinMicrosoft Office20 Kommentare

Wehrte Community, ich wende mich an die Community weil MicroSoft dazu keine Stellung nehmen möchte. Ich öffne mein Web-Browser ...

Hyper-V
Setup zu 2019 Hyper-V Coreserver gesucht
Frage von DerWoWussteHyper-V17 Kommentare

Moin. Ich habe unter die Möglichkeit, Hyper-V-Server 2012 R2 runterzuladen! Tolle Wurst, Microsoft! Nehme ich eine andere Quelle, nämlich ...