Daten aus anderer Datei
03.12.2003 16:36:18
Holger
ich benötige schon wieder eure Hilfe.
Ich will in der Zelle B2 die Anfangszeile für ein Diagramm eintragen und in Zelle B3 die Endzeile. Daten sollen für die Spalten L bis W angezeigt werden.
Folgendes Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngStrat As Range
Dim i, Start, Ende As Integer
If Target.Address = "$B$2" Or Target.Address = "$B$3" Then
rngStart = ActiveCell.Address
Start = ActiveSheet.Range("B2").Value
Ende = ActiveSheet.Range("B3").Value
For i = 1 To ActiveSheet.ChartObjects.Count
ChartObjects(i).Activate
ActiveChart.SetSourceData Source:=ActiveSheet.Range("L" & Start & _
":W" & Ende), PlotBy:=xlColumns
Next i
Range(rngStart).Select
End If
End Sub
Funktioniert so auch tadellos. Nun meine Frage wie bekomme ich die Daten für die gewünschten Bereiche aus einer anderen Datei.
Geht das überhaupt?
Vielen Dank schon vorab.
Anzeige