|
Schreibe das hier in ein Standardmodul:
Sub test()
Dim table As Worksheet, x As Long, y As Long, lngZeilen As Long
Set table = Worksheets("Tabelle1")
lngZeilen = table.Cells(table.Rows.Count, 1).End(xlUp).Row
'Eine Schleife, die beide Spalten auf Bedingung überprüft, falls true dann soll es eine 1 bei W2 eintragen
For y = 1 To lngZeilen
If table.Cells(y, 12) = "" And table.Cells(y, 6).Value Like "Frankreich*" Then
x = x + 1
End If
Next y
Range("W2").Value =range("W2").value+ x 'wenn du einfach nur addieren willst...
Range("X2").Value =x 'wenn du beides haben willst...
End Sub
(darfst die Prozedur auch gerne anders nennen...)
Und dann kannst du die hier aufrufen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
call test
End Sub
oder du verwendest Change:
Private Sub Worksheet_Change(ByVal Target As Range)
application.enableevents=false
call test
application.enableevents=true
End Sub
SelectionChange ist ungünstig wenn du dich auf Inhalt der grade veränderterten Zelle beziehen willst (da musst du dann erst wieder zurückspringen). Ansonsten kannst du auch ruhig SelectionChange benutzen...
|