Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
520to524
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
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum in VBA automatisch weiterführen

Datum in VBA automatisch weiterführen
19.11.2004 11:44:37
Wolfgang
Mit folgendem Code erreiche ich, daß bei Hinzufügen eines Wertes in Spalte B das Datum in Spalte A weitergeschrieben wird. Das klappt auch, bis auf den Fall, daß der Wert in Spalte B gelöscht wird (dann sollte auch das Hinzugefügte Datum gelöscht werden), oder der Wert in B wird verändert (dann sollte nichts erfolgen).
Auf Hilfe hofft
Wolfgang

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim a, gg As Integer
Dim dd As Date
gg = Range("A65536").End(xlUp).Row
dd = Cells(gg, 1)
a = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
If Not Intersect(Target, Cells(a, 2)) Is Nothing Then
Cells(a, 2).Offset(18, -1) = dd + 1
End If
End Sub

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum in VBA automatisch weiterführen
ChrisL
Hi Wolfgang

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim a As Long, gg As Long
Dim dd As Date
If Target = "" Then
Cells(Target.Row, 2).Offset(18, -1) = ""
Exit Sub
End If
gg = Range("A65536").End(xlUp).Row
dd = Cells(gg, 1)
a = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
If Not Intersect(Target, Cells(a, 2)) Is Nothing Then
Cells(a, 2).Offset(18, -1) = dd + 1
End If
End Sub

Gruss
Chris
AW: Datum in VBA automatisch weiterführen
19.11.2004 19:19:23
Wolfgang
Vielen Dank Chris
Es klappt jetzt, wenn der Wert gelöscht wird, wird er allerdings verändert besteht das Problem noch. Kann man dagegen auch etwas machen?
Viele Grüße
Wolfgang
Anzeige
AW: Datum in VBA automatisch weiterführen
ChrisL
Hi Wolfgang
Wenn der Wert verändert wird, dann sollte doch nichts geschehen oder doch?
Gruss
Chris
AW: Datum in VBA automatisch weiterführen
Wolfgang
Hallo Chris
Ich meine es so:
Wenn der Wert verändert wird, z.B. von 5 auf 8 rechnet der Code zum noch vorhandenen Datum +1, und überschreibt es, deshalb steht nach einer Wertänderung nach dem z.B. 05.05.04 nicht der 06.05.04 sondern der 07.05.04. Je nach Anzahl der Änderungen wird immer ein falsches Datum eingetragen. Ich meinte, daß trotz einer Wertänderung das richtige Datum eingeschrieben wird, bzw. bestehen bleibt.
Ich hoffe Du verstehst mich, probiere es mal kurz aus, dann wird es deutlich.
Eine schönen Abend noch
Gruß
Wolfgang
Anzeige
AW: Datum in VBA automatisch weiterführen
ChrisL
Hi Wolfgang
Versuch mal so...

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 Then
If Target = "" Then
Cells(Target.Row, 2).Offset(18, -1) = ""
Exit Sub
Else
Cells(Target.Row, 2).Offset(18, -1) = Range("A65536").End(xlUp) + 1
End If
End If
End Sub

Gruss
Chris
AW: Datum in VBA automatisch weiterführen
21.11.2004 20:45:30
Wolfgang
Hallo Chris
geht leider auch nicht. Immer wenn ich den letzten Wert ändere, wird das Datum gelöscht,
und VBA zählt einen Tag und schreibt ihn in die zuvor gelöschte Zelle.Bsp.:
01.05.03
02.05.03
03.05.03
05.05.03 ( bei einmaliger Änderung),bei zweimaliger Änderung: 06.05.03 u.s.w.
Trotzdem vielen Dank
Wolfgang
Anzeige
AW: Datum in VBA automatisch weiterführen
ChrisL
Hi Wolfgang
Noch ein Versuch...

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 Then
With Cells(Target.Row, 2).Offset(18, -1)
If Target = "" Then
.Value = ""
Else
.Value = WorksheetFunction.Max(Columns(1)) + 1
.NumberFormat = "dd.mm.yyyy"
End If
End With
End If
End Sub

Gruss
Chris
AW: Datum in VBA automatisch weiterführen
22.11.2004 15:58:59
Wolfgang
Hallo Chris
funktioniert leider auch nicht. Der gleiche Fehler wie beim letzten Versuch.
Kannst ja selbst mal eine kleine Tabelle erstellen und dann testen.
Gruß
Wolfgang
AW: Datum in VBA automatisch weiterführen
ChrisL
Hi Wolfgang
Getestet habe ich schon, aber das Problem gemäss deiner Beschreibung erkenne ich nur schlecht. Trage das Datum in die Hilfszelle X1 ein. Dann folgender Code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 Then
With Cells(Target.Row, 2).Offset(18, -1)
If Target = "" Then
.Value = ""
Else
Dim HilfsZelle As Range
Set HilfsZelle = Range("X1")
HilfsZelle = HilfsZelle + 1
.Value = HilfsZelle
.NumberFormat = "dd.mm.yyyy"
End If
End With
End If
End Sub

