VBA Typen unverträglich

[mikeho]

Hallo Zusammen,

meine Formel ermittelt die Zeilennummer der Zeile mit dem größten Wert.
Diesen speichere ich dann in einer Variable ab und rufe ich später zur Ermittlung einer Zelle für eine MSG Box wieder auf.
Leider nimmt er mir die Variable in der Cells-Funktion nicht. Im Moment stehe ich auf dem Schlauch...hat jemand ne Idee.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich As Range
Dim meisteAufträgeZeile As Integer
Dim meisteBestellungenZeile As Integer
Dim meisteRechnungssperrenZeile As Integer
Dim meisteRücksendungenZeile As Integer

   
If Target.Column = 8 And Target.Row = 2 Then

Set Bereich = Range("D:D")
meisteAufträgeZeile = Bereich.Find(Application.Max(Bereich)).Row

Set Bereich = Range("E:E")
meisteBestellungenZeile = Bereich.Find(Application.Max(Bereich)).Row

Set Bereich = Range("F:F")
meisteRechnungssperrenZeile = Bereich.Find(Application.Max(Bereich)).Row

Set Bereich = Range("G:G")
meisteRücksendungenZeile = Bereich.Find(Application.Max(Bereich)).Row


MsgBox "Folgend die heutigen Rekordhalter:" & Chr(13) & "- Aufträge: " & cells(meisteAufträgeZeile, 3) '& " mit " & Cells(meisteAufträgeZeile, 4)


 
End If
End Sub

[Steffl]

Hallo,

die Find-Methode gibt dir einen Range zurück und Du solltest prüfen, ob auch was gefunden wird.

[Rabe]

Hi,

hast Du es so auch probiert?

Code:

MsgBox "Folgend die heutigen Rekordhalter:" & Chr(13) & "- Aufträge: " & Range("C" & meisteAufträgeZeile) '& " mit " & Range("D" & meisteAufträgeZeile)

[BoskoBiati]

Hallo,

da das Makro, wenn es etwas findet, auch korrekte Werte ausgibt, wäre die Frage, wo bei Dir das Problem liegt. Sind in Spalte C überhaupt Werte? Sind in den Spalten D-G auch Zahlen????

[mikeho]

Danke für die Antworten.
Argh. Simpler Fehler. Das Ergebnis war die einzige Zelle mit #NV, und diese mag er wohl nicht.... Gleich mal rausfiltern. Danke !