04. juni 2019 - 15:40 Der er 1 kommentar og
2 løsninger

VBA - Ryd Celle og indsæt tekst med linjeskift

En ark klargøringsproces tvinger mig til at, manuelt gå ind og fjerne en vis mængde tekst og erstatte den med en såkaldt basistekst.
Hvordan kan jeg kode det ind så den automatisk sletter cellens indhold og indsætter basisteksten?

Den tekst der skal indsættes består desuden af 4 afsnit og indeholder derfor hårde linjeskift.

Teksten som skal indsættes lyder således:

"Arket skal suppleres med:

1) Retvisende beregninger
2) Kommentarer
3) Beløb"

Cellerne der skal ryddes og udfyldes går fra D29:R30
Avatar billede Jan Hansen Ekspert
04. juni 2019 - 16:52 #1
hvad med noget alla:

Option Explicit


Sub ClearAndPaste()
    Const PasteText As String = "Arket skal suppleres med:" & vbCrLf & "1) Retvisende beregninger" & vbCrLf & "2) Kommentarer" & vbCrLf & "3) Beløb"
    Const ClearArea As String = "D29:R30"
    Const PasteCell As String = "A1"
   
    Range(ClearArea).Clear
    With Range(PasteCell)
        .Value = PasteText
        .ColumnWidth = 25
    End With
End Sub

Jan
Avatar billede store-morten Ekspert
04. juni 2019 - 20:23 #2
Eller prøv:
Sub Test()
    Range("A1").ColumnWidth = 25
    Range("A1").RowHeight = 72

    Range("A1") = _
    "Arket skal suppleres med:" & Chr(10) & Chr(10) _
    & "1) Retvisende beregninger" & Chr(10) _
    & "2) Kommentarer" & Chr(10) _
    & "3) Beløb"
   
    Range("D29:R30").ClearContents
End Sub
04. juni 2019 - 21:09 #3
Erstatter A1 med (D29:R30) og så kører det bare!

Fedt Fedt Fedt
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester