Thema Datum  Von Nutzer Rating
Antwort
Rot Auswertung Excel mit Datum
 15.07.2015 20:34:54 Creativ87
NotSolved

Ansicht des Beitrags:
Von:
Creativ87		 Datum:
15.07.2015 20:34:54		 Views:
1094		 Rating:
     
Antwort:
  Ja
Thema:
Auswertung Excel mit Datum

Hallo zusammen ich möchte eine Excelliste machen wo ich ein Datum in eine Zeile einschreiben und daneben eine Datei die von diesem Datum stammt angebe. Ich möchte im Nachhinein noch mehr Daten reinschreiben als diese die ich jetzt in der Liste als Beispiel angegeben habe! Dabei möchte ich über den Startbutton angezeigt haben welche Dateien älter vom Datum sind als ein Jahr. Diese möchte ich in einer Messagebox angezeigt haben, jede Datei einzeln mit Datum wohlbemerkt. Diese Messagebox möchte auserdem mit einem Beenden Button (wo sich automatisch die Messagebox schließt)einem Ok Buttton belegen und einem Löschbutton wo ich das Datum aus der Liste Löschen kann und sich diese Zelle dann rot färbt! Er soll so lange diesen Ablauf machen wie ich in der Liste Daten habe und soll selbständig sich schließen. Mit der Ok Taste will ich nur bestätigen das ich es gesehehen habe aber nix machen möchte! Ich habe so eine LIste schonmal angefangen und den Quellcode mit dazu geschrieben! Ich hoffe ihr könnt mir helfen!


Die Quellcode ist:

Private Sub Start_Click()

Dim sh As Worksheet
Dim lz As Long
Dim ct As Long
Set sh = Worksheets("Del. 1")
With sh
lz = .Cells(.Cells.Rows.Count, 5).End(xlUp).Row
ct = 5
Do
If DateAdd("yyyy", 1, .Cells(ct, 5)) < Date Then
.Cells(ct, 5).Activate
If MsgBox(" Letzte Aktualisierung für" & vbLf & _
" " & .Cells(ct, 1) & " " & vbLf & _
" älter als ein Jahr" & vbLf & vbLf & _
" Eintrag löchen ?", vbQuestion + vbOKCancel) = 6 Then
.Cells(ct, 5).ClearContents
lz = .Cells(.Cells.Rows.Count, 5).End(xlUp).Row

End If
End If
ct = ct + 1
Loop While ct - 1 < lz
End With
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Auswertung Excel mit Datum
 15.07.2015 20:34:54 Creativ87
NotSolved