Sub M_snb()
With GetObject(Cells(1, 7))
sn = .Sheets("Gasdaten").Cells(1).CurrentRegion
.Close
End With
With GetObject(Cells(2, 7))
sp = .Sheets("Gaspreis").Cells(1).CurrentRegion
.Close
End With
For jj = 2 To UBound(sp, 2)
If sp(1, jj) = sn(1, 2) Then Exit For
Next
For j = 1 To UBound(sn)
sn(j, 2) = sp(j, jj)
Next
Cells(1).Resize(UBound(sn), 2) = sn
End Sub