Thema Datum  Von Nutzer Rating
Antwort
29.11.2017 10:25:58 Gast98814
NotSolved
29.11.2017 11:22:42 Codo
NotSolved
29.11.2017 12:22:11 Gast75962
NotSolved
29.11.2017 12:28:11 Codo
NotSolved
29.11.2017 13:00:57 Gast22144
NotSolved
Blau VBA Copy und Paste mehrerer Zellen in andere Mappe
29.11.2017 13:31:39 Codo
NotSolved
29.11.2017 13:55:32 Gast9054
NotSolved
29.11.2017 14:00:18 Gast12407
NotSolved
29.11.2017 14:17:24 Gast93914
NotSolved
29.11.2017 14:31:03 Gast16678
Solved
29.11.2017 14:32:50 Codo
NotSolved
29.11.2017 14:39:03 Gast51278
Solved

Ansicht des Beitrags:
Von:
Codo
Datum:
29.11.2017 13:31:39
Views:
826
Rating: Antwort:
  Ja
Thema:
VBA Copy und Paste mehrerer Zellen in andere Mappe

Hallo Julian,

dieser Cde ist immer einsetzbar auch dann, wenn Zeilen entfernt werden oder hinzukommen.

Sub Makro2()
zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To zeilenanzahl
    If IsEmpty(Cells(i, 3)) Then
       Range(i & ":" & i).Select
       Selection.EntireRow.Hidden = True
    End If
Next

Range(Cells(1, 1), Cells(zeilenanzahl, 4)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
    
Sheets("Mappe2").Activate
Range("A9").Select
ActiveSheet.Paste
End Sub

Kommt es deinem Anspruch näher?

Gruß Codo


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
29.11.2017 10:25:58 Gast98814
NotSolved
29.11.2017 11:22:42 Codo
NotSolved
29.11.2017 12:22:11 Gast75962
NotSolved
29.11.2017 12:28:11 Codo
NotSolved
29.11.2017 13:00:57 Gast22144
NotSolved
Blau VBA Copy und Paste mehrerer Zellen in andere Mappe
29.11.2017 13:31:39 Codo
NotSolved
29.11.2017 13:55:32 Gast9054
NotSolved
29.11.2017 14:00:18 Gast12407
NotSolved
29.11.2017 14:17:24 Gast93914
NotSolved
29.11.2017 14:31:03 Gast16678
Solved
29.11.2017 14:32:50 Codo
NotSolved
29.11.2017 14:39:03 Gast51278
Solved