Hent data fra web

Det kan gøres på flere måder - her har jeg oprettet en array variable, som fyldes op når et kriterie opfyldes. Kan du selv tilpasse det til dit behov?


Public Sub SmartOfficeDK_SheetsArray()
    Dim strSheets() As String
    Dim iItem As Integer
    Dim wksTemp As Worksheet
   
    iItem = -1
    For Each wksTemp In ThisWorkbook.Worksheets
        If UCase(Left(wksTemp.Name, 1)) = "S" Then
            iItem = iItem + 1
            ReDim Preserve strSheets(iItem)
            strSheets(iItem) = wksTemp.Name
        End If
    Next wksTemp
    iItem = iItem + 1
    ReDim Preserve strSheets(iItem)
    strSheets(iItem) = "Forside"

    Sheets(strSheets).Select
End Sub

måske udtrykte jeg mig ikke klart nok

Jeg vil gerne have en knap i word som, når man trykker på den, beder om eksempelvis et kundenummer, hvorefter word selv finder adresse og copy/paster det ind i brevet...

LOL - sorry - det er et forkert spørgsmål jeg smed mit svar til *ggg*

lukker