AW: Zelle - Zeile - Spalte - Bezüge....
09.01.2004 09:44:47
holger
Datei 1 Name: Dispomatrix.xls ( aus dieser Datei kopiere ich die Zeilennummer
Makro:
Sub Diagramm()
Application.ScreenUpdating = False
'Range("B2").Select
ActiveCell.Copy
'Selection.Copy
Windows("verbrauch.xls").Activate
Sheets("HB").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("HH").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveWindow.Visible = False
Windows("verbrauch.xls").Activate
Range("B2").Select
ActiveSheet.Paste
Sheets("H").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveWindow.Visible = False
Windows("verbrauch.xls").Activate
Range("B2").Select
ActiveSheet.Paste
Sheets("KS").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveWindow.Visible = False
Windows("verbrauch.xls").Activate
Range("B2").Select
ActiveSheet.Paste
Sheets("B").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveWindow.Visible = False
Windows("verbrauch.xls").Activate
Range("B2").Select
ActiveSheet.Paste
Sheets("LB").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveWindow.Visible = False
Windows("verbrauch.xls").Activate
Range("B2").Select
ActiveSheet.Paste
Sheets("OS").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveWindow.Visible = False
Windows("verbrauch.xls").Activate
Range("B2").Select
ActiveSheet.Paste
Sheets("Gesamt").Select
Range("B2").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub
Ich kopiere in mehrere Tabellenblätter in die Datei 2 Name Verbrauch.xls mit dem 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$2" Then
rngStart = ActiveCell.Address
Start = ActiveSheet.Range("B2").Value
Ende = ActiveSheet.Range("B2").Value
For i = 1 To ActiveSheet.ChartObjects.Count
ChartObjects(i).Activate
ActiveChart.SetSourceData Source:=ActiveSheet.Range("C" & Start & _
":O" & Ende), PlotBy:=xlColumns
Next i
Range(rngStart).Select
End If
End Sub
Hier ensteht dann das Diagramm.