Excel: Celle value einfügen anhand vom datum

Steven Kemendics · 6. Dezember 2024

Ich habe eine Excelliste mit Namen und Eintrittsdatum und wie viele Urlaubstage noch über sind.Die Liste funktioniert super und wenn ich Urlaubstage hinzufügen möchte oder streichen passiert das automatisch. Aber jetzt wollt ich versuchen, diese Liste mit einen Kalender zu verknüpfen so das immer wenn laut Kalender ein Mitarbeiter ein Arbeitsjahr abgeschlossen hat sich die Urlaubstage automatisch wieder auffüllen.Geht das überhaupt in Excel. Und wenn ja habt ihr ne Idee wie ich das am besten anstellen kann.Danke euch im voraus

Andreas Killer

Mein Fehler, sorry.

Andreas.

Private Sub FarbCode()

Dim Zeile As Range, R As Range

Dim Datum As Date, Auftragsnummer

Dim i As Integer, j As Integer

'Suche nach der Farbe

Application.FindFormat.Interior.ColorIndex = 44

With Worksheets("Arbeitsplan")

'Daten lesen

Set Zeile = .Rows(TextBox1.Value)

Auftragsnummer = .Cells(Zeile.Row, 1)

For j = 0 To 1 'Ändere 1 zu 3 um in +/- 3 Zeilen zu suchen

For i = -1 To 1 Step 2

Set Zeile = .Rows(TextBox1.Value).Offset(j * i)

If Auftragsnummer = .Cells(Zeile.Row, 1) Then

Set R = Zeile.Find("*", Zeile.Cells(Zeile.Cells.Count), SearchFormat:=True)

If Not R Is Nothing Then

If Datum = 0 Then

Datum = .Cells(23, R.Column)

Else

'Datum kleiner?

If .Cells(23, R.Column) < Datum Then Datum = .Cells(23, R.Column)

End If

End If

If j = 0 Then Exit For

End If

Next

Next

End With

If Datum = 0 Then

'Zellinhalt löschen wenn nicht gefunden

Worksheets("Arbeitszeiten").Cells(11, 9).ClearContents

Else

'Datum übertragen

Worksheets("Arbeitszeiten").Cells(11, 9) = Datum

End If

End Sub

Claus Busch

Hallo Jochen,

da das Excel-Datum fälschlicherweise annimmt, dass 1900 ein Schaltjahr gewesen ist, stimmen die Werte bis 01.03.1900 nicht bei allen Berechnungen.

Probiere:

Sub Test()

Dim Datum As Date

With Sheets(1).Range("A1")

    Datum = IIf(.Value < 61, .Value + 1, .Value)

End With

MsgBox Datum

End Sub

Claus

NurExcel

Ich hatte die Formel geändert, weil ich immer eine Fehlermeldung bekam.

Jetzt weiß ich, dass Excel keine einzige CELL() Funktion erkennt.

Habe viele Formeln zu Cell ausprobiert und jedesmal kam #Value! Fehler.

Vielen Dank für die Hilfe

Stefan_136

Geht nur mit VBA: https://support.microsoft.com/de-de/help/509406

Das würde dir den Autor in A1 einfügen:

Sub AutorEinfuegen()

Cells(1, 1).Value = ActiveWorkbook.BuiltinDocumentProperties("Author")

End Sub

Muharrem Topal

Ich haben eher umständlichen Ausweg gefunden.
Wenn ich jeden Farcode einzeln im userform mit einen "Private Sub..." versehe und diese dann später im bereich "Sub OK_click()" mit "Call..." versehe funktioniert das tadellos.

Bsp.:

Sub OK_Click()
Call F1
Call F2

End Sub
____________________________________________________

Private Sub F2()
Dim Zeile As Range, R As Range
Dim Datum As Date, Auftragsnummer
Dim i As Integer, j As Integer
Application.FindFormat.Interior.ColorIndex = 44
With Worksheets("Arbeitsplan")
'Daten lesen
Set Zeile = .Rows(Feld1.Value)
Auftragsnummer = .Cells(Zeile.Row, 1)
For j = 0 To 1 'Ändere 1 zu 3 um in +/- 3 Zeilen zu suchen
For i = -1 To 1 Step 2
Set Zeile = .Rows(Feld1.Value).Offset(j * i)
If Auftragsnummer = .Cells(Zeile.Row, 1) Then
Set R = Zeile.Find("*", Zeile.Cells(Zeile.Cells.Count), SearchFormat:=True)
If Not R Is Nothing Then
If Datum = 0 Then
Datum = .Cells(23, R.Column)
Else
'Datum kleiner?
If .Cells(23, R.Column) < Datum Then Datum = .Cells(23, R.Column)
End If
End If
If j = 0 Then Exit For
End If
Next
Next
End With
If Datum = 0 Then
'Zellinhalt löschen wenn nicht gefunden
Worksheets("Arbeitszeiten").Cells(11, 9).ClearContents
Else
'Datum übertragen
Worksheets("Arbeitszeiten").Cells(11, 9) = Datum
End If
End Sub

