in meerdere tab-bladen via combobox en verwijzing naar cel

Status
Niet open voor verdere reacties.

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


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
 

Bijlagen

  • 198-Met Combobox zoeken in aangegeven Bladen.xlsm
    24,2 KB · Weergaven: 25
Een beetje een onduidelijke uitleg voor mij.
Maar misschien ben je iets met deze raad:
Als je de waarde in de textbox wil wijzigen naar aanleiding van een handeling die je doet met een ander besturingselement (in dit geval een combobox), dan moet je de programmacode achter de event van het andere besturingselement hangen. Zo dus:

Code:
Private Sub ComboBox1_Change()
[E1] = ComboBox1.Text
Me.TextBox1.Value = Me.ComboBox1.Value
Me.TextBox1.SetFocus
End Sub
 
LucHeyndrickx,

Hartelijk dank voor de snelle reactie, maar dit is niet wat ik bedoel

In de textbox1 moet ik nl. de gegevens (Name) zoeken uit de Blad1, Blad2 ect.

Ik kan natuurlijk 4 userforms maken in ieder blad, maar ik wil met 1 userform hebben en
dan kunnen zoeken in 1 van de 4 bladen die in [E1] staan.

Als combobox1 bv. Blad2 -> cel [E1] staat, moet in TextBox1_Change() Blad1 vervangen worden door Blad2,
Als combobox1 bv. Blad3 -> cel [E1] staat, moet in TextBox1_Change() Blad1 vervangen worden door Blad3,
Als combobox1 bv. Blad4 -> cel [E1] staat, moet in TextBox1_Change() Blad1 vervangen worden door Blad4

Hierdoor kan ik dan met 1 userform werken, ik hoop dat deze uitleg iets duidelijker is

groeten,

Offthefield
 
Altijd maar het wiel opnieuw uitvinden. Zet de data gewoon in 1 tabel. Wat is het nut van de textbox als je het toch al in een combobox het staan?
Code:
Private Sub UserForm_Initialize()
  For Each sh In Sheets
    c00 = c00 & "|" & sh.Name
  Next sh
  ComboBox1.List = Split(Mid(c00, 2), "|")
End Sub
Code:
Private Sub ComboBox1_Change()
  If ComboBox1.ListIndex > -1 Then ListBox1.List = Sheets(ComboBox1.Text).Cells(1).CurrentRegion.Value
End Sub

Staat hier blijkbaar ook al. https://www.helpmij.nl/forum/showth...-in-meerdere-tabbladen-met-numerieke-zoekcode
 
Laatst bewerkt:
VenA,

Bedankt voor de reactie.

Ik moet het wiel niet opnieuw uitvinden, maar het moet een programma worden met 4 kwartalen, daarom kan
het niet in 1 blad, dat is dus de reden

Zoals ik al zei kan ik makkelijk 4 userforms maken, dus voor iedere blad 1, maar ik wilde proberen om 1 userform te maken voor
alle 4 de bladen, daarom wil ik het woord Blad1 variabel zien te krijgen!

Kan dat eigenlijk wel?

Groeten,

Offthefield
 
Heb je de code wel geprobeerd?
Het blijft overigens een onzin verhaal om vier kwartalen, 12 maanden, 52 weken of 365 dagen in verschillende tabjes te zetten. Vervolgens moet je van de kwartalen, maanden, weken, dagen weer een totaaloverzicht maken?
 
VenA,

Ik heb de code nu geprobeerd, in combobox1 en listbox1 komen de gegevens, maar als je gaat zoeken met textbox1
zoekt hij alleen in Blad1 omdat dat daar ook is aangegeven, maar ik wil vanuit textbox1 ook in de andere bladen
kunnen zoeken

groeten,

Offthefield
 
Staat toch al in jouw andere vraag. Selectief reageren is over het algemeen niet het beste om tot een goede oplossing te komen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan