Med mina begränsade vbakunskapaer skapar jag en variabel på följande vis.
1. Skickar värdet tilll en fil
2. Öppnar och läser in värdet till en variabel.

Det fungerar jättebra men det är onödigt att göra det på detta vis.
Hur gör man 'på riktigt'

mvh Henrik


Code begin
---------------------------------------------------------------------------------------
'TABELL
'Markerar rad som ska med
Range("E4:F4").Select

'tabell = rnCell.Value

Set fsoObject = New Scripting.FileSystemObject
Set fsoFil = fsoObject.CreateTextFile(temp, True) 'Skapar tempfil

For Each rnCell In Selection.Cells
fsoFil.Write rnCell.Value
Next rnCell
fsoFil.Close

'Lägger in kolumner i en variabel (TABELL) som används senare.
Set fsoFil = fsoObject.OpenTextFile(temp, ForReading)
tabell = fsoFil.ReadLine
fsoFil.Close
Kill temp
------------------------------------------------------------------------------------
Code Ends

Hej Henke

Du verkar vilja att variabeln skall ha värdet TestSträng
om det står "Test" i cell E4 och "Sträng" i cellen F4.

Eftersom du säger att dina kunskaper är begränsade så visar jag först
din lösning fast med lite säkrare angivelse av filnamnet och sen den
lösning du frågar efter. Båda är testade och fungerar.

Din modifierade lösning
<code>
'TABELL
'Markerar rad som ska med
Range("E4:F4").Select

'tabell = rnCell.Value

Set fsoObject = New Scripting.FileSystemObject
Set fsoFil = fsoObject.CreateTextFile("c:\temp.txt", True) 'Skapar tempfil

For Each rnCell In Selection.Cells
fsoFil.Write rnCell.Value
Next rnCell

fsoFil.Close

'Lägger in kolumner i en variabel (TABELL) som används senare.
Set fsoFil = fsoObject.OpenTextFile("c:\temp.txt", ForReading)
tabell = fsoFil.ReadLine
fsoFil.Close
Kill "c:\temp.txt"
</code>

Min lösning
<code>
Dim Tabell As String

Range("E4:F4").Select

'Egentligen inte nödvändigt här men har du använt variabeln i kod före
'så kan det vara bra att vara säker på att den är tom
Tabell = "" 'Se till att variabeln är tom

For Each rnCell In Selection.Cells
Tabell = Tabell & rnCell.Value
Next rnCell

MsgBox Tabell
</code>

Tackar tackar för detta. Nu är mina vbakunskaper lite mindre begränsade...

mvh Henrik