Vermoedelijk was het niet duidelijk.
Ik heb een oplossing, maar die is dan wel heel omslachtig.
Vermoedelijk kan het in 1 regel, en zelfs zonder functie.
<CODE>
Public var_1 As String
Public var_2 As String
...
Public var_9 As String
Private Sub test_varibelen()
Dim i As Integer
For i = 1 To 9
A = Opslaan_als_variabele(i, "Dit is nr.: " & i)
Next i
End Sub
Function Opslaan_als_variabele(Nr As Integer, Data As String)
' vb.: Nr = 4; Data = "Vnr" Naam = "Var_" => Var_4 = "Vnr"
' dit werkt, maar het is wel heel omslachtig
' (nog) geen betere vba-code gevonden
On Error GoTo Fout
' ini
Dim R, Titel, Msg
' lijst mogelijkheden
Titel = "Foutmelding bij Opslaan_als_variabele"
Select Case Nr
Case 1
var_1 = Data
Case 2
var_2 = Data
...
Case 9
var_9 = Data
Case Else
Msg = "Het nr.: " & Nr & " werd niet gevonden." & vbCrLf & _
"Data: " & Data
R = MsgBox(Msg, vbInformation, Titel)
End Select
Exit Function
Fout:
Msg = "De opdracht kon niet worden uitgevoerd. " & vbCrLf & _
"Data: " & Data
R = MsgBox(Msg, vbInformation, Titel)
End Function
</CODE>
Ik heb een oplossing, maar die is dan wel heel omslachtig.
Vermoedelijk kan het in 1 regel, en zelfs zonder functie.
<CODE>
Public var_1 As String
Public var_2 As String
...
Public var_9 As String
Private Sub test_varibelen()
Dim i As Integer
For i = 1 To 9
A = Opslaan_als_variabele(i, "Dit is nr.: " & i)
Next i
End Sub
Function Opslaan_als_variabele(Nr As Integer, Data As String)
' vb.: Nr = 4; Data = "Vnr" Naam = "Var_" => Var_4 = "Vnr"
' dit werkt, maar het is wel heel omslachtig
' (nog) geen betere vba-code gevonden
On Error GoTo Fout
' ini
Dim R, Titel, Msg
' lijst mogelijkheden
Titel = "Foutmelding bij Opslaan_als_variabele"
Select Case Nr
Case 1
var_1 = Data
Case 2
var_2 = Data
...
Case 9
var_9 = Data
Case Else
Msg = "Het nr.: " & Nr & " werd niet gevonden." & vbCrLf & _
"Data: " & Data
R = MsgBox(Msg, vbInformation, Titel)
End Select
Exit Function
Fout:
Msg = "De opdracht kon niet worden uitgevoerd. " & vbCrLf & _
"Data: " & Data
R = MsgBox(Msg, vbInformation, Titel)
End Function
</CODE>
Laatst bewerkt: