[VBA / Excel2003] combine cells

[Jericho NutS]

Dag,
Bedoeling is om 2 cellen te combineren in een 3de en de opmaak van de individuele cellen te behouden in de 3de cel
Ik krijg met volgende code een error: object required op lijn 13

code:

Sub test()

Dim i As Integer
Dim rngFrom1 As Range
Dim rngFrom2 As Range
Dim rngTo As Range
Dim lenFrom1 As Integer
Dim lenFrom2 As Integer

Set rngFrom1 = Cells(1, 1)
Set rngFrom2 = Cells(1, 2)
Set rngTo = Cells(1, 3)
Set lenFrom1 = rngFrom1.Characters.Count
Set lenFrom2 = rngFrom2.Characters.Count

rngTo.Value = rngFrom1.Text & rngFrom2.Text 

For i = 1 To lenFrom1 
    With rngTo.Characters(i, 1).Font
    .Name = rngFrom1.Characters(i, 1).Font.Name
    .Bold = rngFrom1.Characters(i, 1).Font.Bold
    .Size = rngFrom2.Characters(i, 1).Font.Size 
    .ColorIndex = rngFrom1.Characters(i, 1).Font.ColorIndex
    End With
Next i

For i = 1 To lenFrom2 
    With rngTo.Characters(lenFrom1 + i, 1).Font 
    .Name = rngFrom2.Characters(i, 1).Font.Name 
    .Bold = rngFrom2.Characters(i, 1).Font.Bold 
    .Size = rngFrom2.Characters(i, 1).Font.Size 
    .ColorIndex = rngFrom2.Characters(i, 1).Font.ColorIndex 
    End With
Next i

End Sub

Wat gaat er mis?

[pedorus]

Set kun je niet gebruiken voor Integers (is voor objecten), dus kun je beter weghalen..

[Jericho NutS]

"Set" verwijderen uit lijn 13 en 14 zorgt voor deze melding:
Runtime error 348
Object doesn't support this property or method

Andere mogelijkheden?

[Lustucru]

Zijn de cellen gevuld met tekst of met andere waarden (numerieke waarden, datums, formules)?

[ Voor 204% gewijzigd door Lustucru op 08-11-2011 22:20 ]

[Jericho NutS]

Zuiver tekst

[pedorus]

Het gekke is dat dit onder Excel 2007 gewoon werkt als het echt om tekst gaat in A1 en B1. 2003 heb ik niet meer....

[Lustucru]

Ook in XL2003 werkt het...

[Jericho NutS]

Dit is zeer vreemd dat het bij jou wel werkt want bij mij wil hij dit niet doen dus waarschijnlijk zie ik nog iets over het hoofd



Iemand een tip?

[Verwijderd]

Het zou helpen als je zou kunnen aangeven op welke regel je die foutmelding krijgt...

[Morphogenesis]

Verwijderd schreef op woensdag 09 november 2011 @ 10:18:
Het zou helpen als je zou kunnen aangeven op welke regel je die foutmelding krijgt...

Staat in de OP

[Verwijderd]

Ja, maar die regel is inmiddels aangepast in de code in het screenshot...

[F_J_K]

Idd. Dus graag (bijv m.b.v. F8) een regelnummer.

Anyway, regel22 heeft een copypastefoutje die er voor zorgt dat het fout gaat bij een te korte string ^*. Maar je voorbeeld heeft gelijke strings dus dat is het niet.

De code werkt ook in OFF2010 trouwens prima met een testje.

offtopic:
* Dat in tegenstelling tot mooie dames op het strand, dan is een te korte string nooit fout

[ Voor 9% gewijzigd door F_J_K op 09-11-2011 11:14 ]

[Jericho NutS]

Foutmelding is op regel 16

code:

rngTo.Value = rngFrom1.Text & rngFrom2.Text 

Verander ik

code:

'rngTo.Value = rngFrom1.Text & rngFrom2.Text 
'Door
Cells(1, 3) = Cells(1, 1) & Cells(1, 2)

Dan werkt het!
Iemand die een reden kan bedenken waarom rngTo.Value = rngFrom1.Text &... bij jullie werkt en bij mij niet?

[ Voor 58% gewijzigd door Jericho NutS op 09-11-2011 11:46 ]

[Reptile209]

Range.Value get of set een numerieke waarde in een cel. Range.Text get of set een tekst. In regel 16 probeer je een tekst toe te wijzen aan een waarde. In je alternatieve code laat je het VBA zelf uitzoeken, en gaat het wel goed .

Probeer dus eens:

Visual Basic .NET:

rngTo.Text = rngFrom1.Text & rngFrom2.Text