Thema Datum  Von Nutzer Rating
Antwort
05.01.2012 21:05:49 Thomas
NotSolved
05.01.2012 22:04:58 joerg
NotSolved
05.01.2012 22:36:44 Thomas
NotSolved
Blau Verschiedene Zellen Kopieren und verschieden einfügen
 17.01.2012 23:32:08 Gast3952
NotSolved

Ansicht des Beitrags:
Von:
Gast3952		 Datum:
17.01.2012 23:32:08		 Views:
1536		 Rating:
     
Antwort:
  Ja
Thema:
Verschiedene Zellen Kopieren und verschieden einfügen

 Hallo Thomas,

was man machen kann, ist die markierten Zellen an die gleiche Position in Hallo.xls zu kopieren. Wenn du andere Postitionen wünschst (B1 nach C2, B2 nach D6 ... wie in deinem Beispiel) müsstest du bitte die Zielpositionen allgemeiner beschreiben, weil das Programm vorher nicht wissen kann, wieviele Zellen du markiert hattest.

Oh. Bitte entschuldige den Bandwurmsatz :-)

Bitte teste einmal dies:

Public Sub VerschiedeneZellenKopieren()
'kopiert die markierten Zellen nach c_strSenke
'in das erste Worksheet an die gleichen Positionen

  'Hier die Zieldatei eintragen
  Const c_strSenke As String = "E:\TestVBA\Hallo.xls"
  
  Dim wksQuelle As Excel.Worksheet
  Dim wkbSenke As Excel.Workbook
  Dim wksSenke As Excel.Worksheet
  
  Dim arMarkierung As Excel.Areas
  Dim rng As Excel.Range
  
  Set wksQuelle = ActiveSheet
  Set wkbSenke = Workbooks.Open(c_strSenke)
  Set wksSenke = wkbSenke.Worksheets(1)
  
  wksQuelle.Activate
  Set arMarkierung = Selection.Areas
  For Each rng In arMarkierung
    wksSenke.Range(rng.Address).Value = rng.Value
  Next rng
  
  Set rng = Nothing
  Set arMarkierung = Nothing
  Set wksQuelle = Nothing
  Set wkbSenke = Nothing
  Set wksSenke = Nothing
  
End Sub

Viele Grüße
Heiko

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
05.01.2012 21:05:49 Thomas
NotSolved
05.01.2012 22:04:58 joerg
NotSolved
05.01.2012 22:36:44 Thomas
NotSolved
Blau Verschiedene Zellen Kopieren und verschieden einfügen
 17.01.2012 23:32:08 Gast3952
NotSolved