Thema Datum  Von Nutzer Rating
Antwort
Rot Kopierte Tabelle (gefiltert) in erste Freie Zeile einsetzen, anschließend Zeilen löschen
06.05.2023 19:44:19 Martin
NotSolved
08.05.2023 21:29:25 Gast18727
NotSolved

Ansicht des Beitrags:
Von:
Martin
Datum:
06.05.2023 19:44:19
Views:
1015
Rating: Antwort:
  Ja
Thema:
Kopierte Tabelle (gefiltert) in erste Freie Zeile einsetzen, anschließend Zeilen löschen

Hallo zusammen, 

leider bin ich etwas verzweifelt, da ich der folgende Code nicht das gewünschte Ergbenis liefert: 

Sub

    ' Filter in Spalte V nach "ZUBEHÖR" und kopiere alle Zeilen
    Range("A1").AutoFilter Field:=22, Criteria1:="=*Zube*"
    
    ' Finde die letzte Zeile und Spalte in der Tabelle
    Dim letzteZeile As Long
    Dim letzteSpalte As Long
    
    letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    letzteSpalte = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' Kopiere den Bereich der gesamten Tabelle
    Range(Cells(2, 1), Cells(letzteZeile, letzteSpalte)).Copy
    
    ' Füge den kopierten Bereich ein
    Range(Cells(letzteZeile + 1, 1), Cells(letzteZeile + 1, letzteSpalte)).Select
    ActiveSheet.Paste
    
    'Definiere den Bereich der markierten Zellen
    Dim selectedCells As Range
    Set selectedCells = Selection
    
    'Definiere den Bereich der Zeilen oberhalb der markierten Zellen
    Dim rowsToDelete As Range
    Set rowsToDelete = Range("2:" & selectedCells.Row - 1)
    
    'Lösche die Zeilen oberhalb der markierten Zellen
    rowsToDelete.EntireRow.Delete Shift:=xlUp
    
    
    'Anzeigen aller Zeilen
    ActiveSheet.ShowAllData
 
End Sub


Was mit diesem Code erreicht werden soll: 

Es Soll in Spalte V nach allem mit "ZUBEH" gefiltert werden. Dann sollen alle Zeilen kopiert werden und anschließend in die aller erste freie Zeile (auch die nicht eingeblendeten Zeilen) eingefügt werden. Danach soll in diesem Gefiltertem Modus die erste obere Hälfte der Zeilen gelöscht werden. (Hintergrund ist der, dass die angefilterteten Zeilen unten in der Tabelle stehen sollen und nicht mehr Zwischen den Zeilen angegeben werden sollen) 

Vielleicht habt ihr auch einen anderen Vorschlag dieses Problem zu lösen? Leider werden mit dem o.g. Code auch einige Zeilen gelöscht (die wichtig sind), weil er die kopierte Tabelle direkt in die erste Zeile der angefilterte Tabelle (sichtbaren Zeilen) einfügt. 

Vielen Dank im Voraus. 
BG
Martin


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Kopierte Tabelle (gefiltert) in erste Freie Zeile einsetzen, anschließend Zeilen löschen
06.05.2023 19:44:19 Martin
NotSolved
08.05.2023 21:29:25 Gast18727
NotSolved