Range(cells( , ),cells( , )) in Histogramm
Hockmock
ich habe folgendes Problem. Über eine Schleife sollen Spaltenweise Histogramme erstellt werden. Dies habe ich versucht über nachstehenden Code umzusetzen - leider nur mit mäßigen Erfolg. Hauptursache hierfür ist die Anweisung ....Sheets("Daten").Range(Cells(8, i), Cells(50007, i)).
Wenn ich anstelle dessen einen direkten Bezug verwende ( Sheets("Daten").Range("C8:c50007")) wird zwar das Histogramm erstellt, meine Schleife ist aber für die Katz'.
Vielen dank im Vorfeld für eure Hilfe.
Grüße,
Andreas
************************
Sub Histo_02()
Dim i, AnzHisto As Integer
AnzHisto = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 3 To AnzHisto
Application.Run "ATPVBAEN.XLA!Histogram", Sheets("Daten").Range(Cells(8, i), Cells(50007, i) _
), ActiveSheet.Range("c200"), ActiveSheet.Range("c12:c191"), False, False, False
'Application.Run "ATPVBAEN.XLA!Histogram", Sheets("Daten").Range("C8:c50007"), ActiveSheet. _
Range("c200"), ActiveSheet.Range("c12:c191"), False, False, False
Next i
End Sub
************************