Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile verschieben wenn Datum erreicht

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
Anzeige
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
Anzeige
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

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige