Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Excel-Tabellenblatt übergreifend- gesamte Zeilen verschieben und ausschneiden
#1
Guten Tag,

ich habe eine Frage und habe noch nichts Passendes gefunden, was aber bestimmt an mir liegt :-)

Ich arbeite mit Office 2010 und möchte gerne eine Excel-Datei, in der regelmäßig Datensätze dazu getragen werden (offene Angebote), in der Nachbearbeitung einfacher gestalten.

Die Datei hat bspw. ca. 15 Spalten (Bauvorhaben, Angebotsnummer, Angebotssumme, zuständiger Außendienst usw.) Eine Spalte davon „Auftrag Ja/Nein“ wird mit einem „J“ oder einem „N“ gefüllt, je nachdem, ob wir den Auftrag erhalten haben und dann in das Tabellenblatt 2 oder 3 manuell verschoben.

In der Datei gibt es 3 Tabellenblätter
Tabellenblatt 1: Gesamtübersicht
Tabellenblatt2: erhaltene Aufträge
Tabellenblatt 3: nicht erhaltenen Aufträge

Die Bearbeitung sieht also aktuell folgendermaßen aus:

Vor mir liegt der Ausdruck aus besagter Excel-Datei, nach Außendienst XY gefiltert mit den entsprechenden Informationen zu den einzelnen Angeboten.
Ich öffne also die Datei, setzte den Außendienst-Filter und übertrage die Informationen in meine Datei. Zu jedem Angebot fülle ich die Spalte „Auftrag Ja/Nein“ mit einem „J“ oder einem „N“.
Anschließend markiere ich die kompletten Zeilen die mit einem „J“ gekennzeichnet sind einzeln über „Strg“ und kopiere Sie in das Tabellenblatt 2. Zurück in der Gesamtübersicht lösche ich die markierten Zeilen.
Das gleiche wiederhole ich mit den Zeilen, die mit einem „N“ gekennzeichnet sind und verschiebe diese in das Tabellenblatt 3 und lösche in der Gesamtübersicht.

(Ich schneide die gefilterten Zeilen bewusst nicht aus, da ich sonst die leeren Zeilen in der Gesamtübersicht einzeln löschen muss, um nicht die Zellen dazwischen ebenfalls zu löschen)

Nun zu meiner Frage:

Ist es möglich, dass sich durch den Zelleneintrag „J“ oder „N“ in der Spalte „Angebot J/N“ die komplette Zeile automatisch in das jeweilige Tabellenblatt verschiebt, kopiert, ausschneidet o.ä, so dass ich sie im besten Fall anschließend in der Gesamtübersicht auch nicht mehr raus löschen muss?

Ich bedanke mit herzlich im Voraus für etwaige Antworten :-)

Viele Grüße
Rebecca
to top
#2
Hallo Rebecca,

folgender Code kommt in das schon vorhandene VBA-Modul des Tabellenblattes "Gesamtübersicht":

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rngAuftrag As Range
  Set rngAuftrag = Range("H:H") '<< entsprechend ändern!
  If Target.Column = rngAuftrag.Column Then
    Select Case LCase(Target.Cells(1).Value)
      Case "j"
        With Worksheets("erhaltene Aufträge") '<< entsprechend ändern!
          Target.Rows(1).EntireRow.Copy .Cells(.Rows.Count, Target.Column).End(xlUp).Offset(1).EntireRow
          Target.Cells(1).Select
          Target.Rows(1).EntireRow.Delete
        End With
      Case "n"
        With Worksheets("nicht erhaltenen Aufträge") '<< entsprechend ändern!
          Target.Rows(1).EntireRow.Copy .Cells(.Rows.Count, Target.Column).End(xlUp).Offset(1).EntireRow
          Target.Cells(1).Select
          Target.Rows(1).EntireRow.Delete
        End With
    End Select
  End If
End Sub

Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
ReWa
to top
#3
Hallo Uwe,

das hat wunderbar geklappt, vielen herzlichen Dank :-)

Toll. Einen schönen Tag wünscht

Rebecca
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  VBA Textteile finden, ausschneiden in andere Zelle einfügen Klaus 14 97 Vor 1 Stunde
Letzter Beitrag: atilla
  VBA Code verschieben einer Zeile in anderes Tabellenblatt rebound6 1 50 18.01.2017, 13:13
Letzter Beitrag: RPP63
  Zeilen mit gleichem Datum in anderes Tabellenblatt kopieren Taximichel 12 180 12.01.2017, 19:50
Letzter Beitrag: schauan
  Excel Vorlage für 2 Zeilen mit versch. Formeln skyspymorph 4 106 28.12.2016, 10:50
Letzter Beitrag: schauan
  Zeilen automatisch mit Makro ausschneiden und einfügen Flofff 1 116 21.12.2016, 22:09
Letzter Beitrag: schauan
  Archivierung von Excel Zeilen Maurice511 5 114 01.12.2016, 10:07
Letzter Beitrag: Maurice511
  Verschieben von Zellinhalten future83 2 75 13.11.2016, 22:33
Letzter Beitrag: future83
  Summenprodukt mit Bereich.verschieben exceltalent 3 135 03.11.2016, 17:06
Letzter Beitrag: Jockel
  Formel runterziehen, Bezug um 2 Zeilen verschieben nerdprincess 13 324 24.10.2016, 16:38
Letzter Beitrag: Jockel
  Funktion "Bereich verschieben" für Saisonalisierung? RoenneB 26 669 13.10.2016, 10:16
Letzter Beitrag: RoenneB

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste