Thema Datum  Von Nutzer Rating
Antwort
Rot Ins richtige Sheets schreiben
 22.07.2018 21:08:23 erto
NotSolved
22.07.2018 21:17:42 Gast2632
NotSolved
22.07.2018 21:22:18 erto
NotSolved
22.07.2018 22:13:55 Gast3962
Solved

Ansicht des Beitrags:
Von:
erto		 Datum:
22.07.2018 21:08:23		 Views:
856		 Rating:
     
Antwort:
  Ja
Thema:
Ins richtige Sheets schreiben		 
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  ' Hier sollte das problem liegen
         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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Ins richtige Sheets schreiben
 22.07.2018 21:08:23 erto
NotSolved
22.07.2018 21:17:42 Gast2632
NotSolved
22.07.2018 21:22:18 erto
NotSolved
22.07.2018 22:13:55 Gast3962
Solved