Ja, ich weiß was das ist und was man dagegen machen kann, da ich es selbst mal hatte. Wollte dir ja eig helfen, aber wenn ich ignoriert werde, find dich damit ab, mit dem zu leben.
Der ist erst Airing, von daher kannst du dub komplett vergessen.... Ist ja noch nichtmal auf Japanisch komplett raus und Eng sub / ger sub (dauert länger als eng sub) ist momentan auf pure-anime.biz erhältlich (ger sub aber nicht allzu weit, wirst auch nirgendwo wirklich weiter finden ger)
http://www.onepiece-tube.com/anime-folge
SAO ist einfach nur ein MMORPG und die Technik ist garantiert nicht so weit, dass du ins Spiel rein kommst mit deinem Körper...
Kore und Kono sind 2 verschiedene Wörter(Siehe Antwort Manashiro);
- Kore/Kono = Nahe an dem Sprecher (= Dieses hier bei dir)
- Sore/Sono = Nahe an dem Angesprochenen (=Das dort bei dem Angesprochenen)
- Are/Ano = In etwa auf gleicher Entfernung zu Beiden, allerdings weiter weg. (=Das dort hinten)
Lies ihn doch selbst, wenn es dich so interessiert? Spoilert nur unnötig Dritte...
Könnte dir folgendes anbieten, allerdings ZÄHLT das die Anzahl von jedem und zeigt dir dann an, wie oft jedes vorkommt; Kann dir auch noch eines anbieten, dass alle doppelten rot färbt (erstes ist nicht dabei, also ab den 2ten alles rot) falls dir das lieber ist. Hoffe ich konnte helfen (P.S. du musst den Zellennamen umändern [bei mir ists der name CSED_KSTL, kannste ja nach belieben umändern])
Sub Filtermöglichkeiten()
Dim objDic As Object
Dim letzteZelle As Range
Dim Bereich As Range
Dim zelle As Range
With Worksheets(1)
Set letzteZelle = .Range("CSED_KSTL").End(xlDown)
Set Bereich = Range(.Range("CSED_KSTL").Offset(1), letzteZelle)
Set objDic = CreateObject("Scripting.Dictionary")
For Each zelle In Bereich
If Not objDic.Exists(zelle.Value) Then
objDic.Add zelle.Value, 1
Else
objDic.Item(zelle.Value) = _
objDic.Item(zelle.Value) + 1
End If
Next
End With
Worksheets(2).Activate
Worksheets(2).Range("A1").Resize(objDic.Count, 1) = WorksheetFunction.Transpose(objDic.keys)
Worksheets(2).Range("B1").Resize(objDic.Count, 1) = WorksheetFunction.Transpose(objDic.items)
End Sub
Anfangen könnte man mit Satzzeichen, Groß- und Kleinschreibung, nur einen Beistrich setzen und und und... Und die "Weisheit" kommt aus Schule, Erfahrungen und Aktivitäten (zum Beispiel, wenn du eine andere Sprache lernen willst und es dann auch alleine tust [find ich eigentlich besser als Schule, dennoch ist Schule wichtig])
HTL/TGM Matura abschließen oder eine Lehre machen für den Titel Ingenieur und die Gehälte sind unterschiedlich, wo du halt arbeitest dann, solltest dich dort am besten selbst erkunden