Som du ser er der 4
tekstbokse med navnet SuperDuper SuperDuper1 SuperDuper2 SuperDuper3
De virker alle
sammen MEN desverre var det meningen at indholdet skulle blive i tekstboksene.
I denne opstilling
har indholdet fra den første tekstboks
flyttet sig ned i nr. 2 tekstboks så noget er stadig ikke ok. Fra
SuberDuber til SuberDuber1.
SuberDuber var brugt
til en tekst fra tidligere forsøg
Jeg forstår ikke
hvordan SuberDuber kommer ned i SuberDuber.value når denne fødes fra variablen
Test_Value
og
Det er disse 2
UserForm jeg stadig ikke rigtigt forstår frunktionen af.
Private Sub
UserForm_Initialize()
On Error Resume Next
SuperDuper1.Value =
Evaluate("IB_Test_Value")
SuperDuper.Value =
Evaluate("IB_Test_Value1")
SuperDuper2.Value =
Evaluate("IB_Test_Value2")
SuperDuper3.Value =
Evaluate("IB_Test_Value3")
End Sub
Private Sub
UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
ThisWorkbook.Names("IB_Test_Value").Delete
ThisWorkbook.Names("IB_Test_Value1").Delete
ThisWorkbook.Names("IB_Test_Value2").Delete
ThisWorkbook.Names("IB_Test_Value3").Delete
ThisWorkbook.Names.Add
Name:="IB_Test_Value", RefersToR1C1:="=" & Chr$(34)
& SuperDuper.Value & Chr$(34), Visible:=False
ThisWorkbook.Names.Add
Name:="IB_Test_Value1", RefersToR1C1:="=" & Chr$(34)
& SuperDuper1.Value & Chr$(34), Visible:=False
ThisWorkbook.Names.Add
Name:="IB_Test_Value2", RefersToR1C1:="=" & Chr$(34)
& SuperDuper2.Value & Chr$(34), Visible:=False
ThisWorkbook.Names.Add
Name:="IB_Test_Value3", RefersToR1C1:="=" & Chr$(34)
& SuperDuper3.Value & Chr$(34), Visible:=False
'Stop
End Sub