Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum in Abhängigkeit eines Zellwertes setzten

Datum in Abhängigkeit eines Zellwertes setzten
07.10.2008 07:37:00
Tom
Guten Morgen,
Ich hab hier ein aktuelles Problem das ich schnellstens lösen muss.
Meine Tabelle besteht aus den Spalten A bis Q. In Spalte P wird ein "X" eingetragen was den Datensatz in ein neues Tabellenblatt kopiert was auch super funktioniert.
Nun möchte mein Chef das wenn das "X" gesetzt wird in Spalte Q den Zusatz "gesendet am 06.10.2008". Also immer das aktuelle Datum.
Für Eure Hilfe bedanke ich mich im Voraus
Tom

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum in Abhängigkeit eines Zellwertes setzten
07.10.2008 07:46:00
Jochen
Hay,
versuch es mal hiermit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:GC")) Is Nothing Then
Range("A1").Value = "Geändert von " & Application.UserName _
& " am " & Format(Date, "dd.mm.yy")
End If
End Sub


Gruß
Jochen

AW: Datum in Abhängigkeit eines Zellwertes setzten
07.10.2008 07:46:00
Matthias
Hallo Tom
so könnte es gehen:
Code ins Tabellenblatt
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Q:Q")) Is Nothing And Target.Count = 1 Then
If Target.Value = "x" Then Target.Offset(, -1) = "gesendet am " & Date
Target.Offset(, -1).Value = Target.Offset(, -1).Value
End If
End Sub


Gruß Matthias

Anzeige
AW: Datum in Abhängigkeit eines Zellwertes setzten
07.10.2008 07:54:54
Tino
Hallo,
so müsste es funktionieren
kommt als Code ins entsprechende Tabellenblatt 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim A As Long 
On Error GoTo Fehler: 
Application.EnableEvents = False 
    For A = 1 To Target.Count 
     If Intersect(Target(A), Columns("P")) Is Nothing And Target(A) = "X" Then 
      Cells(Target(A).Row, "Q") = Date 
     End If 
    Next A 
Fehler: 
Application.EnableEvents = True 
End Sub


Gruß Tino

Anzeige
Spaltenkorrektur, das war vertauscht ...
07.10.2008 07:55:00
Matthias
Hallo
Da hatte ich ja die Spalten vertauscht 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("P:P")) Is Nothing And Target.Count = 1 Then
If UCase(Target.Value) = "X" Then Target.Offset(, 1) = "gesendet am " & Date
Target.Offset(, 1).Value = Target.Offset(, 1).Value
End If
End Sub


Durch UCase(Target.Value) = "X" wird dann die schreibweise des "X" egal.
Es greift dann also bei Klein- und Großschrift.
Gruß Matthias

AW: Datum in Abhängigkeit eines Zellwertes setzten
07.10.2008 08:12:00
Tom
Danke für Eure Hilfe, das ging ja super schnell!
Viele Grüße
Tom
Anzeige

307 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Datum in Kalenderwoche plus Jahreszahl
Karsten

Hi zusammen,
brauch hierbei Hilfe. Und zwar moechte ich gerne wissen, wie ich ein Datum in Kalenderwoche plus Jahreszahl umwandeln kann. Datum in Kalenderwoche ist ja kein Thema. Ich mache das mit dem Analysis ToolPak. Formel: =WEEKNUM(A1,2) Leider reicht mir aber die Wochenzahl nicht aus....
26.09.2008 17:11:00
Thread-ID: 1012711
4 Beiträge
KW in Datum umwandeln
Jochen

Hallo Freunde,
wie kann ich aus dieser Angabe "08 / 01" das Datum "01.01.2008" erstellen.
08 = Jahr
01 = Kalenderwoche
Danke im voraus.
Jochen
07.10.2008 07:40:13
Thread-ID: 1014582
7 Beiträge
Anzeige
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Datumswerte in Spalte richtig umwandeln
chris

Hallo zusammen,
ich habe ein Problem und würde ecuh um Hilfe bitten.
ich habe eine Exceldatei.in dieser habe ich eine Spalte in dieser stehen Datumswerte.
Nur das Problem ist manche zellen sind nicht als Datum formatiert das merke ich z.b wenn ich den Autofilre verwende sind die Dat...
02.12.2008 11:57:00
Thread-ID: 1029457
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
3
6
3
4
3
3
2
5
4
6
4
3
4
3
14
3
1
6
15
11
5
16
7