Anlässlich des 2. Jahrestages der Snowden-Enthüllungen hat Anna bei Netzpolitik.org ein ziemlich umfangreiches Special zur digitalen Selbstverteidigung verfasst, dass viele hilfreiche Links enthält. In die selbe Richtung geht der Artikel Schützt euch vor (staatlichen) Schnüfflern – sichert eure Kommunikation auf linksunten.indymedia.org. [+]
hey,
ich denke die meisten wissen was Snowballing ist, auch wen sie den Begriff noch nicht kannten.
Geht mal bitte auf den Wiki-Artikel hier: de.wikipedia.org/wiki/Snowballing
Ein Blick auf das Bild und es sollte jedem recht klar sein....jetzt geht mal bitte auf die Englische Version und seht euch das Bild erneut an.
Wer kann mir das jetzt erklären?^^
Andere Länder, andere Sitten? [+]
Skifahren kann ich gut und ich liebe meine zwei Bretter sehr! Allerdings würde ich gern noch Snowboarden lernen, denke ich.
Einmal habe ich es versucht. Gemeinsam mit meinem Vater. Bei mir war die Bindung für die Füße so eigenartig eingestellt, dass ich nur auf der Nase lag. Bei meinem Papa hat es damals ganz gut mit dem Snowboarden geklappt. So gut, dass er sich am Schluss den Mittelhandknochen gebrochen hat. Weil das mit dem Bremsen noch nicht so gut geklappt hat :evil:
Den nächsten Winter und alle folgenden Winter sind wir dann bei den Skiern geblieben. Aber mich würde, wie gesagt, Snowboarden schon auch noch reizen. [+]
raidrush.org/p❤o/news/18335.jpg
Der US-Whistleblower Edward Snowden verhandelt laut einem aktuellen Bericht mit der US-Regierung über eine Rückkehr in die Vereinigten Staaten. Zudem laufen derzeit Verhandlungen mit der Bundesregierung, um Snowden eine Aussage vor dem NSA-Untersuchungsausschuss zu ermöglichen. Unter bestimmten Bedingungen wäre Edward Snowden zu einer Rückkehr in die USA bereit, heißt es in einem Bericht des Spiegel. Weiterlesen... [+]
Netzwelt
Suchergebnisse: Snow Patrol Songs for Polar Bears help
Snow Patrol - Chasing Cars. Was bedeutet der Songtitel übersetzt?
die wörter verstehe ich - schätze aber das "chasing cars" umgangssprachlich eine andere Bedeutung hat. Wer weiß mehr?
das was chica rubia da sagt, weisst du wohl schon selbst.
chasing cars im lied hat keine tiefere bedeutung als der zeit mit jemandem zu verbringen, ohne sich gedanken um etwas zu machen. solange man noch jung ist.
ich seh das ganz anderes, ich bin wirklich der Meinung das "Chasing Cars" eines der ehrlichsten Lieder der Zeiten ist, den so wie ich es interpretiere geht es darum, dass wir alle immer behaupten wir brauchen nichts und niemanden. Wir dazu neigen dinge zu tun oder zu sagen die völlig am falschen platz oder viel zu früh gesprochen oder getan werden, wie er singt "those three words i said too much" ich liebe dich und wir durch solche dummheiten verletzt werden und dies alles letztendlich nur geschieht, wenn wir einen menschen zu nah an uns heran lassen!
Ich hoffe du weißt was ich mit meinem text aussagen will!
Welche Rock/Pop Songs sind/wurden noch speziell für den Valentinstag komponiert, wie zum Beispiel Bullet for my valentine - Bittersweet Memories?
Bildquelle+Tonquelle:
Bullet for my valentine - Bittersweet Memories - YouTube
ღ White Ash - Would You Be My Valentine?
ღ Lotte Mulan - Valentine Song
ღ New Kids On The Block - Valentine Girl
ღ Owl City - Happy Valentine's Day
Hey deddy, guckst du: Songs With Valentine In The Title at Tunecaster
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
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?
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
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.
Teile von Songs singen und erkennen lassen, wo?
Ich habe mal ne Seite gehabt auf der konnte ich teile eines Songs summen oder singen und dann hat die Website automatisch nach passenden Songs gesucht. Die war immer sehr hilfreich. Aber da mein PC nen Totalschaden durch mich bekam wollte ich fragen ob jemand von euch IQlern die Adresse dazu hat?
Search for Music Using Your Voice by Singing or Humming, View Music Videos, Join Fan Clubs, Share with Friends, Be Discovered and Much More For Free! - midomi.com
Angeblich erkennen musicline und musicload vorgesummte Lieder.
Find das aber auf den HPs nicht Oo
Hier die Links:
Musicload - Home
Die ganze Musik im Internet: Charts, Neuerscheinungen, Tickets, Genres, Genresuche, Genrelexikon, Künstler-Suche, Musik-Suche, Track-Suche, Ticket-Suche - musicline.de
Von da hab ich das, dass die das erkennen sollten:
Songerkennung mittels Internet? - Forum - CHIP Online
Ja, weil ich meine Eltern davon überzeugen musste mir n bisschen Geld für nen neuen zu geben, aber solang der alte noch funzte wollten sie des net, also schnell mal Totalschaden fabrizieren, sie verstehn ja net soviel davon
