VBA - benutzerdefinierte For-Schleife

Question

Ich möchte bestimmte Tabellen von einem Blatt zum anderen kopieren. Um dies zu tun Ich habe den folgenden Code:

Dim start As Long 
Dim eind As Long 
Dim output As Long 
Dim tbl As Range 
Dim dest As Range 

output = 5 

For start = 3 To 224 Step 13 
     end = start + 10 
     Set tbl = Sheets("Model").Range("C" & start & ":E" & end) 
     Set dest = Sheets("Sheet1").Range("B" & output).Resize(tbl.Rows.Count, tbl.Columns.Count) 
     dest.Value = tbl.Value 
     output = output + 16 
Next start 

jedoch dieser Code kopiert alle Tabellen von „Model“ auf „Sheet1“. Ich möchte nur die Tabellen mit den Namen A, B, C, E, G, H, J und L. (Die Namen sind in D2, D15, D28, D41 usw.).

Gibt es eine Möglichkeit, diese spezifischen Tabellen vor der for-Schleife zu definieren und diese in die Schleife zu integrieren? Oder gibt es einen anderen Weg, dies zu tun?

Vielen Dank!

Answer 1

Ich bin nicht durch die Berechnungen im Code gehen ...

(Ich denke, es ist eine Fehlausrichtung: Sie For start = 3 To 224 Step 13 Schleife wollen, aber wollen Sie die Namen in D2, D15, D28 zu überprüfen. vielleicht sollte es For start = 2 .... sein ich bin nicht sicher, da Sie nicht Ihre Notendatenstruktur nicht geteilt)

Wie auch immer, die Bedingung hinzuzufügen, innerhalb der Schleife nur den Code verwenden unter:.

For start = 3 To 224 Step 13 
    end = start + 10 

    Select Case Sheets("Model").Range("D" & start - 1) ' I have "start -1" to adjust to rows 2, 15, 28, etc. 

     ' copy only Tables with the following names in Column D... 
     Case "A", "B", "C", "E", "G", "H", "J", "L" 
      Set tbl = Sheets("Model").Range("C" & start & ":E" & end) 
      Set dest = Sheets("Sheet1").Range("B" & output).Resize(tbl.Rows.Count, tbl.Columns.Count) 
      dest.Value = tbl.Value 

    End Select 

    output = output + 16 
Next start