Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
Excel gut - VBA nein
Kann auch mit VBA:
Verwende Arrays; vermeide jede Interaktion mit einem Arbeitsblatt.
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