Office: Zelle in anderes Tabellenblatt verschieben, wenn Bedingung erfüllt ist

Hallo,

ich möchte gerne automatisch ganze Zeilen in ein anderes Tabellenblatt verschieben, wenn eine bestimmte Bedingung erfüllt ist. Ich schätze mal das kann man programmieren, ich bin da aber leider eine absolute Niete...
Kann mir da jemand von Euch weiterhelfen?

Hier eine etwas ausführlichere Beschreibung, was ich erreichen möchte:
Ich habe im Tabellenblatt 1 "aktuell" eine Liste mit Stellenanzeigen, welche auch Berechnungen enthält. Wenn ein Stelle besetzt ist, möchte ich gerne, dass die ganze Zeile in das Tabellenblatt 2 "offline" verschoben wird und zwar ans Ende der Liste in dem Blatt 2. Dabei sollen die Werte (Ergebnisse der Berechnung) übernommen werden, nicht die Formeln. Ich würde nun im Tabellenblatt 1 eine neue Spalte B einfügen, wo "ja" steht, wenn die Stelle besetzt ist. Das Verschieben soll sofort stattfinden, wenn "ja" drinnen steht (ohne dass ich wo klicken muss oder eine Tastenkombination eingeben muss). Darüber hinaus soll keine leere Zelle in Tabellenblatt 1 entstehen, was der Fall ist, wenn ich "Ausschneiden" und "Einfügen" verwende.

Ich hoffe, ihr könnt mir da weiterhelfen.

Vielen Dank schon mal!
nici789

:)

 

Hi,

ergibt sich das "ja" aus einer Formel oder wird es von Hand eingetragen?
Falls direkt eingetragen:

Code:

Code im Codemodul des Tabellenblattes, in dem in Spalte B "ja" eingetragen wird.

Ergibt sich "ja" als Formelergebnis, musst du anstelle Spalte 2 (B) die Spalte(n) überwachen, aus denen sich die Formel die Daten holt.

 

Hi,

Berverly war schneller, aber mein Code schon fertig, du kannst ja testen welcher besser ist (mein Tip: Berverly)


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 2 Then Exit Sub
If Target.Value = "ja" Then
allja:
lr2 = Sheets("offline").Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).Copy
Sheets("offline").Rows(lr2).PasteSpecial Paste:=xlValues
Rows(Target.Row).Delete
End If
Set Target = Columns(2).Find("ja")
If Not Target Is Nothing Then GoTo allja
End Sub


Der Code gehört in den "Kopf" der Tabelle "Aktuell".

mfg

 

Super, vielen Dank euch beiden. Funktioniert einwandfrei!

Könntet ihr mir auch noch sagen, wie der Code wäre, wenn in Spalte B ein Datum steht? Also wenn wir nicht ja rein schreiben würden, sondern ein Datum. Dieses wird manuell eingetragen.

LG Nici

 

Einfach in meinem Code diese Zeile

Code:

ersetzen durch diese

Code:

 

Hallo, ich habe das selbe Problem nur mit anderen Tabellenblättern sowie einer anderen Spalte (E)

Ich hätte gerne den Code verwendet leider zeit er mir hier immer nur makro auswählen an, an was kann das liegen?

Ich habe den Code geringfügig angepasst.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngErste As Long
If Target.Column = 5 Then 'Spalte E
If Target.Count = 1 Then
If UCase(Target) = "FERTIG" Then
With Worksheets("Archiv")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
Rows(Target.Row).Copy
.Cells(lngErste, 1).PasteSpecial Paste:=xlValues
Rows(Target.Row).Delete shift:=xlUp
End With
End If
End If
End If
End Sub

 

Hi,

wo hast du den Code hinkopiert? Er gehört ins Codemodul des Tabellenblattes und wird automatisch ausgeführt, wenn in Spalte E eine Eingabe erfolgt.