een aantal regels een aantal keer laten kopieren

[tobi-wan]

Hoi,

voor het foto album van de website van mijn zoontje moet ik een xml file gaan vullen.
Nou wilde ik met excel alvast een range maken met het aantal foto's en de naam van die foto's.

De naam is simpel gevoon doortellen vanaf een opgegeven nummer.
Maar voor het vullen van de xml file wil ik eigenlijk vooraf in excel aangeven hoeveel foto's ik wil plaatsen zodat excel voor mij het aantal regels met de juiste fotonummers in een kolom plaats. later kan ik die dan wel exporteren naar een txt document.

ik wil dus ingeven hoeveel foto's ik wil plaatsen en eventueel een startnummer opgeven voor de foto's daarna moet excel x maal onderstaande 4 regels onderelkaar worden weergeven (de 4 regels kunnen ook eventueel worden samengevoegd tot 1 regel dit is eigenlijk alleen maar voor het overzicht)

IMAGE>
NAME>Foto1.jpg</NAME>
CAPTION>Foto1</CAPTION>
/IMAGE>
(de regels beginnen met < maar als ik die plaats denk het forum dat ik een foto probeer te plaatsen)

Ik hoop dat er iemand is die mij een beetje opweg kan helpen.
Alvast bedankt voor de moeite.

groeten Tobi

 

[Wigi]

Hello Tobi-wan

Plaats de volgende macro in een nieuwe Module in VBA:

Sub fotoplaatsen()
    Dim ibAantal As Integer, ibBegin As Integer, intTeller As Integer
    
    ibAantal = InputBox("Hoeveel foto's wil je plaatsen?", "Vraag 1")
    
    If ibAantal <= 0 Then
        MsgBox "Je wil geen foto's plaatsen. Er gebeurt dan ook niets."
        Exit Sub
    Else
        ibBegin = InputBox("Vanaf waar wil je beginnen?", "Vraag 2")
        If ibAantal > 0 Then
            For intTeller = 1 To ibAantal
                Cells(4 * (intTeller - 1) + 1, 1) = "IMAGE>"
                Cells(4 * (intTeller - 1) + 2, 1) = "NAME>Foto" & ibBegin + intTeller & ".jpg"
                Cells(4 * (intTeller - 1) + 3, 1) = "CAPTION>Foto" & ibBegin + intTeller
                Cells(4 * (intTeller - 1) + 4, 1) = "/IMAGE>"
            Next
        End If
    End If
End Sub

Voer de macro dan uit.

Kan je dit of moet ik nog info geven hoe je dit moet doen?

PS: verander jij ook 4 * de HTML tag <

Wigi

 

[tobi-wan]

Nee verder kom ik wel. Ik heb het toegepast en het werkt!!!


ook hier ben ik jullie dankbaar.
harstike bedankt voor de hulp

groeten Tobi