Velvet Viper 4th Quest For Fantasy Help / RR:Suche

hallo ich bin ein riesen Fan von Fantasy Büchern wie zum beispiel Rubinrot und sowas. Könntet ihr mir vielleicht ein paar gute Fantasy Bücher empfehlen?

Vielleicht diese

• Tad Williams - Otherland Saga + Shadowmarch Reihe
• Rick Riordan - Percy Jackson Reihe + Helden des Olymp Reihe + Kane Chroniken
• Dawn Cook - Bücher der Wahrheiten
• Angie Sage - Septimus Heap Reihe
• Joanne K. Rowling - Harry Potter Reihe
• Cornelia Funke - Tintenwelt Trilogie
• James Dashner - Die Auserwählten: Im Labyrinth / In der Brandwüste / In der Todeszone
• Ursula Poznanski - Erebos + Saeculum
• Rainer Wekwerth - Labyrinth Trilogie
• Michael Scott - Die Geheimnisse des Nicholas Flamel Reihe
• Kai Meyer - Die Alchimistin Reihe
• Thomas Thiemeyer - Die Chroniken der Weltensucher Reihe
• Trudi Canavan - Kyralia Reihe + Ithania Reihe
• Jonathan Stroud - Bartimäus Reihe
• Ursula K. Le Guin - Erdsee Zyklus
• Lewis Carrol - Alice im Wunderland
• Neil Gaiman - Der Sternwanderer + Coraline + The Graveyard Book
• Christopher Paolini - Eragon Reihe
• Bernhard Hennen - Die Elfen + Elfenritter + Drachenelfen Reihen
• Karen Thompson Walker - Ein Jahr voller Wunder
• Alice Hoffman - Märzkinder
• Rachel Ward - Numbers Trilogie
• Audrey Niffenegger - Die Frau des Zeitreisenden
• Gabriella Engelmann - Hundert Jahre ungeküsst
• Holly-Jane Rahlens - Everlasting
• Ellen Apsten - Sommernachtszauber

usw. +

Schattenstunde, Seelennacht, Höllenglanz- Kelley Armstrong
Nach dem Sommer, Ruht das Licht, in deinen Augen-Maggie Stiefvater
Chroniken der Unterwelt-Cassandra Clare
Mortal Kiss-Alice Moss
Engel der Nacht-Becca Fitzpatrick
Daughter of Smoke and Bone-Laini Taylor
Göttlich Reihe- Josephine Angelini
Blood and chocolate -Annette Curtis Klause
Wenn auch ohne Liebe bzw lovestory/:
Mitternachtszirkus- Darren Shan
Ich bin Nummer vier- Pittacus Lore
der kleine Hobbit-J.R.R. Tolkien
Herr der Ringe-J.R.R. Tolkien
Sehr zu empfehlen auch Pery Jackson von Rick Riordan und die Folgebuchreige: Helden des Olymp.
, Amy21

