Makro ausführen wenn !

Forumthread: Makro ausführen wenn !

Bernd

Hallo,
wenn in Spalte I irgendwo eine 3 ist, soll automatisch ein Makro ausgeführt werden. geht das ? kann mir jemand helfen ?
Gruß Bernd

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Makro ausführen wenn !

Andreas
AW: Makro ausführen wenn !

Bernd

AW: Makro ausführen wenn !

Andreas

Hallo Bernd,
vielleicht hilft dir folgendes:


Sub MakroStartwennWert()
Dim Bereich As Range
Dim letzteZeile%
letzteZeile = ActiveSheet.Range("I65536").End(xlUp).Row
Set Bereich = Range(Cells(1, 9), Cells(letzteZeile, 9))
For Each cell In Bereich
If cell.Value = 3 Then
Call DeinMakro
Exit 

Sub 'Falls das Makro nur einmal ausgeführt werden soll
End If
Next
End Sub


Gruß Andreas

AW: Makro ausführen wenn !

Bernd

Hallo
vielen Dank Andreas, komme ich mit zurecht !
Gruß Bernd

Forumthread: Makro ausführen wenn !

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread