Ausschneiden und Einfügen einer Zeile

Hallo,
ich bin Neuling, was VBA Codes angeht. Genaugenommen habe ich gestern damit angefangen. Die ersten Makros haben ganz gut geklappt. Jetzt stehe ich aber vor einem, respektive zwei riesen Problemen:
1. Ich möchte, dass wenn eine bestimmte Zelle einen Wert 0 hat, die komplette Zeile ausgeschnitten wird und in eine andere Tabelle eingefügt wird. Das Programm gibt mir aber immer einen Laufzeitfehler 424 an.
2. Ich möchte, wenn eine bestimmte Zelle einen Wert Ich hoffe Ihr könnt mir da helfen. ich hänge da mal den Code an. Ich bedanke mich schonmal für Eure Mühe. Gruß Thorsten
zu1:


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E3").Value.v <> 0 Then
Range("A3:I3").Select
Selection.Cut
Sheets("ewiger Durchlaufplan").Select
Range("A3:I3").Select
ActiveSheet.Paste
End If
End Sub

zu2:


Private Sub Worksheet_Activate()
If Range("D3").Value.v < 0 Then
Range("A3:I3").Select
Selection.Copy
Sheets("ewige Verspätungsliste").Select
Range("A3:I3").Select
ActiveSheet.Pastespecial Paste:=xlValues
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Kopieren() If Range("E3").Value <> 0 Then Range("A3:I3").Copy Sheets("ewige Verspätungsliste").Range("A3:I3").PasteSpecial Paste:=xlValues Application.CutCopyMode = False End If End Sub

Hallo nochmal, also das Ding läuft super. Aber jatzt kann ich in der Unrsprungsliste nichts mehr in die Zeile eintragen, die ausgeschnitten und in die andere Liste eingefügt wurde, da dann dieser Datensatz wieder gelöscht wird. Was kann man denn da machen? Also zur Erklarung woran ich gerade rumspiele: Ich habe drei Tabellen. Die erste soll die Arbeitstabelle sein, in der man die Daten einträgt. Ist ein Vorgang abgeschlosse, wird das Fertigstelldatum eingetragen(Makro 1 Value. 0). Dieser Datensatz soll (und kommt jetzt dank Eurer Hilfe auch) in eine Zweite Liste, worin alle bisherigen Vorgänge gespeichert werden. Ist ein gewisser Wert unterschritten, so soll diese gesammte Zeile in eine dritte Liste kopiert werden. Das läuft alles perfekt. Nur kann man jetzt wie gesagt nichts mehr in die erste Zeile der Arbeitsliste eintragen. Habt Ihr da vielleicht eine Idee, oder stelle ich mir das alles zu einfach vor? Aber vielen Dank nochmal für Eure Hilfe. Gruß Thorsten

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("A65536").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

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

Beliebteste Forumthreads (12 Monate)

Ausschneiden und Einfügen einer Zeile

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

80 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausschneiden und Einfügen einer Zeile

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

80 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread