Thema: Mit einer Diagramm-Bildlaufleiste durch Tabelle bewegen

StandardModule: basMain

Sub DatenTransfer()
  Dim wksW As Worksheet, wksWD As Worksheet
  Dim iCounter As Integer
  Set wksW = ActiveWorkbook.Sheets("W")
  Set wksWD = ActiveWorkbook.Sheets("WD")
  iCounter = wksWD.Cells(345, 1)
  wksWD.Range(wksWD.Cells(1, 2), wksWD.Cells(342, 2)).Value = _
  wksW.Range(wksW.Cells(1, iCounter), wksW.Cells(342, iCounter)).Value
End Sub

Beiträge aus dem Excel-Forum zu den Themen Grafik und Diagramm