Hallo,
in einem Worksheet habe ich Arbeitsaufträge (AAT) definiert. Normalerweise trägt jeder Mitarbeiter diese selber aus. Wenn dies nicht geschieht, soll zu einem Stichtag der Inhalt des Bereiches ab Zeile A5 gelöscht werden. Der Stichtag soll im Makro definiert sein (Monatsende 30 oder 31).

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Tagesdatum prüfen und Arbeitsblatt löschen

Oberschlumpf
AW: Tagesdatum prüfen und Arbeitsblatt löschen

Michael
If CDate(Date) = CDate("08.06.2010") Then oT

Matthias
AW: Tagesdatum prüfen und Arbeitsblatt löschen

Oberschlumpf
AW: Tagesdatum prüfen und Arbeitsblatt löschen

Michael
ich nochmal ...

Matthias
und nochmal ...

Matthias

AW: Tagesdatum prüfen und Arbeitsblatt löschen

08.06.2010 11:35:05

Oberschlumpf

Hi Michael
Versuch es mal hiermit in deinem Code:


If Day(Date) = 30 Or Day(Date) = 31 Then
Range("A5:?").Value = ""
End If

Für ? trägst du den Rest deines Bereiches ein, der gelöscht werden soll.
Hilfts?
Wenn nicht, dann bitte eine Bsp-Datei.
Ciao
Thorsten

AW: Tagesdatum prüfen und Arbeitsblatt löschen

08.06.2010 11:37:46

Michael

Hi Thorsten,
wie sieht es aber aus, wenn ich das Datum frei wählen möchte. z.B. 28.06.2010 ?
Gruß
Michael

If CDate(Date) = CDate("08.06.2010") Then oT

08.06.2010 11:43:01

Matthias

AW: Tagesdatum prüfen und Arbeitsblatt löschen

08.06.2010 11:44:56

Oberschlumpf

Hi Michael
Wenn du frei entscheiden willst, dann geht das ja nur, in dem du ein beliebiges Datum in irgdeine Zelle - z Bsp A1 - einträgst.
Dann der Code so:


If Day(Date) = Range("A1").Value Then
Range("A5:?").Value = ""
End If

Hilfts?
Ciao
Thorsten

AW: Tagesdatum prüfen und Arbeitsblatt löschen

08.06.2010 12:07:31

Michael

Hi Thorsten,
vielen Dank für die, wie immer superschnelle und tollen Lösungsansätze. Macht nur weiter so.
In diesem fall ahbe ich mich für die Lösung von Matthias L entscheiden. Danke nochmal an Matthias.
Bis zum nächsten Thread.
Michael

ich nochmal ...

08.06.2010 23:13:39

Matthias

Hallo
Ich glaube If CDate(Date) ist doppelt gemoppelt.
statt:
If CDate(Date) = CDate("08.06.2010")
sollte schon
If Date = CDate("08.06.2010")
reichen.
Gruß Matthias

und nochmal ...

09.06.2010 07:42:12

Matthias

Hallo
das reicht doch schon:
If Date = "09.06.2010" Then ...
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn wort in spalte vorkommt dann

34081
excel zellen einfärben wenn andere zelle wert

23512
excel zelle auslesen bis zeichen

16681

Weitere Forumthreads anzeigen

excel zeichen einfügen in text

16052

excel nicht mehr scrollen

15741

excel formel verschieben ohne änderung

15343

excel enthält wort

14267

excel wenn x dann wert aus zelle

12306

excel links abschneiden

11938

excel formel erste zeichen löschen

11417

excel summe wird als 0 angezeigt

10634

wenn zelle text enthält dann farbe

10521

excel zählenwenn oder kriterien

9511

excel erste zeichen abschneiden

9498

excel formel prüfen ob zelle bestimmten text enthält

9480

excel wenn fehler oder 0 dann leer

9079

vba excel text in zelle schreiben

8864

excel formel links bis zum ersten leerzeichen

8800

excel zählen wenn datum und text

8428

excel wert nur einmal zählen

