Hallo Ihr lieben,
Im Teil "Range("G1:K2").Select" landet das Sheets, wo der befehl eigentlich ausgeführt werden soll, im Hintergrund, deshalb bekommt man eine Error message. Wenn
ich das Sheet in den Vordergrund hole, dann geht es normal weiter. Was muss ich im Code ändern, dass der Befehl das richtige Sheet ansprichtß
Danke Euch
Sub Schaltfläche2_Klicken()
Dim wb As Workbook, wq As Object
Dim ws As Worksheet, datdatum
Set wb = Workbooks.Add
Set ws = wb.Worksheets("Tabelle1")
ws.Select
ActiveWindow.Zoom = 80
ws.Name = "Spread"
datdatum = Now
Set wq = Workbooks.Open(Filename:="C:\Users\Yavuz\Desktop\Fundings 020718.xls")
wq.Sheets("Hypothekenbanken").Range("A11:P54").Copy
ws.Range("A3").PasteSpecial
wq.Sheets("Landesbanken").Range("A12:P38").Copy
ws.Range("A50").PasteSpecial
Range("G1:K2").Select <em>
With Selection
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Value = "Hypothekenbank"
.Font.Bold = True
.Font.Size = 18
.Interior.ColorIndex = 40
End With
Intersect(Worksheets("Spread").Range("4:92"), Worksheets("Spread").Range("F:F,H:H,J:J,M:M")).BorderAround , , 1
End Sub