Offthefield
Gebruiker
- Lid geworden
- 27 apr 2005
- Berichten
- 369
Goedemiddag,
Ik heb een programma waarin in een combobox een blad wordt aangegeven bv. Blad1, Blad2 ect.,
deze komt in cel E1 te staan
Nu wil ik de code in textbox1 aanpassen, dat cel E1 komt te staan waar nu Blad1 (deze wordt dus variabel) staat, dit kan met een & teken,
maar dit is mij nog niet gelukt tot op heden na een aantal pogingen.
Heeft iemand een idee hoe dit wel kan?
Bij voorbaat hartelijk dank
Offthefield
Ik heb een programma waarin in een combobox een blad wordt aangegeven bv. Blad1, Blad2 ect.,
deze komt in cel E1 te staan
Nu wil ik de code in textbox1 aanpassen, dat cel E1 komt te staan waar nu Blad1 (deze wordt dus variabel) staat, dit kan met een & teken,
maar dit is mij nog niet gelukt tot op heden na een aantal pogingen.
Heeft iemand een idee hoe dit wel kan?
Bij voorbaat hartelijk dank
Offthefield
Code:
Private Sub TextBox1_Change()
Me.TextBox1.Text = StrConv(Me.TextBox1.Text, vbProperCase)
Dim i As Long
Me.ListBox1.Clear
''
On Error Resume Next
''For i = 1 To Application.WorksheetFunction.CountA & ("([E1]" & .Range("A:A")
''For i = 1 To Application.WorksheetFunction.CountA([E1] & .Range("A:A"))
For i = 1 To Application.WorksheetFunction.CountA(Blad1.Range("A:A"))
A = Len(Me.TextBox1.Text)
If Left(Blad1.Cells(i, 1).Text, A) = Left(Me.TextBox1.Text, A) Then
Me.ListBox1.AddItem Blad1.Cells(i, 1).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Blad1.Cells(i, 2).Value
End If
Next i
End Sub