Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn übertragen, dann Datum löschen.

Wenn übertragen, dann Datum löschen.
02.09.2007 22:44:00
Josef
Guten Abend zusammen.
Möchte die Datums im TB-EINGABEN automatisch von dem ausführenden Modul löschen lassen, sobald die Datums übertragen wurden.
Ich weiss, dass man das mit ClearContens oder einem Löschmakro mit Call aufrufen kann., aber ich weiß nicht genau wie die Syntax ist und wo ich das dann einfügen muss.
Noch eine Frage: ist es möglich, dass nach dem übertragen der Datümer in die Urlaubsliste, in dem TB-EINGABEN, oberhalb von den Eingabefelder der Datums, eine Meldung erscheint, dass die Daten korrekt übertragen wurden?
Hier das Muster: https://www.herber.de/bbs/user/45630.xls
Kann mir bitte jemand dabei helfen, diese beiden Ergänzungen zu lösen?
Gruß
Josef

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn übertragen, dann Datum löschen.
02.09.2007 22:52:21
Josef
Hallo Josef,
dazu brauchst du nur dieses Makro um die letzten drei Zeilen ergänzen.
Sub UrlaubEintragen()
Dim UBeginn As Date
Dim UEnde As Date
Dim Wer As String
Dim Wks As Worksheet
Dim Flag As Integer
If IsDate(Worksheets("Eingaben").Cells(10, 3)) Then
    UBeginn = Worksheets("Eingaben").Cells(10, 3)
Else
    MsgBox "Geben Sie beim Urlaubsbeginn ein korrektes Datum ein !"
    Exit Sub
End If
If IsDate(Worksheets("Eingaben").Cells(10, 5)) Then
    UEnde = Worksheets("Eingaben").Cells(10, 5)
Else
    MsgBox "Geben Sie beim Urlaubsende ein korrektes Datum ein !"
    Exit Sub
End If
'Prüfung ob die Diff. zwischen beiden Datums positiv ist
If DateSerial(Year(UEnde), Month(UEnde), Day(UEnde)) < DateSerial(Year(UBeginn), Month(UBeginn), _
    Day(UBeginn)) Then
    MsgBox "Das Urlaubsende kann nicht vor dem Urlaubsanfang liegen ! Bitte prüfen Sie Ihre _ Eingaben !"
    Exit Sub
End If

' Prüfen ob das erfasste WKS vorhanden ist
Flag = 0
For Each Wks In ThisWorkbook.Worksheets
    If Worksheets("Eingaben").Cells(3, 7) = Wks.Name Then
        ' MsgBox Wks.Name
        Flag = 1
        Exit For
    End If
Next
If Flag = 0 Then
    MsgBox "Für diesen Mitarbeiter ist kein Tabellenblatt angelegt ! Überprüfen Sie daher _ nochmals die Eingabe !"
    Exit Sub
End If
Call eintragen(Wks.Name, UBeginn, UEnde)
'#neu
Worksheets("Eingaben").Cells(10, 5).ClearContents
Worksheets("Eingaben").Cells(10, 3).ClearContents
MsgBox "Urlaub für " & Wks.Name & " erfolgreich eingetragen!", vbInformation, "Hinweis"
End Sub

Gruß Sepp

Anzeige
AW: Wenn übertragen, dann Datum löschen.
02.09.2007 23:20:00
Josef
Hallo Sepp,
Danke Dir für die schnelle und wie immer kompetente und funtionierende Lösung.
Viele Grüsse und gute Nacht Sepp!
Josef

AW: Wenn übertragen, dann Datum löschen.
03.09.2007 06:55:18
Josef
Guten Tag zusammen.
Habe beim testen des geänderten Makros in der Original-Datei festgestellt, das die Zellen die gelöscht werden sollen, vebundene Zellen sind und deshalb mit den Änderungen nicht funktioniert.
In der Testdatei die ich hochgeladen habe, gibt es keine verbundenen Zellen!
Meine Frage: kann mir bitte jemand dabei helfen, aus den Zelladressen eine Bereichsadresse zu machen, die den Bereich (Range) H10:N10 abdeckt und nach dem übertragen der Daten gelöscht werden ?
Danke schon mal im voraus
Gruß
Josef

Anzeige
AW: Wenn übertragen, dann Datum löschen.
03.09.2007 06:58:00
Josef
Hallo zusammen,
Sorry, hatte vergessen den Beitrag auf offen zu stellen.
Josef

AW: Wenn übertragen, dann Datum löschen.
03.09.2007 07:10:00
Jens
Hi Josef
Ändere die Zeilen von Sepp:

Worksheets("Eingaben").Cells(10, 5).ClearContents
Worksheets("Eingaben").Cells(10, 3).ClearContents
MsgBox "Urlaub für " & Wks.Name & " erfolgreich eingetragen!", vbInformation, "Hinweis"


in:
Worksheets("Eingaben").Range("H10:N10").ClearContents
MsgBox "Urlaub für " & Wks.Name & " erfolgreich eingetragen!", vbInformation, "Hinweis"
Gruß aus dem Sauerland
Jens

Anzeige
AW: Wenn übertragen, dann Datum löschen.
03.09.2007 08:11:00
Josef
Hallo Jens,
Danke, dass Du mir so schnell geholfen hast. Funktioniert jetzt im Original einwandfrei!
Gruß
Josef

Bitte, Danke für Feedback :-) oT
03.09.2007 15:20:00
Jens

314 Forumthreads zu ähnlichen Themen

Automatische Werte befüllen wenn bestimmtes Datum
Heiderer

Hallo!
Ich habe folgendes Excel-Sheet:
In Spalte A soll mittels VBA ein Datum eingefügt werden, zb. 01.09.2008. In Spalte B soll ein Betrag zb. € 70,00 eingetragen werden. Bezüglich der Spalte B gibt es kein Problem. Es geht nur um die Spalte A.
Ich will nämlich, dass Excel autom...
03.09.2008 13:43:00
Thread-ID: 1007096
30 Beiträge
Anzeige
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Zeile anlegen, dann Datum von heute
heute

Hallo Leute,
ich hab (mal wieder) ein kleines Problem und hoffe auf eure Unterstützung.
Ich habe eine Exceltabelle, in der noch fast nichts drin steht.
Jetzt würde ich es gerne so haben, dass, wenn ich eine neue Zeile anlege (z.B. mit Kundendaten), soll er mir in einer bestimmten Ze...
23.09.2008 16:37:51
Thread-ID: 1011817
12 Beiträge
Anzeige
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Aufgabe an Outlook wenn Datum gleich heute
Lucia

Hallo zusammen,
Mit dem nachfolgenden Makro möchte ich die jeweiligen, nach Themen definierten Maßnahmen als Outlookaufgaben verteilen. Das klappt ganz gut. Was ich nicht hinbekomme, ist eine If Schleife, die prüft, ob das Datum in Aendd (Datum der letzten Änderung) dem heutigen entspricht...
26.11.2008 16:00:07
Thread-ID: 1028078
3 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
aktuelles Datum anzeigen
Philipp

Hallo liebe Herber-Gemeinde,
ich möchte gern, dass mir Excel das aktuelle Datum in einer Zelle anzeigt. Weiss leider nicht wie das geht.
Vielleicht kann mir zusätzlich noch jemand sagen, wie man das mit einer Formel verknüpft wenn ich die Datumzelle mit der Bezeichnung "heut" in eine Fo...
09.12.2008 08:53:21
Thread-ID: 1031245
3 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge

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
29
5
6
11
2
1
2
12
2
4
3
3
1
8
2
3
2
8
7
4
2
3
3
5
1