Woord in tabladen zoeken en daarbij horende informatie weergeven

[oekjongbloed]

goedemiddag,

Ik maak het rooster voor alle werknemers. We hebben drie filialen. In de bijlage is het rooster van 1 filiaal weergegeven. In drie tabbladen zijn de roosters van de drie filialen weergegeven. Ik wil graag in een extra tabblad een vakje hebben waar je je eigen naam in kan vullen. Waarna excel dan naast deze cel met de naam uit de drie tabbladen met roosters de data van de ingevoerde naam eruit kan halen.
bijvoorbeeld:
Typ in 'freek'
cel daarnaast geeft dan:
29-3 filiaal 1
30-3 filiaal 1
4-4 filiaal 2
8-4 filiaal 3
Etc...

Heel graag hoor ik of dit mogelijk is.
Mvg

 

[JeanPaul28]

Met UDF functie zou dat moeten lukken.

 

[gast0660]

Post eens een voorbeeldje, i.p.v. een plaatje.
Geen enkele helper zit te wachten om een uurrooster na te kloppen in excel.
Zo zal je ook veel sneller en gerichter geholpen worden.

 

[oekjongbloed]

Zie aanpassing in mijn bericht. in de bijlage 'copy of rooster...

 

[VenA]

Met een macro

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
  Dim j As Long, jj As Long, t As Long, ar, ar1, sh
  With Cells(2, 2).Resize(35, 3)
    .ClearContents
    ReDim ar1(34, 2)
    For Each sh In Sheets
      If sh.Name <> "Naam invulschena" Then
        ar = sh.Cells(4, 1).Resize(24, 7)
        For j = 2 To UBound(ar)
          For jj = 1 To 7
            If LCase(ar(j, jj)) = LCase(Target) Then
              ar1(t, 1) = ar(Int((j - 1) / 5) * 5 + 1, jj)
              ar1(t, 0) = Format(ar1(t, 1), "dddd")
              ar1(t, 2) = sh.Name
              t = t + 1
            End If
          Next jj
        Next j
      End If
    Next sh
    .Value = ar1
    .Sort [c2]
  End With
End If
End Sub

 

[oekjongbloed]

Dank VenA,

Dit is exact hoe ik het wilde hebben idd.
Ik heb weinig ervaring met codes schrijven in excel. Ik heb het codeblad bestudeert maar zie niet hoe ik bepaalde gegevens verander of aanvul.
Graag zou ik namelijk de overige namen hier ook bij voegen.
Kan iemand mij op weg helpen?

mvg

 

[VenA]

Dat heeft niets met de code te maken. Zoe eens even op gegevensvalidatie en kijk wat er in A2 staat.

 

[oekjongbloed]

Gelukt, helemaal top
Ik dank u zeer (ook namens mijn baas)

mvg