Wenn dies auch nicht die Lösung ist, dann bin ich mit meinem Latein langsam am Ende. M.E. haben wir nun so ziemlich alle Varianten abgeklappert.
Gruss
Chris
Anzeige
AW: Datum in VBA automatisch weiterführen
22.11.2004 19:24:15
Wolfgang
Hallo Chris
Dieser Versuch klappt auch nicht. Wieder der gleiche Fehler. Wenn ein Wert in Spalte B
eingegeben wird zählt das Datum in A um einen Tag weiter. Wenn ich diesen gerade eingegebenen Wert verändere, so wird das Datum wiederum neu geschrieben(in der vorher das richtige Datum stand) mit +1, somit
steht nach dem 10.06.04 nicht der 11.06.04 sondern der 12.06.04. VBA liest das letzte
Datum aus und zählt 1 dazu und überschreibtschreibt dies.
Naja darf man den letzten Wert eben nicht ändern.
Nochmals vielen Dank
Gruß
Wolfgang

303 Forumthreads zu ähnlichen Themen

Autofilter aus VBA liefert kein ergebnis
Karsten


Hallo liebe Forumsgemeinde,
ich habe ein Problem mit dem Autofilter, den ich mit folgendem Code "auslöse":
ActiveSheet.Activate
With ActiveSheet
.AutoFilterMode = False
.Range("A8:H8").AutoFilter
.Range("A8:H8").AutoFilter Field:=1, Criteria1:=">=" & Range("J...
20.03.2010 15:52:25
Thread-ID: 1147277
10 Beiträge
Anzeige
Button für VBA Code in Tabellenblatt
Manu

Hallo zusammen,
ich bräuchte mal wieder eure Hilfe.
1. Kann mir jemand sagen, wie ich ein Button (soll im Tabellenblatt sichtbar sein) über VBA programmiere, dass sich alle Daten (ausgenommen der Zeile 1) aus einem Tabellenblatt löschen lassen (so zu sagen mit einem Klick)!
2. Weiß...
22.07.2011 10:13:44
Thread-ID: 1223144
7 Beiträge
Cursor springt im VBA Editor
stollentroll

Hallo zusammen
Seit einigen Tagen verhält sich der VBA Editor in einem größerem Projekt seltsam.
Noch während des Tippens wird Text verschoben, der Cursor springt und es findet eine "Überprüfung" der aktuellen Zeile statt.
Aus a=" wird nach wenigen Sekunden a="", was noch harmlos i...
02.02.2012 11:33:35
Thread-ID: 1248928
3 Beiträge
Anzeige
In VBA Editor Tabellen umbenennen
Heinz

Guten morgen im Forum
Wenn ich den VBA Editor öffne sehe ich:
Tabelle 1 ("Jänner") Tabelle 2 ("Februar") usw..
Meine Frage: Hat das umbenennen von Tabelle 1 in "Jänner" irgend eine Auswirkung auf VBA Codes usw..?
Gruß
Heinz
30.11.2012 09:38:50
Thread-ID: 1288676
3 Beiträge
Automatische e-mail Abschickung VBA in Excel
Kazo

Hallo ich habe folgendes Problem: und zwar soll bei unten stehender VBA Programmierung nach dem _ Anfordern eine automatische email zugeschickt werden, sodass man nach dem Antragstellen nichts weiteres mehr machen muss und wie gesagt die email automatisch von selber zugeschickt wird! Vielen Da...
24.04.2014 08:09:53
Thread-ID: 1358408
9 Beiträge
In VBA Autofilter mit spitzer Klammer setzen
Chris

Hallo allerseits,
in einer Tabelle habe ich eine Spalte mit Autofilter. Die Werte des Autofilters sind Höhenangaben wie z.B. "1 m", "2 m", aber es kommt auch der Wert "> 5 m" vor, sprich größer wie 5 Meter.
In VBA setze ich den Autofilter mit der Variable "wert"
ActiveSheet.Range...
05.12.2014 11:21:09
Thread-ID: 1396296
3 Beiträge
Code läuft nicht als Add-In, nur in VBA-Editor
Hans-Werner

Liebe VBA-Gemeinde,
habe wieder mal ein VBA-Problem mit Programm-Code, der im VBA-Editor einwandfrei läuft, aber nicht ganz so, wenn Code als Add-In oder Makro aufgerufen wird:
In meiner Excel-Tabelle sollen aus dem Inhalt der Spalten 1-20 (variabel, auch 1-15) über Auswertung diverser...
23.05.2015 15:52:15
Thread-ID: 1427467
6 Beiträge
Wie kann ich in VBA prüfen ob eine Zelle ein ListO
Lukas

Hi, wie kann ich in VBA prüfen, ob eine Zelle ein Listobject ist oder nicht? Danke für die Antworten schon im Voraus!
14.05.2016 15:55:28
Thread-ID: 1493315
8 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
9
3
6
2
2
2
8
2
5
7
17
5
2
3
5
1
4
1
1
7
1
2
2
2
4