Zellen nach Datum einfärben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dachte ich auch,...aber meine neue Idee scheitert daran , das ich die bedingte Formatierung da nicht wegbekomme. Das hatte ich aber selbst schon aus früheren Kommentaren zur bedingten Formatierungen erlesen. Da könnten die MS-Programierer ruhig mal was ändern.
Nun hab ich mal mit dem Makrorecorder Versuche gemacht, bis ich es nun doch geschafft habe
zumindest an mein Ziel zu kommen.
Wenn nun in Spalte 15 ein "x" eingegeben wird ,kopiere ich die Zelle in spalte 7
und über Inhalte / Einfügen / Werte füge ich dies in Spalte P ein.
Lösche die Spalte 7 , schneide den Wert der Spalte P aus und füge diese wieder bei Spalte 7 ein,
jetzt noch als Datum formatiert , fertig.
Spalte O bekommt noch den Staus "erledigt" ,...nett oder?
Das ganze hat den "Nachteil" das die vorrangegangene "bedingte Formatierung" bei einem
überschreibenden Datum nicht mehr da ist! Diese müsste manuell mit Pinsel übertragen werden.
https://www.herber.de/bbs/user/84509.xlsm
Luc, wenn es einfacher geht, dann her mit der Lösung.
der Matze

vorab eine Frage, kannst du deine Originaldatei hier einstellen?
Dann werde ich das für dich einpflegen.
Hier eine Anleitung:
Öffne deine Datei, drücke ALT+F11 (Vb-Editor sollte nun offen sein)
-kopiere die folgenden Codezeilen

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 Then
If Cells(Target.Row, 15) = "x" Then
'Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'kopiere 7 to 16
Cells(Target.Row, 7).Select
Cells(Target.Row, 7).Copy
'einfügen in 16 Inhalte nur Werte
Cells(Target.Row, 16).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Abbruch kopieren
Application.CutCopyMode = False
'lösche 7
Cells(Target.Row, 7).ClearContents
'ausschneiden 16 und in 7 einfügen
Cells(Target.Row, 16).Cut Destination:=Cells(Target.Row, 7)
'7 format datum
Cells(Target.Row, 7).NumberFormat = "m/d/yyyy"
'15 Status "erledigt" setzen
Cells(Target.Row, 15).Value = "erledigt"
'Bildschirmaktualisierung an
Application.ScreenUpdating = True
End If
End If
End Sub

- im VB-Editor auf der linken Seite per doppelklick auf Tabelle1(da wo deine Daten sind)
- nun ein klick ins rechte Fenster u. Strg+V drücken zum einfügen des Codes
- den VB-Editor schliesen
- die Arbeitsmappe muss nun mit "Speichern unter" Name wie du willst, aber die Endung auf "XLSM" umgestellt werden.
WICHTIG : Spalte P wird als Hilfspalte genutzt , die kannst du für nichts anderes verwenden.
markiere die Spalte P ,rechte Maustaste "ausblenden" wählen.das kann auch fest programiert werden,
wenn du dies möchtest.
Ich bekomme immer geschimpft wenn ich sowas mache: Email Machtnix21@gmx.de
Falls du das Orginal hier nicht einstellen möchtest.
Gruß Matthias(Matze)

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 15 Then If Cells(Target.Row, 15) = "x" Then 'Bildschirmaktualisierung aus Application.ScreenUpdating = False 'Spalte P ausblenden Columns("P:P").EntireColumn.Hidden = True 'kopiere 7 to 16 Cells(Target.Row, 7).Select Cells(Target.Row, 7).Copy 'einfügen in 16 Inhalte nur Werte Cells(Target.Row, 16).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Abbruch kopieren Application.CutCopyMode = False 'lösche 7 Cells(Target.Row, 7).ClearContents 'ausschneiden 16 und in 7 einfügen Cells(Target.Row, 16).Cut Destination:=Cells(Target.Row, 7) '7 format datum, format Center Cells(Target.Row, 7).NumberFormat = "m/d/yyyy" Cells(Target.Row, 7).HorizontalAlignment = xlCenter Cells(Target.Row, 7).VerticalAlignment = xlCenter '15 Status "erledigt" setzen Cells(Target.Row, 15).Value = "erledigt" Cells(Target.Row, 7).Select 'Bildschirmaktualisierung an Application.ScreenUpdating = True End If End If End Sub

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

228 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen nach Datum einfärben

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

228 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread