Öffne Userform, wenn bestimmte Zellen befüllt sind

[Redgeier]

Hallo!

Ich möchte gern in den Zellen A1:A10 (meiner Tabelle1) Eintragungen machen.

Wie bekomme ich es hin, dass genau dann, wenn alle 10 Zellen (A1:A10) befüllt sind, meine Userform1 automatisch geöffnet wird??
Es müssen sozusagen alle 10 Zellen befüllt sein.  Wenn noch weitere Eintragungen in meine Tabelle gemacht werden, passiert nichts...Es sei denn A1:A10 wird befüllt.

Danke

[RPP63]

Moin!
Werte im Worksheet_Change die Anzahl mittels Worksheetfunction.CountA() aus.

Gruß Ralf

[Redgeier]

Wie werte ich das genau aus???

Muss ich vorher noch irgendwelche Variablen festlegen?

Sicherlich muss ich eine Wenn-Anfrage (If) machen. Wenn  es 10 Eintragungen in den Zellen A1:A10 gibt,  dann...

[RPP63]

Beispielweise so:

Microsoft Excel Objekt Tabelle4

Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim rng As Range 
Set rng = Range("A1:A10") 
If Not Intersect(rng, Target) Is Nothing Then 
  If WorksheetFunction.CountA(rng) = 10 Then 
    MsgBox "Alle Zellen gefüllt!" 
  End If 
End If 
End Sub