Zeile verschieben wenn Datum erreicht

Forumthread: Zeile verschieben wenn Datum erreicht

09.03.2018 20:43:05

Julie

Hallo
Ich bräuchte bitte Hilfe :)
Ich arbeite in der Personalabteilung und habe eine Tabelle mit allen Mitarbeitern erstellt also auch das Anfangsdatum und das Enddatum. Nun wäre es toll wenn die ganze Zeile mit der Person die die Firma verlässt zum gegebenen Datum in ein anderes Blatt verschoben werden könnte.
Kann mir dabei jemand helfen bitte.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Beispieldatei

09.03.2018 23:09:50

KlausF
Beispiel anhand einer Datei

11.03.2018 14:33:44

KlausF
AW: Zeile verschieben wenn Datum erreicht

10.03.2018 07:37:33

Hajo_Zi
AW: Zeile verschieben wenn Datum erreicht

11.03.2018 11:20:59

Severiens

Beispieldatei

09.03.2018 23:09:50

KlausF

Hallo Julie,
erstelle doch mal eine Beispieldatei, anhand derer gesehen wird wo und wie die
(anonymisierten) Ausgangsdaten stehen und wohin verschoben werden soll.
Benutze dabei den Upload des Forums.
Gruß
Klaus

Beispiel anhand einer Datei

11.03.2018 14:33:44

KlausF

Hi,
gib folgenden Code in die Workbook_Open().
Die Tabellennamen und die Suchspalte musst Du entsprechend Deiner Daten noch anpassen.
Beim Öffnen der Datei wird der Code dann automatisch ausgeführt und Du bekommst eine
Mitteilung, falls Mitarbeiter verschoben wurden ...

Private Sub Workbook_Open()
Dim intZaehler As Integer
Dim strSpalte As String
Dim lastRow As Long, firstFree As Long, i As Long
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
'________________________________________________ Anpassen
Set wksQuelle = Worksheets("Tabelle1") 'Tabelle: Mitarbeiter
Set wksZiel = Worksheets("Tabelle2") 'Tabelle: Verschoben
strSpalte = "F" 'Spalte in der das Enddatum steht
'________________________________________________
lastRow = wksQuelle.Cells(Rows.Count, "A").End(xlUp).Row
firstFree = wksZiel.Cells(Rows.Count, "A").End(xlUp).Row + 1
intZaehler = 0
Application.ScreenUpdating = False
With wksQuelle
For i = lastRow To 2 Step -1
If .Cells(i, strSpalte)  0 Then MsgBox intZaehler & " Mitarbeiter verschoben"
Application.CutCopyMode = False
Set wksQuelle = Nothing
Set wksZiel = Nothing
End Sub

https://www.herber.de/bbs/user/120331.xls
Gruß
Klaus

AW: Zeile verschieben wenn Datum erreicht

10.03.2018 07:37:33

Hajo_Zi

Rows("77:77").Cut Sheets("Tabelle3").Range("A22")

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.

AW: Zeile verschieben wenn Datum erreicht

11.03.2018 11:20:59

Severiens

Hallo,
nur mal eine Anmerkung.
Wäre es nicht besser, wenn beim öffnen der Tabelle "Mitarbeiter" zunächst abgefragt wird, ob Du prüfen möchtest ob Mitarbeiter die Firma verlassen oder verlassen haben. Wenn Du dies bestätigst könnte die entsprechenden Mitarbeiter angezeigt werden und Du könntest sie dann manuell verschieben. Fände ich besser als dies automatisch zu machen.
Gruß Dirk

Beliebteste Forumthreads (12 Monate)

Zeile verschieben wenn Datum erreicht

Forumthread: Zeile verschieben wenn Datum erreicht

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread