• 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.

Gegevens uit grote tabel verzameld weergeven

Status
Niet open voor verdere reacties.
met een macro.

Code: 
Sub VenA()
Dim j As Long, jj As Long, t As Long, ar, ar1
ar = Blad1.Cells(2, 1).CurrentRegion
ReDim ar1(UBound(ar) - 1, UBound(ar, 2) - 1) As String
For j = 2 To UBound(ar)
  ar1(j - 2, 0) = ar(j, 1)
  For jj = 2 To UBound(ar, 2)
  If ar(j, jj) <> "" Then
    t = t + 1
    ar1(j - 2, t) = ar(1, jj) & " - " & ar(j, jj)
  End If
  Next jj
  t = 0
Next j
Blad2.Cells(10, 1).Resize(UBound(ar), UBound(ar, 2)) = ar1
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan