Daten in verschiedene Tabellenblätter sortieren

[dbiv]

Hallo,

ich bin leider Excel Laie....

Ich benötige eine Exceldatei wie im Anhang, die bedingt durch die Auswahl der ersten Zeile (durch Dropdown) in das jeweilige Tabellenblatt verschiebt.

Damit Vorgänge systematisch abgearbeitet werden können.

Kann mir hier jemand helfen?

Danke im Voraus.

Schönen Abend noch.

[Werner.M]

Hallo,

dein Betreff hat ja wohl gar nichts mit dem zu tun, was du dann beschreibst.
Und was du hier "durch die Auswahl der ersten Zeile (durch Dropdown) in das jeweilige Tabellenblatt verschiebt" mit verschiebt meinst, verstehe ich nicht.

Vielleicht beschreibst du noch einmal, was passieren soll, wenn du einen Wert in deinem Pulldownmenü auswählst.
Zudem ist es besser eine Beispielmappe hochzuladen als ein Bild einzustellen.

Gruß Werner

[Werner.M]

Hallo,

wenn ja, dann ginge das so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A7" Then
   Worksheets(Target.Value).Activate
End If
End Sub

Der Code gehört ins Arbeitsblatt auf dem sich dein Pulldownmenü befindet, das wäre dann wohl dein Blatt "Cockpit".
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren


Gruß Werner

[Kuwer]

Hallo,

Der Code gehört ins Arbeitsblatt auf dem sich dein Pulldownmenü befindet, das wäre dann wohl dein Blatt "Cockpit".

icht tippe auf NWA.

Gruß Uwe

[dbiv]

Sorry, wenn ich mich nicht richtig ausgedrückt habe.

Die Datei füge ich im Anhang an.

Ich möchte in jedem Arbeitsblatt außer Cockpit vorne in der Spalte Liste auswählen wohin (NeuInt, E-Mail, TAv, Schrott) die Zeile kopiert wird wird.

Beispiel
Wenn ich unter NeuInt in der Spalte Liste per Dropdown z. Bsp. E-Mail auswähle, dann sollte die Zeile unter E-Mail in der nächsten freien Zeile hinein kopiert werden und unter NeuInt verschwinden.
Die Daten sollten zu jedem Arbeitsblatt verschoben werden können

Ich habe es bereits mit Markos probiert...

.... ich bekomme es leider nicht hin.


Würde mich über Hilfe sehr freuen.

[Werner.M]

Hallo,

was ist mit dem Tabellenblatt "Kunde"? Das hast du in deinen Pulldown drin aber dieses Blatt gibt es nicht.

Gruß Werner

[Kuwer]

Hallo Dieter,

folgender Code kommt in das schon vorhandene VBA-Modul DieseArbeitsmappe:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim lngErsteZeile As Long
  Dim lngSpalten As Long
  If Sh.Name <> "Cockpit" Then
    If Target.Column = 1 And Target.Cells.Count = 1 Then
      If Len(Target.Value) Then
        lngErsteZeile = 5
        lngSpalten = 18
        With Worksheets(CStr(Target.Value))
          .Cells(Application.Max(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, lngErsteZeile), 1).Resize(1, lngSpalten).Value = _
            Target.Resize(1, lngSpalten).Value
            Target.EntireRow.Delete
        End With
      End If
    End If
  End If
End Sub

Gruß Uwe