8178

excel wert übernehmen

8062

excel text aus zelle ab bestimmten zeichen auslesen

7989

excel text von rechts bis zeichen

7915

excel formel größer gleich und kleiner gleich

7806

excel vba letzte zelle mit inhalt ermitteln

7675

excel datum zeit zusammenfügen

7521

excel zellen ausblenden mit plus

7291

excel minuten in stunden anzeigen

7167

excel zeilen mit bestimmten inhalt ausblenden

7070

excel cursor ändern

7068

excel kalenderwochen monaten zuordnen

6935

excel bedingte formatierung datum kleiner heute

6521

excel summe wenn nicht leer

6515

excel mehrere spalten untereinander zusammenführen

6294

vba zellen inhalt löschen

6182

excel keine negativen zahlen zulassen

6026

excel wenn zeit kleiner dann

6006

excel letzten zeichen auslesen

5981

excel ist wert in spalte vorhanden

5920

excel zweites wort aus zelle

5910

excel shortcut arbeitsblatt wechseln

5872

excel zahlen fortlaufend runterziehen

5838

excel istleer

5829

excel datei gesperrt

5734

excel die letzten 3 zeichen löschen

5705

excel formel zeichen

5689

excel summewenn sverweis

5676

excel formel wenn zelle leer dann

5582

excel text in zelle suchen und ausgeben

5539

uhrzeit plus stunden excel

5492

excel vba find value in table

5379

excel summewenn zelle nicht leer

5341

summewenn excel mehrere spalten

5321

führende null excel entfernen

5224

excel zelle farbig wenn andere zelle text

5182

excel vba message box ja nein

5105

e mail adresse in excel generieren

5082

sverweis #nv durch 0 ersetzen

5082

excel vba zelle farbe

5053

excel formel wenn farbe dann

5053

excel buchstabe aus zelle entfernen

4974

excel werte übernehmen wenn bedingung erfüllt

4903

excel summe wenn ungleich

4847

excel gänsefüßchen in formel

4841

vba wort in string suchen

4789

excel plus monate

4769

summe wenn datum zwischen

4754

excel makros schützen

4727

excel position eines zeichens von rechts ermitteln

4710

vba if mit zwei bedingungen

4679

balken und liniendiagramm kombinieren excel

4659

excel format ändern funktioniert nicht

4654

excel vba bild in zelle einfügen und anpassen

4588

excel 1000er trennzeichen entfernen

4564

excel ersten zeichen löschen

4556

excel textinhalt aus zelle übernehmen

4516

makro text in zahl umwandeln

4508

excel vba zeilenumbruch in string

4482

zählen wenn bestimmter text

4469

excel spalte eines wertes ermitteln

4452

excel vba sheet exists

4430

makro beenden tastenkombination

4411

zeitstempel excel bei eingabe

4362

excel formeln kopieren ohne verknüpfung

4360

summe runden excel formel

4357

excel aktuelle uhrzeit fortlaufend

4332

excel vba userform close

4327

durchschnitt von prozenten berechnen excel

4327

kw in datum umwandeln excel

4324

excel sverweis zeile ausgeben

4308

excel datum verketten mit text

4300

excel vba get value from another sheet

4285

excel gruppierung namen geben

4260

excel grouping not working

4229

excel formel wenn dann

4199

vba zeilenumbruch in string

4182

excel datenüberprüfung liste ohne leere zellen

4158

zellen sperren excel

4142

gestrichelte linie excel

4075

aktuelles jahr in excel anzeigen

4025

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn wort in spalte vorkommt dann

34081
excel zellen einfärben wenn andere zelle wert

23512
excel zelle auslesen bis zeichen

16681

Weitere Forumthreads anzeigen

excel zeichen einfügen in text

16052

excel nicht mehr scrollen

15741

excel formel verschieben ohne änderung

15343

excel enthält wort

14267

excel wenn x dann wert aus zelle

12306

excel links abschneiden

11938

excel formel erste zeichen löschen

11417

excel summe wird als 0 angezeigt

