VBA fusionner des cellules et ** texte ** Gras de deuxième cellule

Question

Je codage d'une fonction VBA pour fusionner deux cellules, puis sélectionnez le texte de la cellule 2 avec gras mise en forme

La fusion va bien
La appel à sub va bien
mais le format de texte n'est pas appliqué

Je crois qu'il pourrait être causé par la sous exécution avant que la cellule est remplie avec la chaîne - mais c'est pur devinettes - c'est mon premier script VBA

Function boldIt(navn As String, ekstra As String) 

Dim ln1 As Integer 
Dim ln2 As Integer 
Dim st1 As String 

ln1 = Len(navn) 
ln2 = Len(navn) + Len(ekstra) 

If (ln1 = ln2) Then 
    boldIt = navn 
Else 
    boldIt = navn & " - " & ekstra 
    boldTxt ln1, ln2 
End If 

End Function 

Public Sub boldTxt(startPos As Integer, charCount As Integer) 
    With ActiveCell.Characters(Start:=startPos, Length:=charCount).Font 
     .FontStyle = "Bold" 
    End With 
End Sub 

Answer 1

Cette boucle sous à travers les colonnes, prend les cordes des deux cellules, combine les chaînes et les ajouter à la cellule cible, alors que la mise en gras le texte de la deuxième cellule

Merci à @Jeeped pour les pointeurs!

Sub boldIt() 
Dim pos_bold As Integer 
Dim celltxt As String 

For i = 2 To 200000 
    ' first cell will always be populated - if not - exit 
    If (Range("Plan!E" & i).Value = "") Then Exit For 

    ' if second cell is empty - take only first cell as normal txt 
    If (Range("Plan!F" & i).Value = "") Then 
     Range("Kalender!F" & i).Value = Range("Plan!E" & i).Value 
    Else 
     ' calculate start of bold text 
     pos_bold = Len(Range("Plan!E" & i).Value) + 1 

     ' create the string 
     celltxt = Range("Plan!E" & i).Value & " - " & Range("Plan!F" & i).Value 
     ' add string to field and add bold to last part 
     With Worksheets("Kalender").Range("F" & i) 
      .Value = celltxt 
      .Characters(pos_bold).Font.Bold = True 
     End With 
    End If 
Next i 
End Sub 

Answer 2

Je pense que je voudrais simplement exécuter deux sous-marins; la fonction ne retourne rien.

Option Explicit 

Sub boldIt() 
    Dim secondOne As String 
    With Selection 
     secondOne = .Cells(2).Value2 
     Application.DisplayAlerts = False 
     .Merge 
     Application.DisplayAlerts = True 
     .Cells(1) = .Cells(1).Value2 & secondOne 
     boldTxt .Cells(1), Len(.Cells(1).Value2) - Len(secondOne) + 1, Len(secondOne) 
    End With 
End Sub 

Public Sub boldTxt(rng As Range, startPos As Integer, charCount As Integer) 
    With rng.Characters(Start:=startPos, Length:=charCount).Font 
     .FontStyle = "Bold" 
    End With 
End Sub