Tekst toevoegen aan string voor range in vba

[johhnnyboy]

Hoi,

Onderstaande code wil ik graag uitvoeren:

rngTarget.Resize(rngSource.Rows.Count, rngSource.Columns.Count).Value = "P" & PrevValMonth & ": " & rngSource.Value

Het idee is om aan de rngSource cellen / waarden een prefix toe te voegen P5: rngSource.Value bijvoorbeeld.
Deze code geeft een foutmelding dat de typen niet overéén komen.

Weet iemand hoe bovenstaand te corrigeren en eventueel te verbeteren dat wanneer rngSource.Value leeg is er geen prefix in de cel wordt gezet?

Of kan dit alleen via een loop door iedere individuele cel?

 

[Elsendoorn2134]

Johnnyboy,

Dit gaat niet zo lukken, probeer dit eens met de volgende code:

For Each rngCell In rngTarget.Resize(rngSource.Rows.Count, rngSource.Columns.Count)
   If Not IsNull(rngCell.Value) Then
    rngCell.Value = "P" & PrevValMonth & ": " & rngCell.Value
   End If
Next

Veel Succes.

 

[johhnnyboy]

Anders

Heb het toch wat anders gemaakt:

If VarAddPeriod Then
    
        rngOffset = rngTarget.Column - rngSource.Column
        
        For Each rngCell In rngSource
            
            If rngCell.Value <> "" Then
                
                rngCell.Offset(0, rngOffset).Value = "P" & PrevValMonth & ": " & rngCell.Value
            
            End If
        
        Next
        
    Else
    
        rngTarget.Resize(rngSource.Rows.Count, rngSource.Columns.Count).Value = rngSource.Value
        
    End If

werkt prima!
Bedankt voor het meedenken!