Help How can I select only certain Cells from an active row

[bwachuga]

I want my Macro to select the columns E to J from a table. The Active Row is selected by the user from an Excel Table. So far my macro selects a whole line and looks like this..

Sub kontakt_makro1()
Dim Text1 As String
Dim currentRow As Long
Dim c As Excel.Range

'Schliessen einer geöffneten Datei
Close #1
Open "c:\demotext.txt" For Append As #1
For Each c In Selection
Write #1, c.Value
Next
Close #1
End Sub

The Other problem is that my macro writes in a text file and every line is in quotationmarks which I dont know how to get rid of.

the output looks like this....


"Frau Evelyn Göhler"
"Qualitätsmanagement"
"Klingenbergstraße 16"
"32758 Detmold"

 

[Norie]

Try this

Sub kontakt_makro1()
Dim rng As Range
Dim c As Range
Dim FF

'Schliessen einer geöffneten Datei

    Set rng = Range("E" & Selection.Row & ":J" & Selection.Row)
    
    FF = FreeFile
    Open "c:\demotext.txt" For Append As #FF
    
        For Each c In rng.Cells
            Print #FF, c
        Next c
        
    Close #FF
    
End Sub

 

[bwachuga]

Omitting blank cells within the selected Range

Thanks Norie for the code below, it worked.

How can I omit the blank cells within the selected Range?

I have tried using the IsEmpty function but it is not working.


Sub kontakt_makro1()
Dim rng As Range
Dim c As Range
Dim FF

'Schliessen einer geöffneten Datei

Set rng = Range("E" & Selection.Row & ":J" & Selection.Row)

FF = FreeFile
Open "c:\demotext.txt" For Append As #FF

For Each c In rng.Cells
Print #FF, c
Next c

Close #FF

End Sub

 

[Norie]

Perhaps something like this.

Sub kontakt_makro1()
Dim rng As Range
Dim c As Range
Dim FF

'Schliessen einer geöffneten Datei

    Set rng = Range("E" & Selection.Row & ":J" & Selection.Row)
    
    FF = FreeFile
    
    Open "c:\demotext.txt" For Append As #FF
    
        For Each c In rng.Cells
            If c.Value = "" Then
                Print #FF, c
            End If
        Next c
        
    Close #FF

End Sub