BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
[Gelöst] Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein
[Gelöst] Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein
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
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
Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein
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
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
Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein
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.
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
mikele
Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein
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
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
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
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
Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein
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?
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
mikele
Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein
mikele ,
Vielen Dank für Ihre Aufmerksamkeit.
Umarmungen
Vielen Dank für Ihre Aufmerksamkeit.
Umarmungen
LibreOffice 5.4.4.2 - Windows 7
Re: Kopieren Sie sichtbare Zellen und fügen Sie sie in ein anderes Arbeitsblatt ein
[Gelöst]
Vielen Dank für die Beiträge aller Freunde, die geholfen haben
Umarmungen
Vielen Dank für die Beiträge aller Freunde, die geholfen haben
Umarmungen
LibreOffice 5.4.4.2 - Windows 7
An alle, die das LibreOffice-Forum nutzen:
Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.
❤️ Vielen lieben Dank für Ihre Unterstützung ❤️