Methode Range für Objekt global fehlgeschlagen
Chris
bekomme die Fehlermeldung 1004 "Die Methode 'Range' ist für das Objekt '_Global' fehlgeschlagen" bei folgender Zeile meines Codes.
nachfrage = Range("AE" & maxzeile1) 'Produkt der maxzeile wird ausgewählt
Woran liegt die Fehlermeldung?
Code ausführlicher:
Range("AF161").Select ' Zelle AF161 für erstes Nachfragefeld auswählen
aktrow = ActiveCell.Column ' aktuelle Spalte ermitteln
aktzeile = ActiveCell.Row ' aktuelle Zeile ermitteln
Do While ActiveCell "" ' führe aus solange aktuelle Zelle nicht leer ist
maxw = Worksheets.Application.Max(Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(2, 0))) 'Range: Maximalwert ermitteln bis 2 Spalten unten drunter
maxaus = Worksheets.Application.Max(Range(ActiveCell.Offset(3, 0), ActiveCell.Offset(5, 0))) 'Range: höchste Auslastung ab 3 Spalten bis 5 Spalten unten drunter
If ActiveCell.Offset(0, 0) = maxw Then maxzeile = ActiveCell.Row 'Zeile mit Maximalwert ermitteln
If ActiveCell.Offset(1, 0) = maxw Then maxzeile = ActiveCell.Row + 1
If ActiveCell.Offset(2, 0) = maxw Then maxzeile = ActiveCell.Row + 2
If ActiveCell.Offset(3, 0) = maxaus Then maxzeile1 = ActiveCell.Row + 3 'Zeile mit höchster Auslastung ermitteln
If ActiveCell.Offset(4, 0) = maxaus Then maxzeile1 = ActiveCell.Row + 4
If ActiveCell.Offset(5, 0) = maxaus Then maxzeile1 = ActiveCell.Row + 5
nachfrage = Range("AE" & maxzeile1) 'Produkt der maxzeile wird ausgewählt