naam van grafiek variabel maken

[erics2003]

Ik heb een formulier gemaakt waarop een apart textveld staat waar je de naam van de grafiek in kunt vullen. Er staat standaard "provide name" hier ingevuld. Indien dit niet verandert wordt maakt hij automatisch een datum aan op basis van datum en suffix. Dit laatste lukt wel als ik dit alleen, zonder de if statement...if txtchartname <>"provide name". Echter deze if statement gaat niet goed, hij geeft telkens een foutmelding. Weet iemand wat ik fout doe?

Code:


Dim chtChart As Chart
Dim txtchartname As String
Dim mysuffix As Integer

mydate = DateTime.Date
mysuffix = 1

Set chtChart = ActiveWorkbook.Charts.Add
chtChart.ChartType = xlXYScatterLines

If txtchartname <> "provide name" Then
chtChart.Name = txtchartname
Else
On Error Resume Next
chtChart.Name = mydate & "v" & mysuffix
Do Until Err.Number = 0
Err.Clear
mysuffix = mysuffix + 1
chtChart.Name = mydate & "v" & mysuffix
Loop
End If

 

[Wigi]

Hallo Eric

Wordt de variabele txtchartname wel goed gevuld?

Probeer eens:

txtchartname = Me.txtchartname.Text

toe te voegen vooraleer die vergeleken wordt met provide name.

Wigi