Formatering ud fra anden celle
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=5023
Udskrevet den: 21.Nov.2024 kl. 17:14
Emne: Formatering ud fra anden celle
Besked fra: AndersSkov
Emne: Formatering ud fra anden celle
Posteringsdato: 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
 |
Svar:
Besked fra: maxzpad
Posteringsdato: 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 :-)
|
Besked fra: AndersSkov
Posteringsdato: 15.Jan.2024 kl. 11:31
Tak for forsøget maxzpad - jeg havde godt på fornemmelsen at VBA ville være løsningen...
|
Besked fra: maxzpad
Posteringsdato: 15.Jan.2024 kl. 11:56
Bemærk at jeg heller ikke fik det til at fungere med VBA 
|
Besked fra: AndersSkov
Posteringsdato: 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 |