Thema Datum  Von Nutzer Rating
Antwort
07.07.2017 11:14:33 Tobi
NotSolved
07.07.2017 15:14:59 Mackie
NotSolved
Rot Markierten Bereich kopieren und in freie Zeile einfügen
 07.07.2017 17:16:30 Gast46144
Solved
17.07.2017 09:41:06 Tobi
NotSolved
18.07.2017 10:23:53 Tobi
**
NotSolved

Ansicht des Beitrags:
Von:
Gast46144		 Datum:
07.07.2017 17:16:30		 Views:
983		 Rating:
     
Antwort:
 Nein
Thema:
Markierten Bereich kopieren und in freie Zeile einfügen

Dein Code

Sub CopyPasteZellen()
    
    Application.ScreenUpdating = False
    'Bildschirm-Update wird ausgeblendet'
    
    Dim zelle As Range
    'Zellbereich definieren'
    
    For Each zelle In Selection
    'Für jede ausgewählte Zelle'
    
    Selection.Copy
    'Kopieren von ausgewähltem Bereich'
    
    Windows("Arbeitsstunden.xlsx").Activate
    'Zu Datei Arbeitsstunden springen'
    
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
    'Erste freie Zeile auswählen'
    
    ActiveSheet.Paste
    '= aktives Blatt (mit Formeln)einfügen'
    
    Next zelle
    'Nächste Zelle selber Schritt'
    
    Windows("VBA.xlsm").Activate
    'In diese Datei zurück springen'
    
     Application.ScreenUpdating = True
    'Bildschirm-Update wird eingeblendet'
    
End Sub

und ich stelle mir leise weinend vor, bei der Ausführung wird die  For - Each Schleife Zelle für Zelle durchlaufen und bei jedem Durchlauf die gesamte Selektion (x-Zellen zusammen) kopiert

Ungetestet

Sub DoIt()
Dim Rng As Range, Target As Range, Block As Range

   If Selection.Parent.Parent.Name <> ThisWorkbook.Name Then Exit Sub
   Set Rng = Selection
   For Each Block In Rng.Areas
      Set Target = Workbooks("Arbeitsstunden.xlsx").ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) _
      .Resize(Block.Rows.Count, Block.Columns.Count)
      Target.Value = Block.Value
   Next Block

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
07.07.2017 11:14:33 Tobi
NotSolved
07.07.2017 15:14:59 Mackie
NotSolved
Rot Markierten Bereich kopieren und in freie Zeile einfügen
 07.07.2017 17:16:30 Gast46144
Solved
17.07.2017 09:41:06 Tobi
NotSolved
18.07.2017 10:23:53 Tobi
**
NotSolved