Office: "Ungültiger Verweis auf Next-Steuervariable"

Hallo Zusammen,

ich habe einen eigentlich ganz einfachen Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set myRange = Intersect(Range("E5:e7", "E9:e82"), Target)

If Not myRange Is Nothing Then
test
End If

End Sub
-------------------------------------------------------------------------

Sub test()

Dim i As Integer
Dim x As Integer
Dim min As Single
Dim max As Single

For i = 2 To Sheets("Bruttolöhne_D").Range("a65536").End(xlUp).Row
For x = 5 To 82

If Sheets("Lohn_Overhead_D").cells(x, 2) = Sheets("Bruttolöhne_D").cells(i, 1) Then
min = Sheets("Bruttolöhne_D").cells(i, 2) And max = Sheets("Bruttolöhne_D").cells(i, 3)
End If

MsgBox "Der Bruttolohn je Stunde liegt zwischen" & min & " € und " & max & " €."

Next i
Next x

End Sub


Leider bringt er mir jedes Mal beim Ausführen des Makros test folgenden Fehler:
"Ungültiger Verweis auf Next-Steuervariable"

Leider find ich keinen Fehler (oder bin blind...)

Könnt Ihr mir weiterhelfen?

Danke schön!!!
Cathérine

:)

 

Ups, hab den Fehler schon gefunden..

muß die next umdrehen, erst x, dann i

ich geh mich jetzt mal schämen ;p

 

Hallo,

sieh dir mal die Schleifen nochmal genauer an.

For i = ...
For x = ...
Next i
Next x

sieht doch wohl blöd aus, oder? ;-)

For i = ...
For x = ...
Next x
Next i

ist wohl eher im sinne der Programmierung!!!

Grüße
rastrans

 

Da habe ich aber gleich nochmal eine frage:

Innerhalb der Scheife steht

min = Sheets("Bruttolöhne_D").cells(i, 2) And max = Sheets("Bruttolöhne_D").cells(i, 3)

Das kann doch nicht das sein was du haben willst.

min = Sheets("Bruttolöhne_D").cells(i, 2)
max = Sheets("Bruttolöhne_D").cells(i, 3)

wäre die richtige Wahl, oder?

Denn wenn ich dein Code richtig auflöse, dann gibt das einen logischen Wert aber keine Zahl!?!? Und in Max wird gar nichts gespeichert?!?

Kannst du das bitte mal aufklären! Vielen Dank!