title image


Smiley Userform nach zweimal klicken weg
Private Sub workbook_open()

Range("i13").Select

dlgStrichnummer.Show



If dlgStrichnummer.result = True Then 'Ok Button

[i13] = dlgStrichnummer.txtLokNr

Selection.NumberFormat = "general"

dlgStrichnummer.lblNr.Caption = [k13]

End If

If dlgStrichnummer.result = False Then 'Neu Button

dlgStrichnummer.txtLokNr = Empty

dlgStrichnummer.lblNr = Empty

End If

dlgStrichnummer.Show

End Sub



Wenn ich einmal den Ok Button klicke bekomme ich das Ergebnis wie gewollt.Beim zweiten klick, egal ob "Ok" oder "Neu" ist meine Form weg.

1. Was ist falsch in meinem Code(abgesehen davon das er vielleicht etwas umständlich ist)?



2. Warum funktioniert es überhaupt nicht wenn das Blatt geschützt ist, obwohl alle veränderbaren Zellen nicht gesperrt sind ?



Bin für jede Hilfe DANKBAR



Andreas




Besten Dank im voraus ! Andreas

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: