Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Frage zu Code

Frage zu Code
30.08.2015 16:17:30
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.

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Sicher, aber besser mit Datei
30.08.2015 17:04:28
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
So weit mal vorab, vielleicht kannst Du ja ne Datei hochladen.
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
Aber bitte nur mit einer Kopie Deiner Daten! Ich konnte es ja schlecht testen.

Anzeige
AW: Sicher, aber besser mit Datei
30.08.2015 17:29:54
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
30.08.2015 17:40:35
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

Anzeige
AW: na, wenn Du willst
30.08.2015 17:46:21
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?
30.08.2015 17:57:12
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

Anzeige
AW: liest Du, was ich schreibe?
30.08.2015 18:34:32
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,
30.08.2015 18:50:17
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

Anzeige
AW: Krasse Mißverständnisse,
30.08.2015 18:54:30
Frank
Hallo noch mal!
Allet jut!
Schönen Sonntag noch!
Gruß Frank H.

AW: Frage zu Code
30.08.2015 17:13:51
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

Anzeige
AW: Frage zu Code
30.08.2015 17:41:19
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!
Userbild
Gruß Frank H.

AW: Frage zu Code
30.08.2015 17:51:22
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

Anzeige
AW: Frage zu Code
30.08.2015 18:36:47
Frank
Hallo Sepp!
Jetzt passt's!
Danke dir ganz herzlich!
Gruß Frank H.

AW: Frage zu Code
30.08.2015 18:03:38
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
Gruß Gerd

Anzeige
AW: Frage zu Code
30.08.2015 18:10:52
Frank
Hallo Gerd!
Bei dir bleibt das Blatt Platzierungen leer!
Gruß Frank H.

AW: Schade,
30.08.2015 18:21:12
Gerd
Hallo Frank!
.......... man kann nicht immer alles richtig interpretieren. Ohne Beispieldatei "vorher - nachher" muss ich das jezt so akzeptieren.
Gruß Gerd

AW: Schade,
30.08.2015 18:35:34
Frank
Gruß Gerd!
Nicht traurig sein, ich danke dir trotzdem herzlichst. Sepp sein Code passt jetzt!
Gruß Frank H.

AW: Nein, sicher nicht
30.08.2015 18:58:45
Gerd
Hallo Frank!
A = wsTab.Cells(2, 1) war mein Fehler.
Sollte
A = wsP.Cells(2, 1)
werden.
Sei es drum. :-)
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige