Hallo zusammen,
ich habe eine Excel _Tabelle aus der ich jede 3te Spalte kopieren und in ein anderes Tabellenblatt nebeneinander einfügen möchte.
Aus dieser möchte ich dann per Aufruf eine bestimmte Zeile als Diagramm darstellen möchte.
Kann mir da jmd weiterhelfen??
Mein code kopiert und fügt jedoch nur eine Spalte ein, statt weiter jeweils die 3te Spalte zu kopieren und einzufügen.
Vielen Dank schon mal!
Sub Kopieren()
Dim WkSh_Q As Worksheet ' Tabellenblatt Quelle / Herkunft
Dim WkSh_Z As Worksheet ' Tabellenblatt Ziel
Dim lZeile As Long ' For/Next Zeilen-Index
Dim iSpalte As Long ' For/Next Spalten-Index
Dim lZeile_Z As Long ' Zeilenindex im Ziel Blatt
Dim iSpalte_Z As Long ' Spaltenindex im Ziel Blatt
Set WkSh_Q = Worksheets("Sheet1") ' <= Namen anpassen
Set WkSh_Z = Worksheets("Sheet2") ' <= Namen anpassen
lZeile_Z = 2 ' <= Start-Zeile im Ziel-Blatt
iSpalte_Z = 2
For iSpalte = 6 To 99 Step 3
For lZeile = 1 To 199
WkSh_Z.Cells(lZeile_Z, iSpalte_Z).Value = WkSh_Q.Cells(lZeile,
iSpalte).Value
lZeile_Z = lZeile_Z + 1
Next lZeile
Next iSpalte
End Sub
|