Thema Datum  Von Nutzer Rating
Antwort
27.09.2024 10:39:09 Lukas
NotSolved
Blau VBA Copy/Paste ohne Sheets.Activate
 27.09.2024 13:26:47 volti
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
27.09.2024 13:26:47		 Views:
58		 Rating:
     
Antwort:
 Nein
Thema:
VBA Copy/Paste ohne Sheets.Activate

Hallo Lukas,

hier eine Idee, das ohne Activate zu machen. Es kann auch ein anders Blatt aktiv sein.

Allerdings frage ich mich, was die Do-Schleife soll. Wann wird sie false und beendet das Kopieren?

Code:
 
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20		  
Sub Test()
  Dim srcRow As Long, SrcColumn As Long
  Dim DstRow As Long, DstColumn As Long

  srcRow = 3
  SrcColumn = 2 + (Weekoffset - 1) * 7 + DayOffset
  DstRow = 5
  DstColumn = 3

'  Do While True
  With ThisWorkbook.Sheets(3)
      .Range(.Cells(srcRow, SrcColumn), _
      .Cells(srcRow + 2, SrcColumn + DayCount - 1)).Copy
      ThisWorkbook.Sheets(Sheets.Count).Cells(DstRow, DstColumn).PasteSpecial _
      (XlPasteType.xlPasteValuesAndNumberFormats)
  End With
  srcRow = srcRow + 3
  DstRow = DstRow + 6
'  Loop
End Sub
 
_________
viele Grüße
Karl-Heinz

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
27.09.2024 10:39:09 Lukas
NotSolved
Blau VBA Copy/Paste ohne Sheets.Activate
 27.09.2024 13:26:47 volti
Solved