UserForm nur wenn Zelle leer
09.04.2013 21:33:48
Frei
Meine Datei Startet mit 3 UserFormen. Unter anderem muss der Benutzer mittels UF den Namen eingeben. Wenn nun aber die Datei schon einmal gespeichert ist, dann ist der Name in Zelle I9 vorhanden. Genau dann soll die UserForm Name nicht starten. Mit meinen bescheidenen VBA-Kenntnissen bin ich am Anschlag...
Ich hab mal folgendes Gebastelt
Private Sub Workbook_Open()
Dim VN As String ' VN wird gebraucht da "Name" schon in einem anderen Code verwendet wird
Cells(2, 9) = VN 'genau hier wird I9 gelöscht wenn schon was drin ist :-(
If VN = "" Then
UserFormName.Show
Else
Exit Sub
UserFormMonat.Show
UserFormMail.Show
End If
End Sub
Leider wird die Zelle I9 geleert wenn schon ein Wert vorhanden ist. Wie gesagt mein VBA ist sehr bescheiden. Habe auch schon ein Beitrag mit "If IsEmpty" gefunden kann den aber leider nicht umsetzen.
Wie muss mein Code aussehen damits klappt?
Danke schon mal für eure Bemühungen
Gruess Dani
Anzeige