Firelight-Brennender Kuss:
Als sie Will zum ersten Mal sieht, flieht Jacinda vor dem Jungen mit den haselnussbraunen Augen. Denn sie hat ein Geheimnis: Sie ist eine Draki, ein Mädchen, das sich in einen Drachen verwandeln kann. Nur in ihrem Rudel, hoch oben in den Bergen, glaubt sich Jacinda sicher. Sicher vor den Drachenjägern, die es auf ihre schillernde Haut und ihr purpurfarbenes Blut abgesehen haben. Doch im Rudel braut sich Unheil zusammen. Hat es damit zu tun, dass Jacinda den gut aussehenden Cassian, den zukünftigen Leitdrachen, heiraten soll? Ihre Mutter verschweigt ihr etwas, als sie bei Nacht und Nebel das Dorf verlassen. Todunglücklich beginnt Jacinda ein neues Leben. Da trifft sie Will wieder und Hals über Kopf verliebt sie sich in ihn. Aber ihre Liebe darf nicht sein denn Will ist ein Drachenjäger.
Mythos Academy-Frostkuss: Sie sind die Nachkommen sagenhafter Kämpfer wie Spartaner, Amazonen oder Walküren und verfügen über magische Kräfte. Auf der Mythos Academy lernen sie, mit ihren Fähigkeiten umzugehen und sie richtig einzusetzen. Im Mittelpunkt der Serie steht die 17-jährige Gwen Frost, die über ein außergewöhnliches Talent verfügt: Sie besitzt die »Gypsy-Gabe« – bei der eine einzige Berührung ausreicht, um alles über einen Gegenstand oder einen Menschen zu wissen. Doch dabei spürt Gwen nicht nur die guten Gefühle, sondern auch die schlechten und die gefährlichen. Auf der Mythos Academy soll sie lernen, mit ihrer Gabe sinnvoll umzugehen. Aber was Gwen nicht weiß: Die Studenten werden dort ausgebildet, um gegen den finsteren Gott Loki zu kämpfen. Und obwohl sie der Meinung ist, an der Mythos Academy nichts verloren zu haben, erkennt Gwen bald, dass sie viel stärker ist als gedacht und all ihre Fähigkeiten brauchen wird, um gegen einen übermächtigen Feind zu bestehen.
Touched-Preis der Unsterblichkeit: Wie ein feuriger Blitzschlag. fühlt es sich an, als Asher in Remys Leben tritt. Doch sich ihm zu nähern, bedeutet tödliche Gefahr. Funken sprühen, wenn sie sich berühren, und diese machtvolle Energie ist kaum zu bändigen. Aber Remy will nichts mehr riskieren, zu lange hat sie gelitten unter ihrem gewalttätigen Stiefvater und der Feigheit ihrer Mutter, deren Schmerzen sie immer wieder auf sich nahm. Denn Remy verfügt über eine einzigartige Fähigkeit: Sie kann Menschen durch Berührung heilen. Im friedvollen Maine, wo ihr leiblicher Vater mit seiner neuen Familie lebt, will sie endlich ein normales Leben führen. Doch kann sie ihrem Schicksal entrinnen? Kann sie Asher entkommen?

Christoph Marzi, "Lumen"/ "Lilith"/ "Lycidas" , fand ich ganz witzig.

, wurde mir als Dreiteiler geschenkt, aber okay, dann gibt´s wohl doch ein "richtiges Ende".
Ich find´s immer noch "ganz witzig", aber das habe ich ja als MEINE MEINUNG gekennzeichnet, oder? zurück!

Jugendbücherreihe : Viral von Kathy Reichs sind Fantasy - Thriller

Osten-Ard-Saga - Tad Williams Der dunkle Turm - Steven King Game of Thrones - George R.R. Martin

Skullduggery Pleasant, City of Bones, Witch and Wizard

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

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.

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.

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?

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

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 ☆

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?

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

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

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

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

machst du dich über mein Englisch lustig? o.o

lustig macht er sich nicht, aber perfekt ist es auch nicht.

Ich bin mal wieder auf der Suche nach neuen guten filmen, für meine kollektion!

bei filmen die mystik und fantasy umfassen, denke ich an filme wie
Donnie Darko,
Harry Potter,
Herr der Ringe,
Das zehnte Königreich,
Prestige,
etc.

was kennt ihr für gute filme, die dem gerne mystik und fantasy zu zu ordnen sind?

ich hoffe auf zahlreiche antworten

Edward mit den Scherenhänden ist toll!
Dann vielleicht noch
Das letzte Einhorn
Charlie und die Schokoladenfabrik
Jumanji
Highlander
D ragonheart
Die unendliche Geschichte

pans labyrinth,brothers grimm,sleepy hollow

Tintenherz
Big Fish
Willow
Sweeney Todd
Brasil
der König der Fischer

Der Goldene Kompass
Der Hexenclub
Pans Labyrinth
Hellboy
The Crow
Wächter der Nacht / Wächter des Tages
Krabat
Der Sternwanderer

vielleicht auch noch
Tideland

Die Chroniken von Narnia

Hier mal ein Trailer

Es gibt auch bereits 2 oder mehr Teile davon.

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? -.-

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.