Werte in andere Tabelle einfügen und Zeile löschen

Guten morgen allerseits,
ich war gestern schon hier im Forum und mir wurde richtig geholfen. Trotzdem stehe ich immer noch vor einem riesen Problem:
Ich habe eine Auftragsliste, wo nur die offenen Aufträge drin stehen sollen. Ist einer abgearbeitet, so soll er in eine andere Liste. Das funktioniert nun alles prächtig. Das Makro, was dafür verantwortlich ist, löscht mir aber auch die Formeln aus der Arbeitstabelle, was ich aber nicht möchte.
Das zweite Problem: ich möchte, dass bei Verspätungen der Auftrag, der in die zweite Liste gepackt wurde, kopiert und in eine dritte Liste eingefügt wird.
Allerdings sollen die ganzen Daten auch nicht wild und wirr in den Listen stehen, sondern schön geordnet untereinander.
Kann mir da jemand helfen. Ich habe diese Liste nun mal entrümpelt, sodass sie klein genug ist. Ich habe sie mal mit hochgeladen.
Sie ist zu finden unter https://www.herber.de/bbs/user/25248.xls
Schon im Voraus vielen Dank. Gruß Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then 'Änderung in Spalte E If Target.Value <> "" Then lrow = Sheets("ewiger Durchlaufplan").Range("E65536").End(xlUp).Row + 1 '1. freie Zeile wird ermittelt Range("A" & Target.Row & ":I" & Target.Row).Cut Sheets("ewiger Durchlaufplan").Range("A" & lrow & ":I" & lrow) End If End If End Sub

Hallo Torsten,
ich interpretiere den Satz "besser ist es mit der kompletten Arbeitsmappe zu sehen" mal so das Du Deine Oroginale Mappe hochgelden hast. Den Code mußt Du gezielt gelscht haben ansonsten gehört er zur Datei. Im zweiten Schritt hast Du jetzt den Code hochgeladen. Ich hatte es gestern auch schon jemand angeboten falls sein Code in der Datei das macht was er schreibt komme ich sofort bei ihm vorbei und wir trinken einen auf meine Kosten. Das Angebot mache ich Dir auch. Aber da ich schon getestet habe das Dein Code nicht in Deiner hochgladenen Datei läuft, wird das wieder nichts mit dem trinken. Trinke ich eben mit meinem Computer.
Gewöhne Dir an mit einer Variablen definition zu arbeiten.
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim lrow  As Long
If Target.Column = 5 Then 'Änderung in Spalte E
If Target.Value <> "" Then
lrow = Sheets("ewiger Durchlaufplan").Range("E65536").End(xlUp).Row + 1 '1. freie Zeile wird ermittelt
Application.EnableEvents = False
With Range("A" & Target.Row & ":I" & Target.Row)
.Copy Sheets("ewiger Durchlaufplan").Range("A" & lrow)
.SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
Application.EnableEvents = True
End If
End If
End Sub

Listen fr den Code gibt es nicht. Es sind viele Beispiel im Internet hochgelden und ich für meinem Teil habe noch ein umfangreiches Archiv.
Gruß Hajo

"Wer Rechtschreibfehler findet, darf sie behalten!"

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then 'Änderung in Spalte D If Target.Value < 0 Then lrow = Sheets("ewige Verspätungsliste").Range("D65536").End(xlUp).Row + 1 '1. freie Zeile wird ermittelt Range("A" & Target.Row & ":I" & Target.Row).Copy Sheets("ewige Verspätungsliste").Range("A" & lrow & ":I" & lrow) End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Werte in andere Tabelle einfügen und Zeile löschen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in andere Tabelle einfügen und Zeile löschen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread