Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketFormatering ud fra anden celle
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
AndersSkov Se dropdown
Forum Begynder
Forum Begynder


Medlem: 15.Jan.2024
Land: DK
Status: Offline
Point: 3 		Direkte link til dette indlæg Emne: Formatering ud fra anden celle
    Sendt: 15.Jan.2024 kl. 09:13
Hej
Jeg har denne udfordring, som I måske kan hjælpe med.

Jeg skal samle teksten fra to celler i én celle og formateringen fra de oprindelige celler vil jeg gerne have med. Dvs. den ene tekststreng skal stå med kursiv.



Skal jeg ud i noget VBA eller kan det klares direkte i Excel??

Håber lidt på det sidste Clap
Til top



Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 709 		Direkte link til dette indlæg Sendt: 15.Jan.2024 kl. 11:25
Jeg tror ikke, det kan lade sig gøre, fordi man ikke kan formatere karaktererne, når de er resultatet af en formel, på samme måde som hvis karaktererne stod "rent" i cellen.
Jeg har forsøgt med VBA og kan heller ikke få dét til at fungere.
Men måske andre i forummet ligger inde med en løsning :-)
Til top
AndersSkov Se dropdown
Forum Begynder
Forum Begynder


Medlem: 15.Jan.2024
Land: DK
Status: Offline
Point: 3 		Direkte link til dette indlæg Sendt: 15.Jan.2024 kl. 11:31
Tak for forsøget maxzpad - jeg havde godt på fornemmelsen at VBA ville være løsningen...Confused
Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 709 		Direkte link til dette indlæg Sendt: 15.Jan.2024 kl. 11:56
Bemærk at jeg heller ikke fik det til at fungere med VBA Thumbs Down
Til top
AndersSkov Se dropdown
Forum Begynder
Forum Begynder


Medlem: 15.Jan.2024
Land: DK
Status: Offline
Point: 3 		Direkte link til dette indlæg Sendt: 15.Jan.2024 kl. 13:11
maxzpad - jeg har også spurgt i Excelforum.com og har fået følgende VBA kode, som faktisk løser mit problem :)

Sub J3v16()
Dim Str, i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Range("D" & i).Value = Range("A" & i) & vbCrLf & Range("B" & i)
    With Range("D" & i)
        Str = Split(.Value, vbCrLf)
        .Characters(Len(Str(0)) + 3, Len(Str(1))).Font.Italic = True
    End With
Next i
End Sub
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk