Bedingung Fomel erfüllt - Zelle cut

Hallo zusammen, 🙋
ich würde gerne bestimmte Zeilen ausschneiden, in ein anderes Tabellenblatt kopieren und die Zeile aus dem Tabellenblatt1 löschen lassen wenn in der Zelle von der Spalte G ein "x" reingeschrieben ist. Bis jetzt funktioniert dies auch super. Bei 2 Anliegen benötige ich allerdings eure Hilfe.
1) Jetzt würde ich aber gerne das x anhand des heute Datums mit =WENN(F7>=HEUTE();"x";"") errechnen lassen und wenn die Datei dann geöffnet wird, soll der Vorgang von alleine ausgelöst werden.
2) Schön wäre noch, wenn in in der Spalte ab G4 die Formel fest per VBA reingeschrieben ist.
Fals dies klappt wäre ich schon einen großen Schritt weiter. 🤩
Über Hilfe würde ich mich sehr freuen. 👍
https://www.herber.de/bbs/user/148564.xlsm


Private Sub Worksheet_Change(ByVal Target As Range)
Dim TRow As Integer
TRow = Target.Row
If Target.Column = 7 Then  'Spalte G angesprochen'
If Target = "x" Then 'das X ist das Kriterium zum Ausschneiden'
Sheets("Tabelle1").Rows(TRow).Copy
Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("Tabelle1").Rows(TRow).Delete Shift:=xlUp
End If
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() Application.ScreenUpdating = False With Worksheets("Tabelle1") .Range("A3").AutoFilter Field:=6, Criteria1:=">=" & CLng(Date), Operator:=xlAnd .Range("A3").AutoFilter Field:=7, Criteria1:="x" If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then With .AutoFilter.Range .Offset(1).Resize(.Rows.Count - 1).Copy With Worksheets("Tabelle2") .Cells(.Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row, "A").PasteSpecial _ Paste:=xlPasteValuesAndNumberFormats End With Application.DisplayAlerts = False .Offset(1).Resize(.Rows.Count - 1).Delete End With End If .Range("A3").AutoFilter End With Application.CutCopyMode = False End Sub

Hallo Werner,
das klappt wunderbar. Ich habe diesen Code mal im Arbeitsblatt und in einem Modull eingefügt.
Im Modull geht es mit Sub Auto_open() und dann den Rest vom Code
Ich habe die Tabelle jetzt mal etwas mehr angepasst und bin dadurch auf 2 weitere Fragestellungen gekommen.
Evtl. hast Du ja noch einen goldenen Tip für mich und weißt wie es geht.
1) Wäre es machbar nur bis einschließlich der Spalte J auszuschneiden?
2) könnte man evtl. noch Rechenformeln in der Spalte L, M und N einbauen.
Wenn ich dies mit Formeln in der Zelle mache, dann schneidet Excel mir die ja irgendwann alle raus ;-(
In L4 wäre es =J4-I4
In M4 wäre =$L$1-I4
In N4 wäre es =180-M4
Die aktuelle Datei habe ich angehangen:
https://www.herber.de/bbs/user/148573.xlsm
Freue mich auf Hilfe.
Gruß
Sebastian

Beliebteste Forumthreads (12 Monate)

Bedingung Fomel erfüllt - Zelle cut

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread