Code:
Sub M_snb()
for each cl in sheets(1).columns(1).specialcells(2,2)
if cl="M4" then c00=c00 & vblf & cl.row
next
msgbox c00
End Sub
Ergo: ohne 'Select' oder 'Activate'
Hallo SNB,
was ich wollte war Code zu bekommen, der nur die Zellen mit M4 auswählt. Mittels For Each Anweisung sollten dann alle Zeilennummern mit M4 Werten ausgegeben werden. Dein Code macht aber leider nichts.
[
Bild bitte so als Datei hochladen: Klick mich!]
Hallo,
dann machst Du wohl was falsch. Aber ohne die Datei zu sehen, weiß keiner woran es liegt.
Hallo,
ich hab den Fehler gefunden. Statt Sheets(1) musste ich "Tabelle1" eingeben. Der Code von SNB scheint mir recht elegant
zu sein. Dafür schon mal ein herzliches Dankeschön. Den werde ich mir jetzt mal etwas genauer ansehen. Und danach werde
ich euch dann weiter "nerven".
Bis dann!