V For Vendetta / RR:Suche

Angerfist - Terror Of My Speedcore - YouTube

Das ist Angerfist.

Airbeat One 2012 - LineUp und Bands im Archiv

schau mal da

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?

ich hab die selbe graka, einen prozessor von intel (der aber in etwa der leistung des amd fx-6300 entspricht und habe sogar nur 4gb ram. ich kriege bei gta 5 auf hoch etwa 50fps, also solltest dir da keine gedanken machen. minecraft sind mit shader aufjeden fall noch mehr fps drin und cs go hab ich auch meistens über 60fps.

bitte, und glaub nicht sofort leuten, wenn sie sagen dass der für gta 5 nicht gut ist. Bei gta 5 denken die meisten immer, dass man extrem den high-end pc braucht was garnicht stimmt

Er ist gut für CS:GO aber für GTA V ist er glaube ich nicht so toll
also mein bruder hat den selben und er läuft bei allem SUUUUPER flüssig aber bei GTA V laggt es ein bisschen und bei Minecraft trotz shader und mods alles gut! also FPS
:CSGO: 60
GTA V:20
Minecraft 60 FPS
Also guter PC!

nein er spielt auf guter qualli und wir haben auch nich das beste internet also der pc ist wirklig nicht schlecht natürlich kommt es drauf an ob du Viren,Hacks,Viele programme drauf haben willst

Kann man Stereolautsprecher als Dolby Digital erweiterung vür die Center usw benutzen?

Prinzipiell kannst Du beliebige Lautsprecher in einer Surround-Anlage kombinieren, solange ihre Anschlusswerte einigermaßen zum Verstärker oder AV-Receiver passen. Allerdings sollte sich ihre Klang-Charakteistik nicht allzu sehr unterscheiden. Klingt zum Beispiel der Center-Lautsprecher deutlich dumpfer als die beiden Frontboxen, verändert ein Auto, das von rechts nach links durchs Bild fährt, sein Motogeräusch, was unnatürlich wirkt.

Hallo.Ich habe eine Frage : Wie kann ich in Gta Online wenn ich einen Job mache den Voicechat von anderen muten
PS: Ich habe die nicht angerufen.

Unter Start -> Online -> Spielerliste -> Und dann die muten -> muss man glaube immer wieder machen ist etwas nervig!
PS: Keine Ahnung ob das ganz genau stimmt, ist aus dem Kopf heraus