ich probiere mithilfe eines Makros bestimmte Spalten aus einem anderen Worksheet anzusprechen und in mein Excel-dokument zu kopieren. Da sich aber die Spalten ändern können, muss ich die Spalten mithilfe des Headers ansprechen. Ich habe dabei bereits einen Code welcher aber nicht funktioniert. Habe ich etwas bei meinem Code falsch gemacht oder muss ich einen anderen Code verwenden?
Sub select_header ()
Dim Dataorigin As Worksheet
Set Dataorigin= Workbooks("Daten.xlsm").Worksheets("Selected")
With Dataorigin
Dim xRg As Range
Dim xRgUni As Range
Dim xFirstAddress As String
Dim xStr As String
On Error Resume Next
xStr= "Option Number"
Set xRg= Range("A6:BD6").Find(xStr, , xlValues, xlWhole, , , True)
If Not xRg Is Nothing Then
xFirstAddress = xRg.Address
Do
Set xRg = Range("A6:BD6").FindNext(xRg)
If xRgUni Is Nothing Then
Set xRgUni=xrg
Else
Set xRgUni= Application.Union(xRgUni, xRg)
End if
Loop While (Not xRg Is Nothing) And (xRg.Address xFirstAddress)
End if
xRgUni.EntireColumn.Select
End With
End Sub
Danke bereits im voraus