Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

gefilterte Zeilen werden nicht richtig kopiert

Betrifft: gefilterte Zeilen werden nicht richtig kopiert von: rieckmann
Geschrieben am: 03.10.2014 16:41:12

Hallo allerseits,

ich habe hier einen Code der markierte Zeilen kopiert,
und in das Tabellenblatt "Auswahlliste" einfügt.

In Zeile 1 befinden sich die Überschriften. (alle Blätter gleich)
Ein paar Spalten sind ausgeblendet.(alle Blätter gleich)

Das ganze funktioniert auch sehr gut,
nur wenn ich vorher Datenzeilen mit dem Filter herausfilter,
diese Zeilen markiere (komplette Zeile), und dann diese Datenzeile mit dem Code in das Blatt
"Auswahlliste" kopieren möchte, werden nicht alle Zellen dieser Datenzeile kopiert.
Auch werden die Daten nicht zu den passenden Überschriften eingefügt.

Was ist denn beim kopieren der gefilterten Zeilen anders als bei ungefilterten ?
Könnt ihr anhand des Codes erkennen woran das liegt ?

Gruß
Fred

Option Explicit
Public a As Boolean 'Pruefvariable
___________________________________________-

Sub Schaltfläche31_Klicken()
a = True 'bei ausfuehren des Makros auf True setzten
With Sheets("Auswahlliste")
  'Selection.Copy    (diese beiden Zeilen - kopiert ohne Zeilenumbrüche)
  '.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteValues (diese  _
beiden Zeilen - kopiert ohne Zeilenumbrüche)
   Selection.Copy .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)
End With
Application.CutCopyMode = False 'nimmt das kopieren zurück
MsgBox "Die Werte wurden erfolgreich kopiert." 'Info
End Sub


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: Daniel
Geschrieben am: 03.10.2014 16:48:45

HI
wenn du ausgeblendete Zeilen oder Spalten hast, dann werden diese nicht mit kopiert, sondern nur die sichtbaren.
beim Einfügen werden dann die Werte zusammengezogen, so dass keine Lücken entstehen, dh wenn Spalte B ausgeblendet ist und du kopierst A-C, dann werden die Spalte A und C kopiert, beim Einfügen jedoch rutscht die Spalte C nach B.
gleiches gilt auch für die ausgeblendeten Zeilen
Das kopieren und einfügen mit Lücken funktioniert nicht.

Gruß Daniel


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: rieckmann
Geschrieben am: 03.10.2014 17:48:30

Hallo Daniel,
bei nicht gefilterten Zeilen funktioniert es doch auch.
Zellen die leer sind werden mitkopiert und richtig eingefügt.

Das ganze funktioniert nur halt nicht, wenn ich die Daten gefiltert habe.

Gruß
Fred


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: rieckmann
Geschrieben am: 03.10.2014 17:56:43

Hallo noch mal,

eben noch mal genau nachgeschaut !

Es werden alle Daten mit kopiert.
Nur werden im Zielblatt die ausgeblendeten Spalten mitbenutzt.

Also die Zeile wurde mit ausgeblendeten Spalten kopiert.
Im Zielblatt sind genau die selben Spalten ausgeblendet.
Dieses wird halt nich mit berücksichtigt beim einfügen.

Gruß
Fred


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: hary
Geschrieben am: 03.10.2014 18:14:30

Moin
Mal auf's Blaue.
Kopiert nur die sichtbaren.

Selection.SpecialCells(xlVisible).Copy .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)

gruss hary


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: rieckmann
Geschrieben am: 03.10.2014 18:24:43

Hallo Hary,
danke für deine Antwort.

Das haut auch nicht hin.
Hier funktioniert es mit den gefilterten und ungefilterten nicht.

Es müsste eine Kopie der gesamten Zeile sein.
Mit den ausgeblendeten Spalten, und mit den Leerzellen dazwischen.

Gruß
Fred


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: Werner
Geschrieben am: 03.10.2014 20:20:47

Hallo Fred,

blende doch mal die Spalten im Zielblatt ein und lass dann das Makro laufen.
Wenn es dann so passt, dann würde ich im Makro vor dem Kopieren die Spalten im Zielblatt einblenden, dann kopieren und anschließend wieder ausblenden.

Gruß Werner


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: rieckmann
Geschrieben am: 03.10.2014 21:50:40

Hallo Werner,
ne das geht auch nicht.

Gruß
Fred


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: Werner
Geschrieben am: 04.10.2014 09:41:19

Hallo Fred,

dann lade doch mal eine Beispielmappe hoch und stell den Beitrag auf offen.

Gruß werner


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: rieckmann
Geschrieben am: 04.10.2014 10:43:15

Hallo Werner,
hier ein Beispiel.

Wenn man im Blatt "München" ein Zeile markiert und auf den Butten klickt,
werden die Daten richtig in das Blatt "Auswahlliste" kopiert.

Wenn man aber vorher im Blatt "München" Daten mit dem Filter separiert,
diese Zeile markiert, und dann auf den Butten klickt, werde die Daten im Blatt
"Auswahlliste" nicht richtig wiedergegeben.

https://www.herber.de/bbs/user/92961.xls


Danke
Gruß
Fred


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: rieckmann
Geschrieben am: 04.10.2014 10:45:25

Hatte vergessen den Beitrag auf offen zu stellen !


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: Gerold
Geschrieben am: 04.10.2014 12:28:24

Hallo Fred


Auf einem gefilterten Blatt werden ausgeblendete Zeilen und Spalten nicht kopiert.
Nur sichtbare Zellen werden kopiert und ohne Lücken eingefügt.

Mfg Gerold


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: rieckmann
Geschrieben am: 04.10.2014 13:00:33

Hallo Gerold,
dann müsste der Code bei klick zuerst alle Spalten einblenden, Zeile kopieren,
Spalten wieder ausblenden,im Zielblatt alle Spalten einblenden, kopierte Zeile einfügen,
und Spalten wieder ausblenden.

Oh man, das ist ja ne Aktion !

Dank und Gruß
Fred


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: Daniel
Geschrieben am: 04.10.2014 14:32:54

Hi
probier mal , ob das besser geht um die Werte zu übertragen.
allerdings kannst du so nur Werte oder Formeln kopieren, keine Formatierungen.

Sub Schaltfläche31_Klicken()
Dim AR As Range
Dim Werte As Variant
For Each AR In Intersect(Selection.EntireRow.SpecialCells(xlCellTypeVisible), Columns(1)).Areas
    Werte = AR.Resize(, ActiveSheet.UsedRange.Columns.Count)
    Sheets("Auswahlliste").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) _
            .Resize(UBound(Werte, 1), UBound(Werte, 2)).Value = Werte
Next
End Sub
Gruß Daniel


  

Betrifft: AW: gefilterte Zeilen werden nicht richtig kopiert von: rieckmann
Geschrieben am: 04.10.2014 22:35:53

Hallo Daniel,
sorry aber habe eben erst deine Antwort gesehen.

Also dein Code klappt ohne Filter und mit Filter.
Alles wird richtig im Tabellenblatt "Auswahlliste" eingefügt.

Auf die Formarzierung kann ich im Zielblatt gerne verzichten.

Ich Danke dir
Gruß
Fred


 

Beiträge aus den Excel-Beispielen zum Thema "gefilterte Zeilen werden nicht richtig kopiert"