10634

wenn zelle text enthält dann farbe

10521

excel zählenwenn oder kriterien

9511

excel erste zeichen abschneiden

9498

excel formel prüfen ob zelle bestimmten text enthält

9480

excel wenn fehler oder 0 dann leer

9079

vba excel text in zelle schreiben

8864

excel formel links bis zum ersten leerzeichen

8800

excel zählen wenn datum und text

8428

excel wert nur einmal zählen

8178

excel wert übernehmen

8062

excel text aus zelle ab bestimmten zeichen auslesen

7989

excel text von rechts bis zeichen

7915

excel formel größer gleich und kleiner gleich

7806

excel vba letzte zelle mit inhalt ermitteln

7675

excel datum zeit zusammenfügen

7521

excel zellen ausblenden mit plus

7291

excel minuten in stunden anzeigen

7167

excel zeilen mit bestimmten inhalt ausblenden

7070

excel cursor ändern

7068

excel kalenderwochen monaten zuordnen

6935

excel bedingte formatierung datum kleiner heute

6521

excel summe wenn nicht leer

6515

excel mehrere spalten untereinander zusammenführen

6294

vba zellen inhalt löschen

6182

excel keine negativen zahlen zulassen

6026

excel wenn zeit kleiner dann

6006

excel letzten zeichen auslesen

5981

excel ist wert in spalte vorhanden

5920

excel zweites wort aus zelle

5910

excel shortcut arbeitsblatt wechseln

5872

excel zahlen fortlaufend runterziehen

5838

excel istleer

5829

excel datei gesperrt

5734

excel die letzten 3 zeichen löschen

5705

excel formel zeichen

5689

excel summewenn sverweis

5676

excel formel wenn zelle leer dann

5582

excel text in zelle suchen und ausgeben

5539

uhrzeit plus stunden excel

5492

excel vba find value in table

5379

excel summewenn zelle nicht leer

5341

summewenn excel mehrere spalten

5321

führende null excel entfernen

5224

excel zelle farbig wenn andere zelle text

5182

excel vba message box ja nein

5105

e mail adresse in excel generieren

5082

sverweis #nv durch 0 ersetzen

5082

excel vba zelle farbe

5053

excel formel wenn farbe dann

5053

excel buchstabe aus zelle entfernen

4974

excel werte übernehmen wenn bedingung erfüllt

4903

excel summe wenn ungleich

4847

excel gänsefüßchen in formel

4841

vba wort in string suchen

4789

excel plus monate

4769

summe wenn datum zwischen

4754

excel makros schützen

4727

excel position eines zeichens von rechts ermitteln

4710

vba if mit zwei bedingungen

4679

balken und liniendiagramm kombinieren excel

4659

excel format ändern funktioniert nicht

4654

excel vba bild in zelle einfügen und anpassen

4588

excel 1000er trennzeichen entfernen

4564

excel ersten zeichen löschen

4556

excel textinhalt aus zelle übernehmen

4516

makro text in zahl umwandeln

4508

excel vba zeilenumbruch in string

4482

zählen wenn bestimmter text

4469

excel spalte eines wertes ermitteln

4452

excel vba sheet exists

4430

makro beenden tastenkombination

4411

zeitstempel excel bei eingabe

4362

excel formeln kopieren ohne verknüpfung

4360

summe runden excel formel

4357

excel aktuelle uhrzeit fortlaufend

4332

excel vba userform close

4327

durchschnitt von prozenten berechnen excel

4327

kw in datum umwandeln excel

4324

excel sverweis zeile ausgeben

4308

excel datum verketten mit text

4300

excel vba get value from another sheet

4285

excel gruppierung namen geben

4260

excel grouping not working

4229

excel formel wenn dann

4199

vba zeilenumbruch in string

4182

excel datenüberprüfung liste ohne leere zellen

4158

zellen sperren excel

4142

gestrichelte linie excel

4075

aktuelles jahr in excel anzeigen

4025

Tagesdatum prüfen und Arbeitsblatt löschen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread