Wissen, News, Stream und Download zu Dell Vikings For Collectors Only help
Alles im Web finden: Videos, Software, Bücher, Dokumente, Wissenschaft, Nachrichten
Burg und Er |
Maschinelles Lernmodell identifiziert drei natürliche Anti-Aging-WirkstoffeForscher haben ein maschinelles Lernmodell ("KI") verwendet, um drei Verbindungen zu identifizieren, die dem Altern entgegenwirken könnten. Sie sagen, ihr Ansatz könnte eine effektive Methode zur Identifizierung neuer Medikamente sein, insbesondere für komplexe Krankheiten.58029 Zellteilung ist notwendig, damit unser Körper wächst und sich Gewebe erneuert. Zelluläre Seneszenz beschreibt das Phänomen, bei dem Zellen dauerhaft aufhören sich zu teilen, aber im Körper verbleiben und Gewebeschäden und Alterung in Organen und Körpersystemen verursachen. Normalerweise werden seneszente Zellen vom Immunsystem aus dem Körper entfernt. [+]
Wissenschaft & ForschungBurg und Er |
Die wichtigsten Finanzierungsmodelle für Start-ups und junge UnternehmenEine Unternehmensgründung ist immer mit viel Arbeit verbunden. Es ist nicht nur notwendig, eine gute Geschäftsidee zu haben und zu planen, wie man diese in die Tat umsetzen kann, sondern Start-ups müssen zusätzlich die nötigen Finanzmittel aufbringen, um ihr Vorhaben in die Tat umzusetzen. 57696 Zusätzlich müssen Gründer noch für Werbung, die Website, möglicherweise vorhandene Apps und das richtige Logo Design bezahlen und sicherstellen, dass alles reibungslos läuft. Das kann eine entmutigende Aufgabe sein, besonders für kleine Unternehmen. Zum Glück gibt es viele verschiedene Finanzierungsmodelle für Start-ups. [+]
Finanzen & VersicherungTKay |
Mittels unityweb zum 3D-ModellHallo, ich versuch mich gerade dran für ein Browserspiel, welches auf Unity aufsetzt ein Fan-Wiki auf fandom einzurichten. Dazu möchte ich gern die 3D-Modelle / Grafiken aus dem Spiel nutzen und nicht nur auf Screens❤s aufsetzen, laut AGB lässt der Spielebetreiber für Fanseiten Screens❤s/Spielobjekte/Assets etc. zu, stellt diese selber aber nicht bereit... also muss man selber Hand anlegen. Mittels Debug-Tools im Firefox hab ich eine rund 90 MB große "data.unityweb" Datei erhalten, die konnte ich mittels Asset Studio Gui schonmal soweit entpacken, dass ich jede Menge Dateien sehe. Jetzt hab ich nur das Problem, dass ich die Sprites und 3D-Modelle (im Ordner Mesh) einzeln hab aber absolut keine Ahnung habe, wie ich die zusammenführe. [+]
PC & Konsolen SpieleBurg und Er |
Der eFlux Elektroroller Vergleich 2020: Die drei besten Modelle von eFluxElektroroller erfreuen sich wachsender Beliebtheit. Die Roller stehen für einen nachhaltigen und umweltbewussten Lebensstil. Als Ergänzung zum öffentlichen Nahverkehr bieten Elektrorollen ein zügiges Vorankommen und viele Modelle kann man ohne Probleme mit in Bus und Bahn nehmen. 57252 Bei der Wahl eines Elektrorollers gibt es einiges zu beachten und die Investition sollte gut überlegt werden. Denn in Deutschland braucht man für den Betrieb eines Elektrorollers eine Allgemeine Betrieserlaubnis (ABE), eine Versicherung und für manche Modelle sogar einen Führerschein. Im folgenden Teil des Beitrags stellen wir drei Modelle vom Hersteller eFlux vor. [+]
Auto & MotorradTommy Weber |
So funktioniert das Steuersparmodell EuropaSelbst wenn Europa gerne gemeinsam auf der Weltbühne auftritt und die Politiker immer wieder den europäischen Geist beschwören, gibt es trotzdem einen Wettbewerb innerhalb der europäischen Gemeinschaft. Bei diesem Wettbewerb handelt sich um die hart umkämpfte Unternehmenssteuer, ein Steuersparmodell, mit dem sich nicht alle anfreunden können. Seit einigen Jahren geht es darum, diesen Wettlauf um die günstigsten Steuern zu beenden, aber noch ist kein Ende in Sicht. Die Unternehmenssteuersätze sanken in den alten EU-Ländern im Schnitt von 38 auf magere 29 Prozent und das in den letzten zehn Jahren. [+]
Finanzen & VersicherungSuchergebnisse: Dell Vikings For Collectors Only help
Attention only for our english-skillers* Ich hab hier ein paar wichtige Aufgaben die ich morgen benötige.
. und zwar:
Ich bin auf eine Englische Schule gewechselt, aber meine Englischkenntnisse und dazu auch noch meine Skills in dem Fach sind - es gibt kein anderes Wort - madig.
Da mir Google nicht helfen konnte, und ich beherrsche die Suche eigentlich schon , versuch ich hier mal mein hoffentliches Glück!
Die Fragen :
List four tasks involved in the making of cakes that could be given to different workers through division of labour.
State three benefits to society of business activity.
What is meant by business objectives?
Give three examples of the kind of objectives that a business owned by private individuals could establish.
Define "added value".
How might a retailer of clothes add value to their products? .
Explain two reasons why business managers might set growth as a business objective.
List three examples, explain two reasons why conflict might occur between the objectives of these stakeholder groups.
Purbeck plc owns and manages a major leisure complex. The directors of the company are considering demolishing the complex and building a new shopping centre. The directors have different opinions about this plan.
- he Human Resources manager says, that too many groups of people would suffer from the plan. He thinks that the plan should be dropped.
- The Chief Executive says that his main responsibility is to the owners of the business and that profits should come first.
-> a) How would the workers in the leisure centre be affected by the decision?
-> b) Do you agree with the chief executive that profits should be the main aim of the business? Explain your answer.
--
Wenn mögl. nichts negatives & es ist wichtig, zumindest für mich - sofern es geht auch die antworten auf deutsch. Sofern jemand antwortet
Ich bin auf eine Englische Schule gewechselt, aber meine Englischkenntnisse und dazu auch noch meine Skills in dem Fach sind - es gibt kein anderes Wort - madig.
Da mir Google nicht helfen konnte, und ich beherrsche die Suche eigentlich schon , versuch ich hier mal mein hoffentliches Glück!
Die Fragen :
List four tasks involved in the making of cakes that could be given to different workers through division of labour.
State three benefits to society of business activity.
What is meant by business objectives?
Give three examples of the kind of objectives that a business owned by private individuals could establish.
Define "added value".
How might a retailer of clothes add value to their products? .
Explain two reasons why business managers might set growth as a business objective.
List three examples, explain two reasons why conflict might occur between the objectives of these stakeholder groups.
Purbeck plc owns and manages a major leisure complex. The directors of the company are considering demolishing the complex and building a new shopping centre. The directors have different opinions about this plan.
- he Human Resources manager says, that too many groups of people would suffer from the plan. He thinks that the plan should be dropped.
- The Chief Executive says that his main responsibility is to the owners of the business and that profits should come first.
-> a) How would the workers in the leisure centre be affected by the decision?
-> b) Do you agree with the chief executive that profits should be the main aim of the business? Explain your answer.
--
Wenn mögl. nichts negatives & es ist wichtig, zumindest für mich - sofern es geht auch die antworten auf deutsch. Sofern jemand antwortet
Na gut, überredet:
- Zutaten zusammenstellen
- Teig kneten
- Kuchen vorbereiten
- Kuchen backen
- günstigere Produktion möglich
- bessere Verteilung der Waren
- größere Mengen der Waren sind verfügbar
Geschäftsziele, d.h. Ziele, auf die ein Betrieb hinarbeitet
- Gewinnmaximierung
- Gutes Betriebsklima
- Ausbau des Geschäftsfeldes
addierter Wert = Zusatzwert eines Produkts. Mit einem added value wird ein Produkt im Vergleich zur Konkurrenz höherwertiger und somit attraktiver.
Man kann sich z.B. auf den Verkauf von umweltfreundlichen Textilien spezialisieren. Alle Produkte eines Geschäfts genügen z.B. dem Umweltengel-Standard.
- Zutaten zusammenstellen
- Teig kneten
- Kuchen vorbereiten
- Kuchen backen
- günstigere Produktion möglich
- bessere Verteilung der Waren
- größere Mengen der Waren sind verfügbar
Geschäftsziele, d.h. Ziele, auf die ein Betrieb hinarbeitet
- Gewinnmaximierung
- Gutes Betriebsklima
- Ausbau des Geschäftsfeldes
addierter Wert = Zusatzwert eines Produkts. Mit einem added value wird ein Produkt im Vergleich zur Konkurrenz höherwertiger und somit attraktiver.
Man kann sich z.B. auf den Verkauf von umweltfreundlichen Textilien spezialisieren. Alle Produkte eines Geschäfts genügen z.B. dem Umweltengel-Standard.
- Steigerung ihres eigenen Einkommens
- Arbeitsplatzsicherung in Märkten mit stärker werdender Konkurrenz
Da fehlt irgendwie was. Welche Interessengruppen sollen verglichen werden?
a) Die Mitarbeiter werden vorraussichtlich in der Mehrzahl ihren Job verlieren, da ein Beschäftiger eines Freizeitzentrums nicht in einem Einkaufszentrum tätig werden kann. Ein Fitness-Trainer eignet sich schlecht als Verkäufer von Damen-Ballerinas, ihm fehlt schlicht die entsprechende Ausbildung.
b) Gemäß dem Grundsatz, dass "Eigentum verpflichtet", sollte die Verantwortung der Geschäftführung bei ihren Planungen die Zukunft der aktuell Beschäftigten berücksichtigen. Aus diesem Grund bin ich der Auffassung, dass eine reine Ausrichtung auf Profitstreben für ein Unternehmen die sozialen Komponenten vernachlässigt und damit negative Auswirkungen haben kann. So kann z.B. der Level des sozialen Status durch Massenentlassungen zugunsten einer neuen Geschäftsidee enorm sinken, was wiederum auf das Unternehmen selbst und die Umsatzzahlen zurückschlagen kann.
- Arbeitsplatzsicherung in Märkten mit stärker werdender Konkurrenz
Da fehlt irgendwie was. Welche Interessengruppen sollen verglichen werden?
a) Die Mitarbeiter werden vorraussichtlich in der Mehrzahl ihren Job verlieren, da ein Beschäftiger eines Freizeitzentrums nicht in einem Einkaufszentrum tätig werden kann. Ein Fitness-Trainer eignet sich schlecht als Verkäufer von Damen-Ballerinas, ihm fehlt schlicht die entsprechende Ausbildung.
b) Gemäß dem Grundsatz, dass "Eigentum verpflichtet", sollte die Verantwortung der Geschäftführung bei ihren Planungen die Zukunft der aktuell Beschäftigten berücksichtigen. Aus diesem Grund bin ich der Auffassung, dass eine reine Ausrichtung auf Profitstreben für ein Unternehmen die sozialen Komponenten vernachlässigt und damit negative Auswirkungen haben kann. So kann z.B. der Level des sozialen Status durch Massenentlassungen zugunsten einer neuen Geschäftsidee enorm sinken, was wiederum auf das Unternehmen selbst und die Umsatzzahlen zurückschlagen kann.
Sorry, aber das ist einfach zu viel, um hier für dich deine homeworks zu machen. Ich könnte es dir ja ins Deutsche übersetzen, aber ich hoffe doch, dass du soviel Englisch schon kannst, um das wenigstens inhaltlich verstanden zu haben. Und die Lösung zu deinen Aufgaben solltest du dir besser selber erarbeiten.
Ich habs mir gedacht. Wie schon oben beschrieben, kann ich mir die Antworten nicht erarbeiten. Das ich die Fragen 'ansatzweise' verstehe, ist weniger mein Problem. Ich brauche auch nicht die Fragen, sondern die Antworten auf deutsch.
->> MEIN PROBLEM IST, DAS ICH DAS FACH NOCH NIE HATTE. SOMIT HAB ICH KEINE VORKENNTNISSE, UND DIE MEDIEN DIE ICH BESITZE REICHEN NICHT AUS UM SIE ZU BEARBEITEN.
Alles klar ;o?
Ich versuch hier nicht mir die Arbeit leicht zu machen.
->> MEIN PROBLEM IST, DAS ICH DAS FACH NOCH NIE HATTE. SOMIT HAB ICH KEINE VORKENNTNISSE, UND DIE MEDIEN DIE ICH BESITZE REICHEN NICHT AUS UM SIE ZU BEARBEITEN.
Alles klar ;o?
Ich versuch hier nicht mir die Arbeit leicht zu machen.
For Steuervariabel wird bereits verwendet! was bedeutet das?
Hallo nochmals,
ich habe mit hilfe con einigen "gutefrage.net" usern einen code geschrieben und versuche jzt durch "Copy-Paste" es für jede Zelle anzuwenden.
Beim For-Befehl kommt immer folgende Meldung "For Steuervariabel wird bereits verwendet"
was bedeutet das? heißt es, das man das "For" nur einmal in einem code gebrauchen kann? wäre vielleicht ein "GoTo" befehl angebrachter?
hier ist der code:
sub kopieren()
Dim Zelle As Range Dim Wert As Variant
Wert = ActiveSheet.Range("J16:j29")
With Sheets("Tabelle2""F6:G6")
If ("J16"
Or "J16")
Or "J16" Then
Zelle.Value = ActiveSheet.Range("J17")
Else
Zelle.Value = ActiveSheet.Range("J16")
With Sheets("tabelle2")
For Each Zelle In.Range("H6:I6")
If ("J17"
Or "J17")
Or "J17" Then
Zelle.Value = ActiveSheet.Range("J18")
Else
Zelle.Value = ActiveSheet.Range("J17")
End If End With End If Next Zelle End With End Sub
schonmal für eure Tatkräftigen Hilfen
ich habe mit hilfe con einigen "gutefrage.net" usern einen code geschrieben und versuche jzt durch "Copy-Paste" es für jede Zelle anzuwenden.
Beim For-Befehl kommt immer folgende Meldung "For Steuervariabel wird bereits verwendet"
was bedeutet das? heißt es, das man das "For" nur einmal in einem code gebrauchen kann? wäre vielleicht ein "GoTo" befehl angebrachter?
hier ist der code:
sub kopieren()
Dim Zelle As Range Dim Wert As Variant
Wert = ActiveSheet.Range("J16:j29")
With Sheets("Tabelle2""F6:G6")
If ("J16"
Or "J16")
Or "J16" Then
Zelle.Value = ActiveSheet.Range("J17")
Else
Zelle.Value = ActiveSheet.Range("J16")
With Sheets("tabelle2")
For Each Zelle In.Range("H6:I6")
If ("J17"
Or "J17")
Or "J17" Then
Zelle.Value = ActiveSheet.Range("J18")
Else
Zelle.Value = ActiveSheet.Range("J17")
End If End With End If Next Zelle End With End Sub
schonmal für eure Tatkräftigen Hilfen
Nein, darum geht es nicht.
Du hast ZWEI For-.Next-Schleifen ineinander geschachtelt, das ist möglich, und kein Problem.
Allerdings nutzt Du bei der zweiten Schleife die gleiche Variable, nämlich "Zelle" wie in der übergeordneten.
DAS ist der Fehler.
Schreibe in die ERSTE Zeile:
sub kopieren()
Dim Zelle As Range Dim Zelle2 As Range Dim Wert As Variant
UND dann in die zweite Schleife,
For Each Zelle2 In.Range("H6:I6")
.
Zelle2.Value = ActiveSheet.Range("J18")
.
Zelle2.Value = ActiveSheet.Range("J17")
.
Dann sollte es klappen.
ODER?
P.S.: Ich habe den Code nicht weiter überprüft (fehlt da vlt. noch ein Next?, dann "Next Zelle2".)
Habe leider keine Zeit mehr, muss zur Arbeit.
Melde Dich wenn es noch Probleme gibt.
Du hast ZWEI For-.Next-Schleifen ineinander geschachtelt, das ist möglich, und kein Problem.
Allerdings nutzt Du bei der zweiten Schleife die gleiche Variable, nämlich "Zelle" wie in der übergeordneten.
DAS ist der Fehler.
Schreibe in die ERSTE Zeile:
sub kopieren()
Dim Zelle As Range Dim Zelle2 As Range Dim Wert As Variant
UND dann in die zweite Schleife,
For Each Zelle2 In.Range("H6:I6")
.
Zelle2.Value = ActiveSheet.Range("J18")
.
Zelle2.Value = ActiveSheet.Range("J17")
.
Dann sollte es klappen.
ODER?
P.S.: Ich habe den Code nicht weiter überprüft (fehlt da vlt. noch ein Next?, dann "Next Zelle2".)
Habe leider keine Zeit mehr, muss zur Arbeit.
Melde Dich wenn es noch Probleme gibt.
NACHTRAG:
Ich sehe gerade, die Schleifen müssen nicht unbedingt geschachtelt sein, dann reich vlt. auch:
.
Zelle.Value = ActiveSheet.Range("J16")
Next Zelle
With Sheets("tabelle2")
.
Also die erste Schleif abschließen, dann die zweite starten. DAS kannst Du mit EINER Variablen machen.
Ich sehe gerade, die Schleifen müssen nicht unbedingt geschachtelt sein, dann reich vlt. auch:
.
Zelle.Value = ActiveSheet.Range("J16")
Next Zelle
With Sheets("tabelle2")
.
Also die erste Schleif abschließen, dann die zweite starten. DAS kannst Du mit EINER Variablen machen.
Hallo Oubyi,
ich habe es so eingefügt wie du gesagt hast, siehe code :
Sub Kopieren()
Dim Zelle As Range
Dim zelle2 As Range
Dim Wert As Variant
Wert = ActiveSheet.Range("J16:j17")
With Sheets("Tabelle2")
For Each Zelle In.Range("F6:G6")
If ("J16"
Or "J16")
Or "J16" Then
Zelle.Value = ActiveSheet.Range("J17")
Else
Zelle.Value = ActiveSheet.Range("J16")
With Sheets("Tabelle2")
For Each zelle2 In.Range("H6:G6")
If ("J17"
Or "J17")
Or "J17" Then
zelle2.Value = ActiveSheet.Range("J18")
Else
zelle2.Value = ActiveSheet.Range("J17")
End If
Next Zelle
End With
Next zelle2
End Sub
Beim ausführen des Codes erscheint folgende Meldung :
"ungültiger Verweis auf Next Steuervariable"
habe ich da was übersehen oder vergessen?
ich habe es so eingefügt wie du gesagt hast, siehe code :
Sub Kopieren()
Dim Zelle As Range
Dim zelle2 As Range
Dim Wert As Variant
Wert = ActiveSheet.Range("J16:j17")
With Sheets("Tabelle2")
For Each Zelle In.Range("F6:G6")
If ("J16"
Or "J16")
Or "J16" Then
Zelle.Value = ActiveSheet.Range("J17")
Else
Zelle.Value = ActiveSheet.Range("J16")
With Sheets("Tabelle2")
For Each zelle2 In.Range("H6:G6")
If ("J17"
Or "J17")
Or "J17" Then
zelle2.Value = ActiveSheet.Range("J18")
Else
zelle2.Value = ActiveSheet.Range("J17")
End If
Next Zelle
End With
Next zelle2
End Sub
Beim ausführen des Codes erscheint folgende Meldung :
"ungültiger Verweis auf Next Steuervariable"
habe ich da was übersehen oder vergessen?
HI
habe meinen Fehler entdeckt,
statt :
Next zelle1
next Zelle2
Next Zelle3
musste ich :
next zelle3
next zelle2
next zelle1
hinschreiben, sprich alles umgekehrt. weiß zwar nicht ganz warum der Befehl so geschrieben werden soll aber es funktioniert
1000 DANK! newb
habe meinen Fehler entdeckt,
statt :
Next zelle1
next Zelle2
Next Zelle3
musste ich :
next zelle3
next zelle2
next zelle1
hinschreiben, sprich alles umgekehrt. weiß zwar nicht ganz warum der Befehl so geschrieben werden soll aber es funktioniert
1000 DANK! newb
Ich versuche es mal:
1.
WAS sollen diese beiden Zeilen:
Dim Wert As Variant Wert = ActiveSheet.Range("J16:j17")
Macht keinen Sinn, und würde wohl auch nicht funktionieren.
2.
Einmal: With Sheets("Tabelle2")
genügt.
3.
Du hast die beiden For Next Schleifen geschachtelt, ich denke das macht hier keinen Sinn.
4.
So würde der Code zumindest laufen:
Sub Kopieren()
Dim Zelle As Range
Dim zelle2 As Range
With Sheets("Tabelle2")
For Each Zelle In.Range("F6:G6")
If ("J16" _
Or "J16") _
Or "J16" Then
Zelle.Value = ActiveSheet.Range("J17")
Else
Zelle.Value = ActiveSheet.Range("J16")
End If
Next Zelle
'''''''''''''''
For Each zelle2 In.Range("H6:G6")
If ("J17" _
Or "J17") _
Or "J17" Then
zelle2.Value = ActiveSheet.Range("J18")
Else
zelle2.Value = ActiveSheet.Range("J17")
End If
Next zelle2
End With
End Sub
Allerdings passiert direkt noch nichtst, Du weist nur den beiden Variablen Zelle und zelle2 Werte zu.
Ich denke, was Du damit machen willst kommt dann wohl noch.
Gehe den Code mal mit F8 Step by Step durch.
fürs ☆
1.
WAS sollen diese beiden Zeilen:
Dim Wert As Variant Wert = ActiveSheet.Range("J16:j17")
Macht keinen Sinn, und würde wohl auch nicht funktionieren.
2.
Einmal: With Sheets("Tabelle2")
genügt.
3.
Du hast die beiden For Next Schleifen geschachtelt, ich denke das macht hier keinen Sinn.
4.
So würde der Code zumindest laufen:
Sub Kopieren()
Dim Zelle As Range
Dim zelle2 As Range
With Sheets("Tabelle2")
For Each Zelle In.Range("F6:G6")
If ("J16" _
Or "J16") _
Or "J16" Then
Zelle.Value = ActiveSheet.Range("J17")
Else
Zelle.Value = ActiveSheet.Range("J16")
End If
Next Zelle
'''''''''''''''
For Each zelle2 In.Range("H6:G6")
If ("J17" _
Or "J17") _
Or "J17" Then
zelle2.Value = ActiveSheet.Range("J18")
Else
zelle2.Value = ActiveSheet.Range("J17")
End If
Next zelle2
End With
End Sub
Allerdings passiert direkt noch nichtst, Du weist nur den beiden Variablen Zelle und zelle2 Werte zu.
Ich denke, was Du damit machen willst kommt dann wohl noch.
Gehe den Code mal mit F8 Step by Step durch.
fürs ☆
hab zwar kein plan, welche sprache das ist, aber: wo endet die for-schleife?
VBA -Sprache
die Schleife endet da wo "Next Zelle" steht beantwortet das deine frage?
die Schleife endet da wo "Next Zelle" steht beantwortet das deine frage?
Please Help me modify my Macro
What the macro doas: It lists all files in the chosen filesystem. in range A it writes the addres, in range B it writes the filename What i need to be added: in range C it writes the last changedate the matching command must be: ".DateLastModified " i have tried again and again but keep getting error messages-.-
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
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
Ja aber das modifizieren war nicht so tragisch. Hab ja nur 2 Zeilen eingefügt bzw 2 mal kopiert und 3 Worte und 2 Zahlen geändert.
WOW, du hast sogar die gleiche variable wie ich benutzt . Im Grunde ist es einläuchtend, was du gemacht hast und ich habe genau das gleich versucht und zwar ca. 1,5 Stunden am Stück, warum das jetzt auf einmal läuft und vorher nicht ist mir ein Rätsel, den Goldenen Stern hast du dir verdient
ich hätte das DH mehrfach vergeben. aber schau Dir trotzdem die beiden Links an, probiere die integrierte Eigenschaft mit Nummer auch mit anderen Nummern aus oder such sonst im Netz was dazu.
Ich weiß nicht wie ich dazu gekommen bin das jetzt auf englisch zu schreiben, also hier nochmal in deutsch:
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
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
Da ich lange nichts mehr mit VBA gemacht habe und da nur in Word, kann ich dir da leider nicht weiterhelfen, aber ich verweise dich da gerne auf das Forum von Microsoft.
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
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
i've found sth similar in :
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
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
machst du dich über mein Englisch lustig? o.o
lustig macht er sich nicht, aber perfekt ist es auch nicht.
Power Point 2013 Testversion! NEED HELP
Wenn ich mir die Testversion runterlade, wo geregelt ist das es nach 60 Tagen abläuft muss ich das dann iwie abmelden oder bin ich dann trotzdem kaufpflichtig? Oder kann ichs danach einfach deinstallieren ohne Probleme?
Wenn nein, könnt ihr mir bitte ieine Seite sagen wo man power point ohne den Product Key runterladen kann? -.-
Wenn nein, könnt ihr mir bitte ieine Seite sagen wo man power point ohne den Product Key runterladen kann? -.-
Die Testversion laeuft nach 60 Tagen automatisch ab. Du kannst aber kurz vor Ablauf das Programm ospprearm.exe mit Admin-Rechten ausfuehren, dann wird der Testzeitraum zurueck gesetzt, und die 60 Tage fangen von vorn an.
Es ist eine Testversion. Du MUSST dir das Programm nach ablaufen der Zeit NICHT kaufen, wenn du es aber deinstallierst und wieder installierst wird das die Probezeit nicht verlängern oder zurücksetzen. Generelles deinstallieren wird aber kein Problem sein.
Meint er es Ernst? help
Hallo. Ich bin 17 und kenne jemanden der ist 18. Wir haben vor längerer Zeit mal geschrieben und er wollte sich auch treffen aber er hat zu der Zeit eine Affäre gesucht. Ich will/wollte das nicht und habe deshalb den Kontakt abgebrochen. Vor 1 Monat haben wir wieder angefangen zu schreiben. Er ist eigentlich wirklich süß und ich habe ihm von Anfang an gesagt dass ich nach wie vor nicht an etwas körperlichem interessiert bin. Das war auch okay für ihn und er meinte er ist mit ner Weile auch an etwas Ernstem interessiert und wollte das damals nicht weil er bald etwas weiter weg studieren geht. Dann wir haben so über sexuelles geredet und er meinte er würde gerne mal "mehr machen". Und da habe ich ihn wieder drauf hingewiesen, dass ich nichts körperliches will und er meinte er will wirklich was Ernstes aber schon auch mit Körperkontakt in der Beziehung. Wir wollen uns bald treffen. Haben wir noch nicht und ich wäre von einer Beziehung auch nicht abgeneigt und körperliches gehört auch dazu. Da haben wir auch überall schon drüber gesprochen und ich meinte auch dass wenn wir wirklich zusammen kommen sollten er mir Zeit geben muss und ich nicht direkt mit ihm schlafe usw. Und er meinte auch dass das kein Problem ist. Aber er hat auch schon einmal gefragt wie viele Treffen ich bräuchte bis ich jemandem einen blase. Da hab ich ihm auch gesagt dass ich die Frage sehr unangebracht finde und er hat sich entschuldigt. Insgesamt glaube ich ihm eigentlich schon dass er was Ernstes will aber ich hab dann etwas schiss dass er mich zu sehr unter Druck setzt. Andererseits sind Jungs in diesem Alter halt auch darauf aus und es ist ihnen halt wichtig und mit 17&18 auch durchaus normal finde ich. Nur macht er manchmal so perverse Andeutungen dass er mich geil findet oder so und das finde ich komisch. Ist das normal? Wir reden aber auch über ganz normale Sachen also persönliches und so. Es geht nicht nur um das Thema MEINE FRAGE: Was denkt ihr? Will er nur was Körperliches? Oder glaubt ihr dass da eine wirkliche Beziehung draus werden kann? FÜRS LESEN Wenn noch Fragen bestehen beantworte ich sie gerne.
Das habe ich letztens gefragt. Auf eine Antwort hin habe ich ihm einfach genau das geschrieben und er hat mit geschworen dass er es Ernst meint aber jetzt ist er zurückhaltender weil er es schade findet dass ich sowas von ihm denke. Was denkt ihr? Was soll ich tun?
Das habe ich letztens gefragt. Auf eine Antwort hin habe ich ihm einfach genau das geschrieben und er hat mit geschworen dass er es Ernst meint aber jetzt ist er zurückhaltender weil er es schade findet dass ich sowas von ihm denke. Was denkt ihr? Was soll ich tun?
Bitte sei mir nicht böse, aber ich habe ein bisschen das Gefühl du bist blind.
Ihr habt euch noch nie getroffen oder kennt euch noch nicht persönlich, oder?
Ich finde, dass er es nicht ernst meint bzw nur so lange darauf wartet, bis er mit dir geschlafen hat und ist dann wieder weg.
Wenn er es wirklich ernst meinen würde, dann hättet ihr euch schon viel früher getroffen und er hätte darauf bestanden. Ansonsten meint er es nicht wirklich ernst.
Ihr habt euch noch nie getroffen oder kennt euch noch nicht persönlich, oder?
Ich finde, dass er es nicht ernst meint bzw nur so lange darauf wartet, bis er mit dir geschlafen hat und ist dann wieder weg.
Wenn er es wirklich ernst meinen würde, dann hättet ihr euch schon viel früher getroffen und er hätte darauf bestanden. Ansonsten meint er es nicht wirklich ernst.
Jungs in dem Alter müssen nicht so sein. Wie sie untereinander reden, ist etwas anderes, aber Mädchen gegenüber gehört sich so etwas nicht. Vielleicht ist er doch noch etwas unreif für eine feste Beziehung. Das wäre in dem Alter durchaus in Ordnung. Belasse es doch erstmal bei einer netten Bekanntschaft, aus der ggf. mehr werden kann. Dann merkst Du schnell, wie ernst es ihm ist.
Zu aller Erst mach dir keine Gedanken. Lass dich nicht von ihm unter Druck setzen. Für mich sieht es so aus als hätte er evtl schon irgendwo Interesse an dir beziehungstechnisch aber trotzdem steht für ihn das Körperliche sehr im Vordergrund. Du musst dir kein schlechtes Gewissen machen nur weil du antwortest was du denkst! Wenn man sich wirklich liebt dann kommt sowas von ganz alleine glaub mir. Aber trotzdem kommt es für mich so rüber als wäre er nur sexuell an dir interessiert. Es liegt an dir was du machst, ich will dir auch nicht sagen was du machen sollst. Du kannst dich gerne mit ihm treffen aber sobald er dir deutlich zeigt dass er nur auf eins hinaus will dann unterbinde das auf jeden fall wenn du nicht willst. Du musst dich zu nichts zwingen lassen
Lol. Männer. Spätestens jetzt solltest du erkennen, dass er nur "das eine" will. Ist aber auch nichts Ungewöhnliches. Nur bei manchen "Männern" merkt man es schneller, bei manchen langsamer. Wenn du eher etwas ernstes willst dann lass dich nicht ausnutzen. Wenn du ihn liebst und du dich auf ihn einlässt ist die Chance verletzt zu werden ziemlich hoch. Also würde ich mich entweder für Spaß entscheiden. oder dafür, dass du deine wertvolle Jungfräulichkeit noch eine Weile behältst.