Thema Datum  Von Nutzer Rating
Antwort
08.08.2017 22:26:59 Lars
Solved
Blau Kopieren
 09.08.2017 00:00:03 Ben
NotSolved
09.08.2017 19:10:40 Lars
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
09.08.2017 00:00:03		 Views:
608		 Rating:
     
Antwort:
  Ja
Thema:
Kopieren

Hallo,

teste mal diesen Code:

Sub CopySpcial()
    Dim wshSource As Worksheet
    Dim wshDestination As Worksheet
    Dim rngCopy As Range
    Dim iColEnd As Integer, iColStart As Integer
    
    Set wshSource = ActiveSheet
    Set wshDestination = ActiveWorkbook.Worksheets.Add(After:=wshSource)
    
    Set rngCopy = wshSource.Range("B1:B10")
    
    rngCopy.Copy
    wshDestination.Range("B1").PasteSpecial xlPasteAll
    
    iColEnd = wshSource.UsedRange.SpecialCells(xlCellTypeLastCell).Column
    iColStart = IIf(iColEnd > 11, iColEnd - 11, 2)
    Set rngCopy = wshSource.Range(wshSource.Cells(1, iColStart), wshSource.Cells(10, iColEnd))
    rngCopy.Copy
    wshDestination.Cells(1, iColStart).PasteSpecial xlPasteAll
    Application.CutCopyMode = False
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
08.08.2017 22:26:59 Lars
Solved
Blau Kopieren
 09.08.2017 00:00:03 Ben
NotSolved
09.08.2017 19:10:40 Lars
NotSolved