So funktioniert das. Wie gesagt mega umständlich aber funktioniert.

Ist das eigentlich so zu empfehlen?

Gruß

Hi,

willkommen im Windows Forum!

Excel: Celle value einfügen anhand vom datum - Similar Threads - Excel Celle value	Forum	Datum
Excel: Cell value Zellenwert einfügen anhand vom Datum Excel: Cell value Zellenwert einfügen anhand vom Datum: Ich habe eine Excelliste mit Namen und Eintrittsdatum und Anzahl der Urlaubstage, die noch übrig sind.Die Liste funktioniert super und wenn ich Urlaubstage hinzufügen möchte oder streichen,...	Microsoft Office	6. Dezember 2024
Zellwert Datum anhand anderer Zelle ändern Zellwert Datum anhand anderer Zelle ändern: Hallo Community,ich habe folgendes Excel-Problem:Excel Microsoft 365In Zelle A1 steht ein Datum im Format TT.MM.JJJJIn Zelle B1 steht "ja" oder "nein"Nun soll die Zelle A1 folgendermaßen neu...	Microsoft Office	9. Juli 2024
Excel 2007, bei fehlenden Datum eine Leerzelle einfügen Excel 2007, bei fehlenden Datum eine Leerzelle einfügen: Hallo Community, habe folgendes Problem: Wie kann ich in einer Datumspalte B, ist ein Jahr lang, Sonn-u.Feiertage nicht aufgeführt, für fehlendes Datum dieser Sonn-u.Feiertage mit Leerzellen nach...	Microsoft Office	10. April 2020
Excel #VALUE Error Excel #VALUE Error: Ich habe eine Arbeitsmappe von einem Kollegen erhalten um Schulnoten zu berechnen. Bei mir taucht in jedem Feld mit Formel ein #VALUE Error bzw. #### auf. Die gleiche Datei auf einem anderen...	Microsoft Office	24. September 2018
Excel #VALUE Error Excel #VALUE Error: Ich habe eine Arbeitsmappe von einem Kollegen erhalten um Schulnoten zu berechnen. Bei mir taucht in jedem Feld mit Formel ein #VALUE Error bzw. #### auf. Die gleiche Datei auf einem anderen...	Microsoft Office	22. September 2018
Flächendiagramm anhand von Excel Flächendiagramm anhand von Excel: Hallo liebe Community-Mitglieder, ich möchte gerne die Geld-Brief-Spannen mehrerer Aktien zum einen im Zeitverlauf und zum anderen nach Marktteilnehmer anhand eines Flächendiagramms abbilden....	Microsoft Office	25. August 2017
Aktuelles Datum im excel app einfügen Aktuelles Datum im excel app einfügen: Hallo, ich habe ja die Office Apps auf dem Samsung Galaxy Tab S2. Man kann durch STRG + . das aktuelle Datum im Exel einfügen. Das funktioniert aber NICHT über das Tablet. Was muss man dort...	Microsoft Office	30. April 2017

Excel: Celle value einfügen anhand vom datum

Excel: Celle value einfügen anhand vom datum

Such Erweiterung anhand von Zellinhalt

Excel 2010: Datum in VBA immer ein Tag daneben (bei Datum im jahr 1900)...

wenn datum dann "eingegeben"

Document Properties in Excel nutzen

Such Erweiterung anhand von Zellinhalt

User Advert

Excel: Celle value einfügen anhand vom datum - Microsoft Office

Excel: Celle value einfügen anhand vom datum - Similar Threads - Excel Celle value

Excel: Cell value Zellenwert einfügen anhand vom Datum

Zellwert Datum anhand anderer Zelle ändern

Excel 2007, bei fehlenden Datum eine Leerzelle einfügen

Excel #VALUE Error

Excel #VALUE Error

Flächendiagramm anhand von Excel

Aktuelles Datum im excel app einfügen

Excel: Celle value einfügen anhand vom datum solved