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

opvolgend cellen vullen

Status
Niet open voor verdere reacties.

bkoppers

Gebruiker
Lid geworden
11 jan 2011
Berichten
110
Onderstaande macro gebruik ik om opvolgende tekst in cellen te plaatsen, echter mijn uitkomst is nu :
TEST009
TEST0010
enz.....

graag zou ik zien dat het
TEST009
TEST010
enz...

wordt, wie kan mij helpen. Alvast bedankt

Code:
Sub TEST()
Dim iAantal As Integer
Dim StrG As Variant
Dim StrA As String
Dim I As Integer


     iAantal = InputBox("Hoeveel stuks wil je aanmaken")
     StrG = ActiveCell
     StrA = InputBox("WELKE NAAM KRIJGT DE EERST CEL", , "TEST009")
     For I = 0 To iAantal - 1
     
        
            ActiveCell.Offset(I, 0) = StrA & CStr(I) ' tekst in cel

     Next I
End Sub
 
Probeer dit eens:
Code:
Sub TEST()
Dim iAantal As Integer
Dim StrG As Variant
Dim StrA As String
Dim I As Integer


     iAantal = InputBox("Hoeveel stuks wil je aanmaken")
     StrG = ActiveCell
     StrA = InputBox("WELKE NAAM KRIJGT DE EERST CEL", , "TEST")
     For I = 0 To iAantal - 1
        ActiveCell.Offset(I, 0) = StrA & Format(I, "000") ' tekst in cel
     Next I
End Sub
 
bedankt voor je reactie, helaas is de uitkomst nu:

TEST009000
TEST009001
TEST009002
TEST009003
TEST009004
 
Zo dus:

Code:
Sub M_snb()
   Cells(1, 4) = "test009"
   Cells(1, 4).AutoFill Cells(1, 4).Resize(20)
End Sub
 
En wat flexibeler:

Code:
Sub TEST()
With Range("A1")
    .Value = InputBox("WELKE NAAM KRIJGT DE EERST CEL", , "TEST009")
    .AutoFill .Resize(InputBox("Hoeveel stuks wil je aanmaken"), 1)
End With
End Sub

Met vriendelijke groet,


Roncancio
 
Bedankt voor deze (veel kortere) oplossing :thumb:

is het ook mogelijk om in deze vorm van doorvoer de naam van de cellen de definieren ipv de inhoud.


ik had daar in mijn code namelijk bedacht dat het zoiets moest zijn.

Code:
ActiveCell.Offset(I, 0).Name = StrA & CStr(I)
 
Benoemde gebieden leveren in VBA niets op. Die zijn bedoeld voor gebruikers zonder VBA-kennis.
 
Het probleem is dat ik 400 cellen moet voorzien van een naam (_QC201 t/m _QC600) en ik wilde dat via een macro doen, ik vermoede dat het wel zou gaan zoals je ook inhoud van een cel kan doorvoeren, maar dat blijkt dan toch niet zo simpel te zijn.

iig bedankt voor het mee denken.
 
Niets is simpeler:

Code:
Sub M_snb()
   Cells(1, 4) = "_QC201"
   Cells(1, 4).AutoFill Cells(1, 4).Resize(400)
End Sub
 
Bedankt voor jullie inbreng , het werkt met mijn eigen code als ik van 0 begin, ipv 201 dus dan lossen we het zo maar op. :eek:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan