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

Alles zur Programmierung im LibreOffice.
Antworten
genie
Beiträge: 25
Registriert: Di 20. Nov 2018, 00:37

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

Beitrag von genie » Di 20. Nov 2018, 11:43

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
Zuletzt geändert von genie am Fr 23. Nov 2018, 17:37, insgesamt 1-mal geändert.
LibreOffice 5.4.4.2 - Windows 7

genie
Beiträge: 25
Registriert: Di 20. Nov 2018, 00:37

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

Beitrag von genie » Mi 21. Nov 2018, 11:37

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
LibreOffice 5.4.4.2 - Windows 7

mikele
Beiträge: 900
Registriert: Mo 1. Aug 2011, 20:51

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

Beitrag von mikele » Mi 21. Nov 2018, 13:56

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.
Gruß,
mikele

balu
Beiträge: 333
Registriert: Mi 1. Jun 2011, 16:21

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

Beitrag von balu » Mi 21. Nov 2018, 16:44

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

genie
Beiträge: 25
Registriert: Di 20. Nov 2018, 00:37

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

Beitrag von genie » Mi 21. Nov 2018, 17:45

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
LibreOffice 5.4.4.2 - Windows 7

mikele
Beiträge: 900
Registriert: Mo 1. Aug 2011, 20:51

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

Beitrag von mikele » Mi 21. Nov 2018, 20:52

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?
Gruß,
mikele

genie
Beiträge: 25
Registriert: Di 20. Nov 2018, 00:37

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

Beitrag von genie » Fr 23. Nov 2018, 17:35

mikele ,

Vielen Dank für Ihre Aufmerksamkeit.


Umarmungen
LibreOffice 5.4.4.2 - Windows 7

genie
Beiträge: 25
Registriert: Di 20. Nov 2018, 00:37

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

Beitrag von genie » Fr 23. Nov 2018, 17:36

[Gelöst]

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



Umarmungen
LibreOffice 5.4.4.2 - Windows 7

Antworten