✔ Exel: Anzeige in welcher Spalte und Zeile

[beba]

Hallo, bin Neuling in sachen VB, könnte mir jemand helfen? Ich muss für die Schule das so programmieren das das Makro zeigt in welcher spalte und zeile der wert 1000 steht, ich habe schon angefangen aber weiß nicht weiter... kann mir jemand helfen?

Sub test()
gefunden = False
For s = 2 To 5
    For z = 7 To 10
        If Cells(z, s).Value = 1000 Then
            gefunden = True
        End If
    Next z
Next s

If gefunden = True Then
    MsgBox "1000 gefunden in Zeile/Spalte: " & z & " " & s
Else
    MsgBox "Ned da start neu man!"
End If

End Sub

Er zeit aber die Falsche Zeile und Spalte an! Bitte helfen!

Hier die Exel Datei inkl. Makro
http://www.ezshare.de/files/22513/31786/umsatz2004sfriedewaldbla.xls

 

[wincnc]

Sobald was gefunden wird, muß die Schleife beendet werden mit Exit For.
Sonst wird gefunden zwar auf True gesetzt, aber die Schleife wird bis zum Ende durchgeführt. S ist dann immer 5 und Z ist immer 10.

Sub test()
gefunden = False
For s = 2 To 5
    For z = 7 To 10
        If Cells(z, s).Value = 1000 Then
            gefunden = True
            Exit For 
        End If
    Next z
Next s

If gefunden = True Then
    MsgBox "1000 gefunden in Zeile/Spalte: " & z & " " & s
Else
    MsgBox "Ned da start neu man!"
End If

End Sub

 

[beba]

Hi, danke aber es gibt zwar die richtige Zeile aus die Messagebox aber die Falsche Spalte?! Kann mir da einer helfen?

hier mal ein screenshot:

http://recap-online.de/sascha/images/makro.jpg

 

[DrSoong]

Hier eine korrigierte Version, funktioniert nun so wie gewünscht.


Der Doc!

 

[beba]

Hallo, vielen Dank euch beiden funktioniert nun super