Frage stellen

Daten aus Excel Tabelle löschen

580 Aufrufe
Gefragt in Tabellenkalkulation von
Hallo :)

Ich habe hier eine Stunden Tabelle die sich weitestgehend selbst aktualisiert.
http://www.file-upload.net/download-12047016/StundenNEU.xlsx.html

Jetzt meine Frage gibt es eine Möglichkeit, dass die eingegeben Daten sich
automatisch löschen wenn der Monat neu Anfängt ?

LG
Chris

8 Antworten

0 Punkte
Beantwortet von
Hi Chris ^^

Wie gewünscht :-)

Gruss Nighty

Es wird das Open ereigniss der Mappe genutzt

Einzufuegen
Alt+F11/Projektexplorer/DeineArbeitsMappe

Beim öffnen der Datei wird das Makro Aktiv(Makros erlauben,bei den Sicherheitseinstellungen!r)

Zur Zeit
Tabelle1/Spalte B > entsprechend deinen Bedingungen anpasen

Private Sub Workbook_Open()
Dim AbDatum As Date
AbDatum = "01." & Month(Date) & "." & Year(Date)
Worksheets(1).Range("B1").AutoFilter Field:=1, Criteria1:="<" & CDbl(AbDatum)
Worksheets(1).Rows("2:" & Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Delete Shift:=xlUp
Worksheets(1).Range("B1").AutoFilter
End Sub
0 Punkte
Beantwortet von
Hallo Nighty

erstmal Danke für deine Antwort nur leider komme ich irgendwie nicht dahinter ??

Die Daten sollen von B11 bis K41 wäre ja laut Excel dann (B11:K41) aber wo muss ich dies einfügen ?

ich bin ein wenig verwirrt :D :D

Danke für deine Mühe

LG
Chris
0 Punkte
Beantwortet von
Hi Chris und All !

Es werden 2 Infos gebraucht

1) WorksheetsName oder Index
2) Die Spalte der Datumswerte oder auch mehrere Spalten(Kein Bereich,sondern Spaltenangaben)
Erste Zeile überschrift,ab der zweiten Zeile Datum oder auch andere Daten!

Bei mehreren Spalten muss es umgeschrieben werden!
Ich denke aber das eine Spalte sicherlich ausreicht.

Gruss Nighty
0 Punkte
Beantwortet von
hi Chris ^^

Oder lade eine Beispieldatei hoch!
Google nach "Datei hochladen",dann den Link hier Posten

Gruss nighty
0 Punkte
Beantwortet von
Hi Chris ^^

Bitte im Xls Format ,unter SaveAs erreichbar!

Gruss Nighty
0 Punkte
Beantwortet von
Hallo Nighty

also ich habe es mal versucht, aber dabei blieb es auch es hat irgendwie nicht funktioniert.

Habe sicherlich irgendwo ein Fehler :(
0 Punkte
Beantwortet von
Hi Chris ^^

Sende die Datei :-)

Gruss Nighty

Bitte im Xls Format(Excel 2000) ,unter SaveAs erreichbar!

oberley@t-online.de
0 Punkte
Beantwortet von
Hallo Nighty

habe dir die Datei geschickt :)
...