Excel 2013 macro/module werkt niet

[p0st]

Goedemiddag,

Ik heb van een collega een stukje code gekregen, om een bepaalde reeks geagregeerde data in 1 werkblad (Voor) om te zetten naar de ruwe data (Na). Het gaat om resultaten van een enquete waarop het antwoord 1-5 gegeven kon worden en welke dus nu geagregeerd zijn:

Vraag 1
1 2 3 4 5
2 3 3 2 1

Moet dus worden

Vraag1
1
1
2
2
2
3
3
3
4
4
5

Helaas werkt deze code niet en ik is mijn collega niet beschikbaar, dus ik dacht laat ik de vraag hier eens stellen. FYI, ik ben niet erg thuis in VBA, al heb ik wel basale kennis van programmeren dus ik snap wat de code ongeveer doet. Kan iemand mij helpen?

De error die ik krijg is "Compileerfout: Sub of Function is niet gedefinieerd"

Visual Basic:

Sub test()

    Dim c As Range, target As Range
    Dim wsA As Worksheet, wsB As Worksheet
     
    Set wsA = Sheets("Voor")
    Set wsB = Sheets("Na")
     
    'startcell data
    Set c = wsA.Cells(7, 2)
    'start cell doel
    Set target = wsB.Cells(2, 2)
     
    Do While c <> ""
     
    icrow = c.Row
    iTkol = target.Column
     
    For i = 1 To 5
    
        If c <> 0 Then
            For j = 1 To c
                Set target = target.Offset(1, 0)
                target = i
            Next j
        End If
        Set c = c.Offset(0, 1)
    
    Next i
    Set c = wsA.Cells(icrow, 2).Offset(1, 0)
    Set target = wsB.Cells(2, iTkol).Offset(0, 1)
    Loop

End Sub

[ Voor 2% gewijzigd door Lustucru op 22-01-2013 20:48 ]

[Lustucru]

Meestal markeert de vba editor dan ook wélke sub of function niet is gedefinieerd. Dan weet je meteen waar het probleem zit.

offtopic:
Als je code-tags gebruikt dan hoef je geen plaatje toe te voegen.

[ Voor 4% gewijzigd door Lustucru op 22-01-2013 20:49 ]

[p0st]

Ah thanks voor de hulp Lustucru, ik kon de code tags even niet vinden

Hmm hij stopt gelijk bij (en markeert)

VBScript:

Sub test()

en dat is ook de enige Sub in de hele sheet. Dit is dus het enige stukje VBA in de hele sheet...

[Lustucru]

Dit stuk vba verklaart voor mij de foutmelding niet. Misschien in een verborgen module of bibliotheek of het sheet is corrupt?
Maak eens nieuwe werkmap en probeer het volgende te runnen:

code:

sub HalloWorld()
msgbox "Hallo World"
End sub

Als dit wel runt, probeer je code te plakken e/o. halloworld in de huidige werkmap?

[p0st]

Je Hello World werkt zowel in een nieuwe sheet als de bestaande sheet. Ik blijf maar dezelfde error krijgen bij mijn stukje code. Bij de foutmelding wordt de sub geel gearceerd en stopt de cursor tussen de Dim en Set in, zegt dat misschien iets? Anyway, ik zal kijken of ik morgen ook weer mijn collega te pakken kan krijgen, mochten we er uit komen dan laat ik dat uiteraard even weten thanks voor je hulp in ieder geval!

[Rupie]

Ik heb even zitten kijken en in 2003 werkt het gewoon bij mij.
De tabbladen hebben wel de namen 'Voor' en 'Na' en je hebt de gegevens wel in de juiste rijen staan?

[p0st]

Oh ik voel me echt dom
Blijkbaar was er tijdens het kopieren van het stukje VBA op elke witregel een spatie komen te staan, waar hij dus op vast loopt!
De module werkt inmiddels naar behoren, dankjulliewel voor het meedenken Lustucru en Rupie!

[Big Womly]

Vreemd. Spaties en tabs zouden geen invloed mogen hebben op de uitvoering van een macro...