Folgendes Makro soweit...
Sub Histogram()
'Variablendefinition
Dim bOK As Boolean
Dim rCell As Range 'Range Variable
Dim rInput As Range 'Range Variable
Dim dMax As Double 'Höchster Wert
Dim dMin As Double 'niedrigster Wert
Dim dStep As Double 'Bin Size
Dim lCount As Long 'Zähler
Dim lLast As Long 'Zähler
Dim sInterval As String 'String Variable
Dim arData() 'Array
Dim arBackup() 'Array
Dim vInput 'Zahl der Columns
Dim sSheet As String 'Sheet Name
Dim iZeileMax As Integer 'Zähler
Dim x As Integer 'Zähler
Dim strGesuchteGesellschaft As String 'gesuchte EG für aktuelles Diagramm
Dim rZelle As Range 'Range Variable
'Start der Schleife Diagrammerstellung für einzelne Gesellschaften
iZeileMax = Tabelle3.Cells(100, 5).End(xlUp).Row
For x = 11 To iZeileMax
strGesuchteGesellschaft = Tabelle3.Range("E" & x).Value
'Finden der ersten Zelle mit Daten für das entsprechende Histogramm
With Tabelle4.Range("A1:AZ1")
Set rZelle = .Find(strGesuchteGesellschaft, LookIn:=xlValues)
rInput = rZelle.Address
End With
'Range mit Werten für das Histogramm definieren
Set rInput = Range(rInput, rInput.End(xlDown))
---------
Dabei läuft er in der Zeile
rInput = rZelle.Address
auf den Laufzeitfehler 91: Objektvariable oder With-Blockvairable nicht festgelegt.
Woran kann das liegen? Möchte einfach nur die Adresse der Zelle in die Variable speichern und später unter der Variablen eine ganze Range definieren.
Viele Grüße,
Tobias