• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Cellen bijeen zoeken die een bepaalde waarde bevatten

Status
Niet open voor verdere reacties.

wieter

Terugkerende gebruiker
Lid geworden
26 jun 2009
Berichten
1.128
Een oplossing met een draaitabel is niet functioneel in het uiteindelijke bestand.

Kolom A is een lijst met cijfercombinaties.(Zoals bijvoorbeeld: 2 - 5)
Hoe kan ik:
In kolom B alle combinaties bijeen zoeken die de waarde "1" bevatten.
In kolom C alle combinaties bijeen zoeken die de waarde "2" bevatten.
In kolom D alle.......... enz... tot waarde '10"
In de bijlage heb ik de kolommen B en C manueel ingevuld.
Ik vermoed dat dit alleen via VBA kan.
 

Bijlagen

  • Zoeken in cijfercombinatie.xlsx
    10,4 KB · Weergaven: 23
Hij is wat snel geschreven maar doet het wel.
ik denk idd het het zonder vba lastig wordt.

Code:
Sub Zoeken()
regE = 2
regL = Cells(Rows.Count, 1).End(xlUp).Row
kolE = 2
kolL = Cells(1, Columns.Count).End(xlToLeft).Column

Range(Cells(regE, kolE), Cells(regL, kolL)) = ""

For kolNR = kolE To kolL
    plakregel = 2
    nr = Cells(1, kolNR)
    For regNR = regE To regL
        combinatie = Cells(regNR, 1)
        pos = InStr(combinatie, nr)
        cnr = nr & "0"
        cpos = InStr(combinatie, cnr)
        If pos <> 0 Then
            If pos <> cpos Then
            Cells(plakregel, kolNR) = combinatie
            plakregel = plakregel + 1
            End If
        End If
    Next regNR
Next kolNR
End Sub

vervang de kolommen "Met 1" enz.
even in 1, 2 ,3 (haal het woordje met weg. de macro gebruikt de kolom als referentie)
 
Laatst bewerkt:
Bedankt voor de oplossing.
Doet perfect wat ik voor ogen had.
Groeten Wieter
 
Beetje sneller en kan beter:d

Code:
Sub VenA()
  Dim j As Long, jj As Long, t As Long, ar, ar2
  Application.ScreenUpdating = False
  With Sheets("Blad1")
    ar = .Columns(1).SpecialCells(2)
    ReDim ar2(UBound(ar) * 2, 1 To 10)
    For j = 2 To UBound(ar)
      For jj = 0 To 1
        ar2(t, Split(ar(j, 1), "-")(jj)) = ar(j, 1)
        t = t + 1
      Next jj
    Next j
    .Cells(2, 2).Resize(UBound(ar2) + 1, 10) = ar2
    .Columns(2).Resize(, 10).SpecialCells(4).Delete
  End With
End Sub
 
En weer zorgt VenA voor de professionaliteit.
En weer bedankt!
 
Kan volgens mij ook zonder VBA. Zie bijlage.
 

Bijlagen

  • Zoeken in cijfercombinatie.xlsx
    18,4 KB · Weergaven: 27
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan