Nochmal Spalten mit Namen ansprechen

Sub Produkte()
Dim strDateiname As String, strPath As String
Dim i As Long, lngZeile As Long
strPath = "C:\XXX\" 'Speicherpfad eintragen
strDateiname = "produkte.txt" 'Dateinamen mit Dateiendung eintragen
lngZeile = Range("A" & Rows.Count).End(xlUp).Row
Open strPath & strDateiname For Output As #1
For i = 1 To lngZeile
If Range("Google").Cells(i) = "x" Or Range("Google").Cells(i) = "G" Then
Print #1, Cells(i, 25).Value & "~" & Cells(i, 26).Value & "~" & Cells(i, 27).Value & "~" & Cells(i, 28).Value & "~" & Cells(i, 29).Value & "~" & Cells(i, 30).Value & "~" & Cells(i, 31).Value & "~" & Cells(i, 32).Value & "~" & Cells(i, 33).Value & "~" & Cells(i, 34).Value & "~" & Cells(i, 35).Value & "~" & Cells(i, 36).Value
End If
Next i
Close #1
End Sub