getallenreeks plaatsen op basis van een celwaarde met vba

[maurizzio78]

hallo allemaal,

ik wil het volgende doen,

ik wil middels vba in een sheet een oplopende getallenreeks plaatsen die tot een bepaald getal gaat die veranderen kan (waarde staat in een cel).

dus bv op blad3 in cel B1 staat een waarde die telt hoeveel ingeschreven spelers ik heb en op basis van die cel moet dan een getallenreeks
op blad blad2 komen vanaf cel A2 oplopen tot het getal wat in cel B1 op blad3 word weergegeven.
dus bv in cel B1 staat 6 dan wil ik een lijst startend in cel A2 oplopend 1,2,3,4,5,6 tot cel A7 maar als celwaarde B1 veranderd ook de lijst veranderd.

bij voorbaat al dank.

mvg maurizzio labruzzo

 

[SjonR]

deze achter blad3:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    Blad2.Range("A2:A10000").ClearContents
    For i = 1 To [B1]
        Blad2.Cells(i + 1, 1).Value = i
    Next
End If
End Sub

 

[maurizzio78]

deze achter blad3:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    Blad2.Range("A2:A10000").ClearContents
    For i = 1 To [B1]
        Blad2.Cells(i + 1, 1).Value = i
    Next
End If
End Sub

deze werkt niet als ik hem achter blad 3 plaats, kan het zijn dat ik niet blad 2 en 3 aangeef of dat wat tussen haakjes erachter?

 

[SjonR]

zonder voorbeeldbestand is het ook maar gokken voor ons:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    Sheets("Blad2").Range("A2:A10000").ClearContents
    For i = 1 To [B1]
        Sheets("Blad2").Cells(i + 1, 1).Value = i
    Next
End If
End Sub

 

[maurizzio78]

zonder voorbeeldbestand is het ook maar gokken voor ons:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    Sheets("Blad2").Range("A2:A10000").ClearContents
    For i = 1 To [B1]
        Sheets("Blad2").Cells(i + 1, 1).Value = i
    Next
End If
End Sub

ik zal bestand even aanpassen zodat ik voorbeeld kan plaatsen

 

[maurizzio78]

hier het bestand

 

[SjonR]

deze achter blad Engine:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    Sheets("lotingen").Range("A2:A10000").ClearContents
    For i = 1 To [B1]
        Sheets("lotingen").Cells(i + 1, 1).Value = i
    Next
End If
End Sub

 

[maurizzio78]

ik weet niet wat ik fout doe maar als ik hem achter blad engine zet gebeurt er niets als ik een nieuwe inschrijving doe

 

[SjonR]

ik weet het ook niet:

Kijk eens naar dit bestand...

 

[maurizzio78]

ik weet het ook niet:

Kijk eens naar dit bestand...

zo doet ie het wel maar als ik in cel B1 een formule heb staan doet ie het niet als ik deze copy paste als waarden dan wel maar dat is niet de bedoeling

 

[SjonR]

tja, als mijn oma wielen had, dan was ze een fiets. waardoor wordt die formule gevuld dan?

Jouw voorbeeldbestand heeft geen formule in B1..........................

 

[maurizzio78]

tja, als mijn oma wielen had, dan was ze een fiets. waardoor wordt die formule gevuld dan?

=AANTALARG(db_inschrijvingen!B:B)-1

 

[HSV]

Zet het in module van Lotingen.

Private Sub Worksheet_Activate()
 a = Sheets("engine").Range("b1").Value
 Cells(1).CurrentRegion.Columns(1).Offset(1).ClearContents
 Cells(2, 1).Resize(a) = Evaluate("row(1:" & a & ")")
End Sub

 

[SjonR]

ja, inderdaad. Dan is het activate event de enige optie.

 

[maurizzio78]

zo werkt het.
bedankt voor de hulp.

mvg maurizzio labruzzo

 

[SjonR]

een kloppend voorbeeldbestand is daarom wel fijn, dan heb je zo je oplossing.

fijne avond

 

[HSV]

In het bestand van #6 staat de formule in B1 van 'engine' sjon.

Misschien moet je dit nog even toevoegen i.v.m. het legen van "inschrijvingen'.

[COLOR="#FF0000"]if a > 0 then [/COLOR]Cells(2, 1).Resize(a) = Evaluate("row(1:" & a & ")")