HERBERS Excel-Forum - das Archiv
Thema: Frage zu Code
-
Frage zu CodeFrank
-
Sicher, aber besser mit DateiMichael
-
na, wenn Du willstMichael
-
AW: na, wenn Du willstFrank
-
liest Du, was ich schreibe?Michael
-
Krasse Mißverständnisse,Michael
-
AW: Frage zu CodeSepp
-
AW: Frage zu CodeFrank
-
AW: Frage zu CodeSepp
-
AW: Frage zu CodeFrank
-
AW: Frage zu CodeGerd
-
AW: Frage zu CodeFrank
-
AW: Schade,Gerd
-
AW: Schade,Frank
Frage zu Code
Frank
Hallo Zusammen und noch einen schönen Sonntag!
Ich habe mir folgenen Code zusammen geschustert:
For i = 2 To 19
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("C1") Then
Sheets("Platzierungen").Cells(i, 3) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 21 To 38
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("D1") Then
Sheets("Platzierungen").Cells(i - 19, 4) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 40 To 57
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("E1") Then
Sheets("Platzierungen").Cells(i - 38, 5) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 59 To 76
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("F1") Then
Sheets("Platzierungen").Cells(i - 57, 6) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 78 To 95
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("G1") Then
Sheets("Platzierungen").Cells(i - 76, 7) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 97 To 114
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("H1") Then
Sheets("Platzierungen").Cells(i - 95, 8) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 116 To 133
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("I1") Then
Sheets("Platzierungen").Cells(i - 114, 9) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 135 To 152
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("J1") Then
Sheets("Platzierungen").Cells(i - 133, 10) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 154 To 171
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("K1") Then
Sheets("Platzierungen").Cells(i - 152, 11) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 173 To 190
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("L1") Then
Sheets("Platzierungen").Cells(i - 171, 12) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 192 To 209
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("M1") Then
Sheets("Platzierungen").Cells(i - 190, 13) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 211 To 228
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("N1") Then
Sheets("Platzierungen").Cells(i - 209, 14) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 230 To 247
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("O1") Then
Sheets("Platzierungen").Cells(i - 228, 15) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 249 To 266
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("P1") Then
Sheets("Platzierungen").Cells(i - 247, 16) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 268 To 285
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("Q1") Then
Sheets("Platzierungen").Cells(i - 266, 17) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 287 To 304
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("R1") Then
Sheets("Platzierungen").Cells(i - 285, 18) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 306 To 323
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("S1") Then
Sheets("Platzierungen").Cells(i - 304, 19) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 325 To 342
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("T1") Then
Sheets("Platzierungen").Cells(i - 323, 20) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 344 To 361
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("U1") Then
Sheets("Platzierungen").Cells(i - 342, 21) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 363 To 380
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("V1") Then
Sheets("Platzierungen").Cells(i - 361, 22) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 382 To 399
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("W1") Then
Sheets("Platzierungen").Cells(i - 380, 23) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 401 To 418
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("X1") Then
Sheets("Platzierungen").Cells(i - 399, 24) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 420 To 437
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("Y1") Then
Sheets("Platzierungen").Cells(i - 418, 25) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 439 To 456
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("Z1") Then
Sheets("Platzierungen").Cells(i - 437, 26) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 458 To 475
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AA1") Then
Sheets("Platzierungen").Cells(i - 456, 27) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 477 To 494
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AB1") Then
Sheets("Platzierungen").Cells(i - 475, 28) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 496 To 513
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AC1") Then
Sheets("Platzierungen").Cells(i - 494, 29) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 515 To 532
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AD1") Then
Sheets("Platzierungen").Cells(i - 513, 30) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 534 To 551
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AE1") Then
Sheets("Platzierungen").Cells(i - 532, 31) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 553 To 570
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AF1") Then
Sheets("Platzierungen").Cells(i - 551, 32) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 572 To 589
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AG1") Then
Sheets("Platzierungen").Cells(i - 570, 33) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 591 To 608
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AH1") Then
Sheets("Platzierungen").Cells(i - 589, 34) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 610 To 627
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AI1") Then
Sheets("Platzierungen").Cells(i - 608, 35) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 629 To 646
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AJ1") Then
Sheets("Platzierungen").Cells(i - 627, 36) = Sheets("Tabellen").Cells(i, 4)
End If
Next
Also der Code bewirkt, dass mir im Blatt Platzierungen immer die Platzierung einer von mir vorher ausgewählten Mannschaft anzeigt.
Kann ich diesen Code nicht enorm verkleinern, ich versuche es schon seit Stunden mehrer For Schleifen miteinander zu verbinden. Gelingt mir aber nicht.
Es wäre schön wenn mir jemand helfen könnte! Danke!
Gruß Frank H.
Sicher, aber besser mit Datei
Michael
Hallo Frank,
ich sehe da einige Gesetzmäßigkeiten, allerdings ist die erste For-Schleife außer der Spur:
Du hast überall in der Anweisung *nach* dem Then stehen:
Sheets("Platzierungen").Cells(i - [WERT], 36),
wobei [WERT] immer dem "von" der For-Schleife - 2 entspricht, außer eben in der allerersten.
Weil Du IMMER zuerst mit Sheets("Platzierungen").Range("A2") vergleichst und Tabellenzugriffe irre Zeit verbraten, ist es besser, zuallererst eine Variable zu DIMen, meinetwegen A2, und mit der alle Vergleiche durchzuführen.
Also etwa so:
Option Explicit
Sub test()
Dim A2 As Variant
Dim i As Long
A2 = Sheets("Platzierungen").Range("A2").Value
'und dann beispielhaft:
For i = 2 To 19
If A2 = Sheets("Tabellen").Cells(i, 5) And _
Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("C1") Then
Sheets("Platzierungen").Cells(i, 3) = Sheets("Tabellen").Cells(i, 4)
End If
Next
End Sub
Schöne Grüße,
Michael
P.S.: Ach, versuch's mal so:
Sub zuordnung()
Dim A2 As Variant
Dim i_von&, i_bis&, block&, i&, i_von2&
A2 = Sheets("Platzierungen").Range("A2").Value
For i = 2 To 19 ' erste, schräge Schleife außen vor ********************
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen"). _
Cells(i, 8) = Sheets("Platzierungen").Range("C1") Then
Sheets("Platzierungen").Cells(i, 3) = Sheets("Tabellen").Cells(i, 4)
End If
Next ' *******************************************************
For block = 1 To 33
i_von = block * 19 + 2
i_von2 = i_von - 2
i_bis = i_von + 17
' Range("G" & 8 + block) = i_von war nur zum Test
' Range("H" & 8 + block) = i_bis
For i = i_von To i_bis
If A2 = Sheets("Tabellen").Cells(i, 5).Value And _
Sheets("Tabellen").Cells(i, 8) = _
Sheets("Platzierungen").Range("C1").Offset(0, block) Then
Sheets("Platzierungen").Cells(i - i_von2, 4) = _
Sheets("Tabellen").Cells(i, 4)
End If
Next
Next
End Sub
AW: Sicher, aber besser mit Datei
Frank
Hallo Michael!
Erst einmal vorab schon Danke!
Was ist denn deiner Meinung nach nicht korrekt an der ersten Schleife?
Bei mir läufts. Nun zu deinem Code.
Er läuft nicht wie gewünscht!
Kann ich dir die Datei vielleicht per E-Mai schicken!
Danke und Gruß!
na, wenn Du willst
Michael
Hi Frank,
ich habe nicht behauptet, daß die erste Schleife "falsch" sei, sondern nur, daß sie von der Logik her nicht zu den anderen paßt!
Denn überall steht, wie gesagt, in der Zuweisung ...
For i = 21 To 38
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen"). _
Cells(i, 8) = Sheets("Platzierungen").Range("D1") Then
Sheets("Platzierungen").Cells(i - 19, 4) = Sheets("Tabellen").Cells(i, 4)
End If
Next
i - 19, und 19 ist 21 - 2.
Hätte die erste Schleife die gleiche Logik, müßte es heißen
Sheets("Platzierungen").Cells(i - 2, 3)
Mit email, naja, vielleicht, aber das ist ja nicht der Sinn des Forums.
Erst Mal: WAS läuft denn nicht? Welche Fehlermeldung wo?
Und: hast Du Sepps Code getestet?
Schöne Grüße,
Michael
AW: na, wenn Du willst
Frank
Hallo Michael!
Erste For i = 2 To 19, zweite For i = 21 To 38, dritte For i = 40 To 57.
Deswegen bin ich der Meinung, dass die selbe Logik dahinter steckt.
Er schreibt auch wie bei Sepp die Daten untereinander!
Gruß Frank H.
liest Du, was ich schreibe?
Michael
Hi Frank,
willst Du mich ärgern?!
Es geht nicht um die "logisch berechenbaren" Werte in den For-Schleifen, sondern um die Zuweisungen, die Du damit machst, und die sind in der ersten *anders* als bei allen anderen!
Vergleiche:
1. Schleife: Sheets("Platzierungen").Cells(i, 3) = Sheets("Tabellen").Cells(i, 4)
weitere : Sheets("Platzierungen").Cells(i - 19, 4) = Sheets("Tabellen").Cells(i, 4)
und hier liegt der Knackpunkt, hier, gleich ^^^^^^^
Begriffen?
Gruß,
M.
P.S.: Habe jetzt aber auch *meinen* Fehler gesehen:
Sub zuordnung()
Dim A2 As Variant
Dim i_von&, i_bis&, block&, i&, i_von2&
A2 = Sheets("Platzierungen").Range("A2").Value
For i = 2 To 19 ' erste, schräge Schleife außen vor ********************
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen"). _
_
Cells(i, 8) = Sheets("Platzierungen").Range("C1") Then
Sheets("Platzierungen").Cells(i, 3) = Sheets("Tabellen").Cells(i, 4)
End If
Next ' *******************************************************
For block = 1 To 33
i_von = block * 19 + 2
i_von2 = i_von - 2
i_bis = i_von + 17
' Range("G" & 8 + block) = i_von war nur zum Test
' Range("H" & 8 + block) = i_bis
For i = i_von To i_bis
If A2 = Sheets("Tabellen").Cells(i, 5).Value And _
Sheets("Tabellen").Cells(i, 8) = _
Sheets("Platzierungen").Range("C1").Offset(0, block) Then
Sheets("Platzierungen").Cells(i - i_von2, 3 + block) = _
Sheets("Tabellen").Cells(i, 4)
End If
Next
Next
End Sub
AW: liest Du, was ich schreibe?
Frank
Hallo Michael!
Ärgern will ich mit Sicherheit niemanden, schon gar nicht all die Netten Helfer(innen) hier im Forum!
Da im Blatt Platzierungen ab Zele 2 - 19 eingetragen wird, passt das ja mit der For Schleife.
Dein Code passt nun auch fasst, denn bei deinem Code bleibt Spalte C leer, nehme ich meine erste For Schleife mit hinzu, dann passt es. Inzwischen habe ich aber 'nen passenden Code von Sepp bekommen.
Euch allen Danke!
Gruß Frank H.
Krasse Mißverständnisse,
Michael
Hi Frank,
bei der Hitze auch noch denken!
Ich habe Deine Schleife NICHT auskommentiert, sondern nur oben und unten einen gut sichtbaren Hinweis angebracht.
Mir war doch völlig klar, daß DEINE erste Schleife ausgeführt werden muß, weil MEIN Code erst ab der zweiten läuft.
Na gut, "außen vor" war vielleicht etwas unglücklich formuliert, gemeint war "bleibt, wie sie ist".
Na denn, Hauptsache, Dir wurde geholfen.
Happy Exceling,
Michael
AW: Krasse Mißverständnisse,
Frank
Hallo noch mal!
Allet jut!
Schönen Sonntag noch!
Gruß Frank H.
AW: Frage zu Code
Sepp
Hallo Frank,
ungetestet!
Dim lngI As Long, lngJ As Long, lngN As Long, lngM As Long
Dim objTab As Worksheet
lngM = 3
Set objTab = Sheets("Tabellen")
With Sheets("Platzierungen")
For lngJ = 2 To 629 Step 19
For lngI = lngJ To lngJ + 17
If .Range("A2") = objTab.Cells(lngI, 5) And objTab.Cells(lngI, 8) = .Cells(1, lngM) Then
.Cells(lngI - lngN, 3) = objTab.Cells(lngI, 4)
End If
Next
lngN = lngN + 19
lngM = lngM + 1
Next
End With
Gruß Sepp
AW: Frage zu Code
Frank
Hallo Sepp!
Das Ergebnis deines Codes. Er trägt auf dem Blatt untereinander Daten ein.
So wie es aussehen sol habe ich mal per Snipping gespeichert und hoffe das ich das Bild hochladen kann.
Kannst du bitte dann noch einmal schauen, ob es anders lösbar ist? Danke!
Gruß Frank H.
AW: Frage zu Code
Sepp
Hallo Frank,
ich sagte ja "ungtestet"!
Dim lngI As Long, lngJ As Long, lngN As Long, lngM As Long
Dim objTab As Worksheet
lngM = 3
Set objTab = Sheets("Tabellen")
With Sheets("Platzierungen")
For lngJ = 2 To 629 Step 19
For lngI = lngJ To lngJ + 17
If .Range("A2") = objTab.Cells(lngI, 5) And objTab.Cells(lngI, 8) = .Cells(1, lngM) Then
.Cells(lngI - lngN, lngM) = objTab.Cells(lngI, 4)
End If
Next
lngN = lngN + 19
lngM = lngM + 1
Next
End With
Gruß Sepp
AW: Frage zu Code
Frank
Hallo Sepp!
Jetzt passt's!
Danke dir ganz herzlich!
Gruß Frank H.
AW: Frage zu Code
Gerd
Hallo Frank,
noch ein Versuch. Ich bin mir allerdings nicht sicher, ob dein gezeigter Code bisher so gepasst hat
(Unterschied bei erster Schleife zu den weiteren).
Sub tt()
Dim j As Long, i As Long
Dim wsP As Worksheet, wsTab As Worksheet
Dim A As Variant
Set wsP = Sheets("Platzierungen")
Set wsTab = Sheets("Tabellen")
A = wsTab.Cells(2, 1)
For i = 2 To 646
If i Mod 19 = 1 Then
j = j + 1
Else
If A = wsTab.Cells(i, 5) Then
If wsTab.Cells(i, 8) = wsP.Cells(1, j + 3) Then
If j = 0 Then
wsP.Cells(i, j + 3) = wsTab.Cells(i, 4)
Else
wsP.Cells(2, j + 3) = wsTab.Cells(i, 4)
End If
End If
End If
Next
End Sub
AW: Frage zu Code
Frank
Hallo Gerd!
Bei dir bleibt das Blatt Platzierungen leer!
Gruß Frank H.
AW: Schade,
Gerd
Hallo Frank!
.......... man kann nicht immer alles richtig interpretieren. Ohne Beispieldatei "vorher - nachher" muss ich das jezt so akzeptieren.
Gruß Gerd
AW: Schade,
Frank
Gruß Gerd!
Nicht traurig sein, ich danke dir trotzdem herzlichst. Sepp sein Code passt jetzt!
Gruß Frank H.
AW: Nein, sicher nicht
Gerd
Hallo Frank!
A = wsTab.Cells(2, 1) war mein Fehler.
Sollte
A = wsP.Cells(2, 1)
werden.
Sei es drum. :-)
Gruß Gerd
Frage zu Code
Frank
Hallo Zusammen und noch einen schönen Sonntag!
Ich habe mir folgenen Code zusammen geschustert:
For i = 2 To 19
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("C1") Then
Sheets("Platzierungen").Cells(i, 3) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 21 To 38
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("D1") Then
Sheets("Platzierungen").Cells(i - 19, 4) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 40 To 57
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("E1") Then
Sheets("Platzierungen").Cells(i - 38, 5) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 59 To 76
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("F1") Then
Sheets("Platzierungen").Cells(i - 57, 6) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 78 To 95
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("G1") Then
Sheets("Platzierungen").Cells(i - 76, 7) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 97 To 114
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("H1") Then
Sheets("Platzierungen").Cells(i - 95, 8) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 116 To 133
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("I1") Then
Sheets("Platzierungen").Cells(i - 114, 9) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 135 To 152
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("J1") Then
Sheets("Platzierungen").Cells(i - 133, 10) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 154 To 171
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("K1") Then
Sheets("Platzierungen").Cells(i - 152, 11) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 173 To 190
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("L1") Then
Sheets("Platzierungen").Cells(i - 171, 12) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 192 To 209
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("M1") Then
Sheets("Platzierungen").Cells(i - 190, 13) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 211 To 228
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("N1") Then
Sheets("Platzierungen").Cells(i - 209, 14) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 230 To 247
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("O1") Then
Sheets("Platzierungen").Cells(i - 228, 15) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 249 To 266
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("P1") Then
Sheets("Platzierungen").Cells(i - 247, 16) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 268 To 285
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("Q1") Then
Sheets("Platzierungen").Cells(i - 266, 17) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 287 To 304
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("R1") Then
Sheets("Platzierungen").Cells(i - 285, 18) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 306 To 323
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("S1") Then
Sheets("Platzierungen").Cells(i - 304, 19) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 325 To 342
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("T1") Then
Sheets("Platzierungen").Cells(i - 323, 20) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 344 To 361
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("U1") Then
Sheets("Platzierungen").Cells(i - 342, 21) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 363 To 380
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("V1") Then
Sheets("Platzierungen").Cells(i - 361, 22) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 382 To 399
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("W1") Then
Sheets("Platzierungen").Cells(i - 380, 23) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 401 To 418
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("X1") Then
Sheets("Platzierungen").Cells(i - 399, 24) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 420 To 437
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("Y1") Then
Sheets("Platzierungen").Cells(i - 418, 25) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 439 To 456
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("Z1") Then
Sheets("Platzierungen").Cells(i - 437, 26) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 458 To 475
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AA1") Then
Sheets("Platzierungen").Cells(i - 456, 27) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 477 To 494
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AB1") Then
Sheets("Platzierungen").Cells(i - 475, 28) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 496 To 513
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AC1") Then
Sheets("Platzierungen").Cells(i - 494, 29) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 515 To 532
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AD1") Then
Sheets("Platzierungen").Cells(i - 513, 30) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 534 To 551
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AE1") Then
Sheets("Platzierungen").Cells(i - 532, 31) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 553 To 570
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AF1") Then
Sheets("Platzierungen").Cells(i - 551, 32) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 572 To 589
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AG1") Then
Sheets("Platzierungen").Cells(i - 570, 33) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 591 To 608
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AH1") Then
Sheets("Platzierungen").Cells(i - 589, 34) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 610 To 627
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AI1") Then
Sheets("Platzierungen").Cells(i - 608, 35) = Sheets("Tabellen").Cells(i, 4)
End If
Next
For i = 629 To 646
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("AJ1") Then
Sheets("Platzierungen").Cells(i - 627, 36) = Sheets("Tabellen").Cells(i, 4)
End If
Next
Also der Code bewirkt, dass mir im Blatt Platzierungen immer die Platzierung einer von mir vorher ausgewählten Mannschaft anzeigt.
Kann ich diesen Code nicht enorm verkleinern, ich versuche es schon seit Stunden mehrer For Schleifen miteinander zu verbinden. Gelingt mir aber nicht.
Es wäre schön wenn mir jemand helfen könnte! Danke!
Gruß Frank H.
Sicher, aber besser mit Datei
Michael
Hallo Frank,
ich sehe da einige Gesetzmäßigkeiten, allerdings ist die erste For-Schleife außer der Spur:
Du hast überall in der Anweisung *nach* dem Then stehen:
Sheets("Platzierungen").Cells(i - [WERT], 36),
wobei [WERT] immer dem "von" der For-Schleife - 2 entspricht, außer eben in der allerersten.
Weil Du IMMER zuerst mit Sheets("Platzierungen").Range("A2") vergleichst und Tabellenzugriffe irre Zeit verbraten, ist es besser, zuallererst eine Variable zu DIMen, meinetwegen A2, und mit der alle Vergleiche durchzuführen.
Also etwa so:
Option Explicit
Sub test()
Dim A2 As Variant
Dim i As Long
A2 = Sheets("Platzierungen").Range("A2").Value
'und dann beispielhaft:
For i = 2 To 19
If A2 = Sheets("Tabellen").Cells(i, 5) And _
Sheets("Tabellen").Cells(i, 8) = Sheets("Platzierungen").Range("C1") Then
Sheets("Platzierungen").Cells(i, 3) = Sheets("Tabellen").Cells(i, 4)
End If
Next
End Sub
Schöne Grüße,
Michael
P.S.: Ach, versuch's mal so:
Sub zuordnung()
Dim A2 As Variant
Dim i_von&, i_bis&, block&, i&, i_von2&
A2 = Sheets("Platzierungen").Range("A2").Value
For i = 2 To 19 ' erste, schräge Schleife außen vor ********************
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen"). _
Cells(i, 8) = Sheets("Platzierungen").Range("C1") Then
Sheets("Platzierungen").Cells(i, 3) = Sheets("Tabellen").Cells(i, 4)
End If
Next ' *******************************************************
For block = 1 To 33
i_von = block * 19 + 2
i_von2 = i_von - 2
i_bis = i_von + 17
' Range("G" & 8 + block) = i_von war nur zum Test
' Range("H" & 8 + block) = i_bis
For i = i_von To i_bis
If A2 = Sheets("Tabellen").Cells(i, 5).Value And _
Sheets("Tabellen").Cells(i, 8) = _
Sheets("Platzierungen").Range("C1").Offset(0, block) Then
Sheets("Platzierungen").Cells(i - i_von2, 4) = _
Sheets("Tabellen").Cells(i, 4)
End If
Next
Next
End Sub
AW: Sicher, aber besser mit Datei
Frank
Hallo Michael!
Erst einmal vorab schon Danke!
Was ist denn deiner Meinung nach nicht korrekt an der ersten Schleife?
Bei mir läufts. Nun zu deinem Code.
Er läuft nicht wie gewünscht!
Kann ich dir die Datei vielleicht per E-Mai schicken!
Danke und Gruß!
na, wenn Du willst
Michael
Hi Frank,
ich habe nicht behauptet, daß die erste Schleife "falsch" sei, sondern nur, daß sie von der Logik her nicht zu den anderen paßt!
Denn überall steht, wie gesagt, in der Zuweisung ...
For i = 21 To 38
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen"). _
Cells(i, 8) = Sheets("Platzierungen").Range("D1") Then
Sheets("Platzierungen").Cells(i - 19, 4) = Sheets("Tabellen").Cells(i, 4)
End If
Next
i - 19, und 19 ist 21 - 2.
Hätte die erste Schleife die gleiche Logik, müßte es heißen
Sheets("Platzierungen").Cells(i - 2, 3)
Mit email, naja, vielleicht, aber das ist ja nicht der Sinn des Forums.
Erst Mal: WAS läuft denn nicht? Welche Fehlermeldung wo?
Und: hast Du Sepps Code getestet?
Schöne Grüße,
Michael
AW: na, wenn Du willst
Frank
Hallo Michael!
Erste For i = 2 To 19, zweite For i = 21 To 38, dritte For i = 40 To 57.
Deswegen bin ich der Meinung, dass die selbe Logik dahinter steckt.
Er schreibt auch wie bei Sepp die Daten untereinander!
Gruß Frank H.
liest Du, was ich schreibe?
Michael
Hi Frank,
willst Du mich ärgern?!
Es geht nicht um die "logisch berechenbaren" Werte in den For-Schleifen, sondern um die Zuweisungen, die Du damit machst, und die sind in der ersten *anders* als bei allen anderen!
Vergleiche:
1. Schleife: Sheets("Platzierungen").Cells(i, 3) = Sheets("Tabellen").Cells(i, 4)
weitere : Sheets("Platzierungen").Cells(i - 19, 4) = Sheets("Tabellen").Cells(i, 4)
und hier liegt der Knackpunkt, hier, gleich ^^^^^^^
Begriffen?
Gruß,
M.
P.S.: Habe jetzt aber auch *meinen* Fehler gesehen:
Sub zuordnung()
Dim A2 As Variant
Dim i_von&, i_bis&, block&, i&, i_von2&
A2 = Sheets("Platzierungen").Range("A2").Value
For i = 2 To 19 ' erste, schräge Schleife außen vor ********************
If Sheets("Platzierungen").Range("A2") = Sheets("Tabellen").Cells(i, 5) And Sheets("Tabellen"). _
_
Cells(i, 8) = Sheets("Platzierungen").Range("C1") Then
Sheets("Platzierungen").Cells(i, 3) = Sheets("Tabellen").Cells(i, 4)
End If
Next ' *******************************************************
For block = 1 To 33
i_von = block * 19 + 2
i_von2 = i_von - 2
i_bis = i_von + 17
' Range("G" & 8 + block) = i_von war nur zum Test
' Range("H" & 8 + block) = i_bis
For i = i_von To i_bis
If A2 = Sheets("Tabellen").Cells(i, 5).Value And _
Sheets("Tabellen").Cells(i, 8) = _
Sheets("Platzierungen").Range("C1").Offset(0, block) Then
Sheets("Platzierungen").Cells(i - i_von2, 3 + block) = _
Sheets("Tabellen").Cells(i, 4)
End If
Next
Next
End Sub
AW: liest Du, was ich schreibe?
Frank
Hallo Michael!
Ärgern will ich mit Sicherheit niemanden, schon gar nicht all die Netten Helfer(innen) hier im Forum!
Da im Blatt Platzierungen ab Zele 2 - 19 eingetragen wird, passt das ja mit der For Schleife.
Dein Code passt nun auch fasst, denn bei deinem Code bleibt Spalte C leer, nehme ich meine erste For Schleife mit hinzu, dann passt es. Inzwischen habe ich aber 'nen passenden Code von Sepp bekommen.
Euch allen Danke!
Gruß Frank H.
Krasse Mißverständnisse,
Michael
Hi Frank,
bei der Hitze auch noch denken!
Ich habe Deine Schleife NICHT auskommentiert, sondern nur oben und unten einen gut sichtbaren Hinweis angebracht.
Mir war doch völlig klar, daß DEINE erste Schleife ausgeführt werden muß, weil MEIN Code erst ab der zweiten läuft.
Na gut, "außen vor" war vielleicht etwas unglücklich formuliert, gemeint war "bleibt, wie sie ist".
Na denn, Hauptsache, Dir wurde geholfen.
Happy Exceling,
Michael
AW: Krasse Mißverständnisse,
Frank
Hallo noch mal!
Allet jut!
Schönen Sonntag noch!
Gruß Frank H.
AW: Frage zu Code
Sepp
Hallo Frank,
ungetestet!
Dim lngI As Long, lngJ As Long, lngN As Long, lngM As Long
Dim objTab As Worksheet
lngM = 3
Set objTab = Sheets("Tabellen")
With Sheets("Platzierungen")
For lngJ = 2 To 629 Step 19
For lngI = lngJ To lngJ + 17
If .Range("A2") = objTab.Cells(lngI, 5) And objTab.Cells(lngI, 8) = .Cells(1, lngM) Then
.Cells(lngI - lngN, 3) = objTab.Cells(lngI, 4)
End If
Next
lngN = lngN + 19
lngM = lngM + 1
Next
End With
Gruß Sepp
AW: Frage zu Code
Frank
Hallo Sepp!
Das Ergebnis deines Codes. Er trägt auf dem Blatt untereinander Daten ein.
So wie es aussehen sol habe ich mal per Snipping gespeichert und hoffe das ich das Bild hochladen kann.
Kannst du bitte dann noch einmal schauen, ob es anders lösbar ist? Danke!
Gruß Frank H.
AW: Frage zu Code
Sepp
Hallo Frank,
ich sagte ja "ungtestet"!
Dim lngI As Long, lngJ As Long, lngN As Long, lngM As Long
Dim objTab As Worksheet
lngM = 3
Set objTab = Sheets("Tabellen")
With Sheets("Platzierungen")
For lngJ = 2 To 629 Step 19
For lngI = lngJ To lngJ + 17
If .Range("A2") = objTab.Cells(lngI, 5) And objTab.Cells(lngI, 8) = .Cells(1, lngM) Then
.Cells(lngI - lngN, lngM) = objTab.Cells(lngI, 4)
End If
Next
lngN = lngN + 19
lngM = lngM + 1
Next
End With
Gruß Sepp
AW: Frage zu Code
Frank
Hallo Sepp!
Jetzt passt's!
Danke dir ganz herzlich!
Gruß Frank H.
AW: Frage zu Code
Gerd
Hallo Frank,
noch ein Versuch. Ich bin mir allerdings nicht sicher, ob dein gezeigter Code bisher so gepasst hat
(Unterschied bei erster Schleife zu den weiteren).
Sub tt()
Dim j As Long, i As Long
Dim wsP As Worksheet, wsTab As Worksheet
Dim A As Variant
Set wsP = Sheets("Platzierungen")
Set wsTab = Sheets("Tabellen")
A = wsTab.Cells(2, 1)
For i = 2 To 646
If i Mod 19 = 1 Then
j = j + 1
Else
If A = wsTab.Cells(i, 5) Then
If wsTab.Cells(i, 8) = wsP.Cells(1, j + 3) Then
If j = 0 Then
wsP.Cells(i, j + 3) = wsTab.Cells(i, 4)
Else
wsP.Cells(2, j + 3) = wsTab.Cells(i, 4)
End If
End If
End If
Next
End Sub
AW: Frage zu Code
Frank
Hallo Gerd!
Bei dir bleibt das Blatt Platzierungen leer!
Gruß Frank H.
AW: Schade,
Gerd
Hallo Frank!
.......... man kann nicht immer alles richtig interpretieren. Ohne Beispieldatei "vorher - nachher" muss ich das jezt so akzeptieren.
Gruß Gerd
AW: Schade,
Frank
Gruß Gerd!
Nicht traurig sein, ich danke dir trotzdem herzlichst. Sepp sein Code passt jetzt!
Gruß Frank H.
AW: Nein, sicher nicht
Gerd
Hallo Frank!
A = wsTab.Cells(2, 1) war mein Fehler.
Sollte
A = wsP.Cells(2, 1)
werden.
Sei es drum. :-)
Gruß Gerd