Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte Zeilen in eine andere Tabelle einfügen
 15.06.2021 08:54:29 Fadi1412
Solved
15.06.2021 09:26:20 Mase
NotSolved

Ansicht des Beitrags:
Von:
Fadi1412		 Datum:
15.06.2021 08:54:29		 Views:
511		 Rating:
     
Antwort:
 Nein
Thema:
Bestimmte Zeilen in eine andere Tabelle einfügen

Hallo zusammen,

ich brauche eure Hilfe. Ich habe eine lange Liste mit Artikelnummern und muss bestimmte Artikel in eine andere Tabelle einfügen. Wenn also bei einigen Artikeln in der Spalte AO ein "X" markiert ist, soll die ganze Zeile mithilfe eines Buttons kopiert, in der jetzigen Zeile entfernt und in die andere Tabelle eingefügt werden, natürlich die bisherigen Daten nicht überschreiben. Die erste Tabelle (Übersicht) fängt bei A3 an und hört bei AT245 auf. Anschließend sollen die übrigen Zeilen nach oben rutschen. Ich habe es mit einer for Schleife versucht, allerdings will es noch nicht so ganz klappen. Hier mal mein Quellcode: ( Die erste Tabelle heißt Übersicht und die andere Ausschleuser)

Sub Ausschleuser()

Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long


With Übersicht
ZeileMax = .UsedRange.Rows.Count
ActiveSheet.Range(Cells(5, 1), Cells(150, 46)).Select

n = 7 

For Zeile = 5 To ZeileMax

    If .Cells(Zeile, 41).Value = "X" Then
    .Rows(Zeile).Copy Destination:=Sheets("Ausschleuser").Rows(n)
    n = n + 1

End If
Next Zeile

End With

End Sub

Vielen Dank schonmal :)

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 Bestimmte Zeilen in eine andere Tabelle einfügen
 15.06.2021 08:54:29 Fadi1412
Solved
15.06.2021 09:26:20 Mase
NotSolved