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