Userform niet showen bij gevulde cel

[Hunuloeloe]

Beste helpers,

Ik heb de volgende userform

Private Sub CommandButton1_Click()

If Not IsDate(TextBox2) Then
 MsgBox "Geen geldige datum ingegeven!"
  TextBox2 = ""
   TextBox2.SetFocus
    Exit Sub
End If
Sheets("Dagplanning").Cells(1, 2) = Format(TextBox2.Value, "dd/mm/yyyy")
Unload Me
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_AfterUpdate()
CommandButton1.SetFocus
End Sub



Private Sub UserForm_Initialize()
 TextBox2.SetFocus
  Sheets("Dagplanning").Cells(1, 2) = ""
End Sub

Die ieder keer zichtbaar wordt als ik het tabblad dagplanning open. In het tabblad dagplanning is de volgende code opgenomen

Private Sub Worksheet_Activate()
 On Error GoTo oeps
    UserForm1.Show
oeps:
End Sub

De userform vult cel B1 maar nu zou ik graag willen dat wanneer ik het bestand opsla en in cel B1 al een waarde staat de userform niet opnieuw weer in beeld komt. (het werkt prima, maar het is gewoon irritant )

Hierbij het vb bestand
Bekijk bijlage vb bestand met userform.xlsm

 

[Cobbe]

Private Sub Worksheet_Activate()
 On Error GoTo oeps
    If IsEmpty(Sheets("Dagplanning").Cells(1, 2)) Then
     UserForm1.Show
    End If
oeps:
End Sub

 

[VenA]

Of controleren of er een datum in B1 staat

Private Sub Worksheet_Activate()
  If Not IsDate(Range("B1")) Then UserForm1.Show
End Sub

 

[Hunuloeloe]

Wederom bedankt Cobbe! :thumb:

 

[Hunuloeloe]

VenA ook bedankt voor je reactie, ik gebruik de code van Cobbe nu

 

[VenA]

Als je liever veel onnodige regels wil gebruiken dan mag dat natuurlijk.:d

Aangezien Userform1 bestaat is de On Error niet nodig. Als je een blad activeert dan is Range("B1"), B1 van dat blad dus is het verwijzen naar dat blad niet nodig en zelfs af te raden. Als er om wat voor reden dan ook de naam van het blad gewijzigd wordt dan werkt de code niet meer.

Als iemand om wat voor reden dan ook iets anders in B1 zet, een letter, een spatie of wat dan ook dan klopt het ook niet meer.

Meer kan ik even niet vinden om te motiveren dat je beter mijn code kan gebruiken.

 

[Cobbe]

@Hunuloeloe

Gebruik de code van VenA maar, ik wil niemands Kerst bederven.

 

[VenA]

@Cobbe,
Mijn Kerst bederf je er niet mee. Moet de TS maar geen naar mij uitsteken:d

 

[Cobbe]

Dat is natuurlijk ook geen stijl. Had ik niet opgemerkt.