Thema Datum  Von Nutzer Rating
Antwort
09.12.2021 11:35:30 Markus
NotSolved
Blau Inhalt von einem Worksheet auf mehrere kopieren
 09.12.2021 12:03:04 volti
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
09.12.2021 12:03:04		 Views:
193		 Rating:
     
Antwort:
  Ja
Thema:
Inhalt von einem Worksheet auf mehrere kopieren

Hallo Markus,

 

kopiere doch alles einzeln in einer Schleife....

Hier ein Beispiel.

Code:
01
02
03
04
05
06
07
08
09
10
11
12		  
Sub Kopieren()
  Dim sBer() As String, i As Integer
  Dim WShZ As Worksheet, WShQ As Worksheet

  Set WShZ = ThisWorkbook.Sheets("Tabelle3")
  Set WShQ = ThisWorkbook.Sheets("Tabelle1")

  sBer = Split("A4:J6 K5:N6 B49:G47 I9:N47 C48:J48")
  For i = 0 To UBound(sBer)
      WShQ.Range(sBer(i)).Copy Destination:=WShZ.Range(sBer(i))
  Next i
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
09.12.2021 11:35:30 Markus
NotSolved
Blau Inhalt von einem Worksheet auf mehrere kopieren
 09.12.2021 12:03:04 volti
NotSolved