Seite 1 von 1

[Gelöst] Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein

Verfasst: Di 20. Nov 2018, 11:43
von genie
Grüße

          Ich suche nach einem Makro, um die sichtbaren Zellen zu kopieren, die in Auto-Filter in Arbeitsblatt 1 gefiltert wurden und die unformatierten Werte in Arbeitsblatt 2 einfügen

          Details des Problems

          In Arbeitsblatt1 hat Auto Filter von Spalte A bis Spalte Z

          Sie müssen die sichtbaren Zellen aus Spalte A in Spalte E kopieren und die Werte in die erste leere Zelle von Spalte A in Arbeitsblatt 2 einfügen

          Kehren Sie zu Arbeitsblatt 1 zurück, und kopieren Sie die sichtbaren Zellen aus Spalte I in Spalte L und fügen Sie die Werte in die erste leere Zelle von Spalte F in Arbeitsblatt 2 ein

          Gehen Sie zurück zu Arbeitsblatt 1 und kopieren Sie die sichtbaren Zellen aus Spalte U in Spalte W und fügen Sie die Werte in die erste leere Zelle von Spalte J in Arbeitsblatt 2 ein

          Gehen Sie zurück zu Arbeitsblatt 1 und machen Sie alle Filter rückgängig, dh löschen Sie alle Filter


Umarmungen

Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein

Verfasst: Mi 21. Nov 2018, 11:37
von genie
Ich habe in Excel einen VBA-Code gefunden, der etwas Ähnliches macht

Wenn Freunde mir helfen können, in LibreOffice (BASIC) zu konvertieren, vielen Dank im Voraus

font :

https://forum.baboo.com.br/index.php?/t ... filtradas/

VBA-Code

Sub CopyFilter()

Dim rng As Range
Dim rng2 As Range

With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With
If rng2 Is Nothing Then
MsgBox "No data to copy"
Else
Worksheets("Plan2").Cells.Clear
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
Destination:=Worksheets("Plan2").Range("A1")
End If

ActiveSheet.ShowAllData

End Sub

Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein

Verfasst: Mi 21. Nov 2018, 13:56
von mikele
Hallo,
hier: https://forum.openoffice.org/en/forum/v ... 20&t=95906
hast du einen Link hierhin: https://forum.openoffice.org/en/forum/v ... 5&p=438954
bekommen, der dir ein Makro liefert, das die Kopie der sichtbaren Zellen macht.
1. Es wäre nett, wenn du auf diesen Crosspost zumindest hinweist.
2. Du schreibst dort, dass du es nicht auf dein Problem anpassen kannst. Wie weit bist du gekommen? Lade bitte eine Beispieldatei hoch, damit nicht jeder Helfer beim Punkt Null anfangen muss.

Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein

Verfasst: Mi 21. Nov 2018, 16:44
von balu
Hai,

kommt mir das nur so vor, oder täusche ich mich da?
Ich werd das Gefühl nicht los, als wenn wir hier die "Schulischen-Hausaufgaben" vom 'genie' erledigen sollen. Allein schon der Betreff spricht in meinen Ohren Bände.



Gruß
balu

Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein

Verfasst: Mi 21. Nov 2018, 17:45
von genie
Grüße sr. balu ,

Ich möchte nur Link VBA-Code in Basic-Code für LibreOffice Calc umwandeln

Dies wird mir bei meinem Projekt sehr helfen.


danke für das verständnis und hilfe

Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein

Verfasst: Mi 21. Nov 2018, 20:52
von mikele
Hallo,
das VBA- Makro löst nur einen Teil deiner Fragestellung. Ein entsprechendes Calc-Makro hast du in dem anderen Forum bekommen. Was funktioniert daran nicht?

Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein

Verfasst: Fr 23. Nov 2018, 17:35
von genie
mikele ,

Vielen Dank für Ihre Aufmerksamkeit.


Umarmungen

Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein

Verfasst: Fr 23. Nov 2018, 17:36
von genie
[Gelöst]

Vielen Dank für die Beiträge aller Freunde, die geholfen haben



Umarmungen