Wissen, News, Stream und Download zu Stray Cats Rock This Town help
Alles im Web finden: Videos, Software, Bücher, Dokumente, Wissenschaft, Nachrichten
Guten Abend miteinander! :) Ich würde gerne ein kleines Projekt auf die Beine stellen... Nämlich will ich 5 alte CPU Lüfter 'recyceln' und diese zusammenlöten um von unten auf ein Laptop zu blasen. Formel ist P = U*I (Leistung = Spannung*Stromstärke) Die Werte der Lüfter.. U = 12 V DC bei allen.. L1: I = 0.3 A (angegeben); P = 3.6 W (berechnet) L2: I = 0.1 A (berechnet); P = 1.2 W (angegeben) L3: I = 0.15 A (angegeben); P = 1.8 W (berechnet) L4: I = 0.3 A (angegeben); P = 3.6 W (berechnet) L5: I = 0.25 A (angegeben); P = 3 W (berechnet) So... Wenn ich jetzt alle Lüfter parallel laufen lasse kann ich die Werte zusammenzählen und hätte ein Total von: Ltotal: I = 1. [+]
Elektrotechnik & ElektronikSuchergebnisse: Stray Cats Rock This Town help
InoCydia can't not Download on this time. need Help
Hat jemand die Klaviernoten von dem Song \"This is me\" von Camp rock?
Normale Temperaturen bei einem Xeon 1230 v3 gekühlt mit einem Shadow Rock 2?
Please Help me modify my Macro
I have the following macro :Option Explicit Private strList() If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCount) = strFolder & "\" lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2) If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir.Cells, CellsstrDat"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCountlngCount) = strFolder & "\" strDat = objFile.Datelastmodified lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2*3 ist leider nicht möglich
Das makro gibt quelle und dateiname eines ausgewählten ordners und seiner unterordner aus. ich brauch in zeile C noch das passende Änderungsdatum. Der Befehl dürfte lauten: DateLastModified
Die Newsgroups wurden wie es ausschaut leider geschlossen.
Als ich Probleme hatte wurde mir in den Newsgroups schnell und kompetent weitergeholfen.
Ein Link zum Einstieg ins Forum: Microsoft Community
Re: Wie kann ich das Speicherdatum in eine Tabellenzeile einfügen?
unexpectedly this µ has worked once but I couldn't reproduce. Even copying and saving in a general module under another name didn't work: The altered title of the µ didn't shine up in the list and starting it via the green triangel didn't work. .
But perhapps you will find qualified help there
Power Point 2013 Testversion! NEED HELP
Wenn nein, könnt ihr mir bitte ieine Seite sagen wo man power point ohne den Product Key runterladen kann? -.-