Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren und löschen mit Datumseingabe

Forumthread: Kopieren und löschen mit Datumseingabe

Kopieren und löschen mit Datumseingabe
16.07.2007 21:15:00
chris
Hallo Leute !
Ich habe eine Datei mit unmengen von zeilen A2-G3000. Ich will nun mittels VBA code jeweils eine zeile, wo ich das Datum (H2-H3000) eingebe, in eine andere Datei (Name: Erledigt) kopieren und auf dieser Datei (Name: Übersicht) soll dies Zeile gelöscht werden. Es sollte dann noch nachgefragt werden: wollen Sie wirklich löschen ?"
Könnt Ihr mir helfen.
Danke im voraus
chris

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren und löschen mit Datumseingabe
16.07.2007 22:02:00
Chaos
Servus,
vielleicht entspricht das deinen Vorstellungen/in das Tabellenmodul, wo deine Werte drin stehen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As String
Dim r As Integer
If Not Intersect(Target, Range("H2:H3000")) Is Nothing Then ' Eingabebereich
If IsDate(Target) Then ' Abfrage, ob Datum
Application.ScreenUpdating = False
n = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Christian\Desktop\Erledigt.xls" ' _
Hier dein Pfad
With Workbooks(n)
r = Target.Row
nachricht = MsgBox("Möchten Sie die Zeile wirklich löschen ?", vbYesNo) ' abfrage,  _
ob löschen
If nachricht = vbYes Then ' bei ja löschen und kopieren
.Sheets(1).Range("A" & r & ":G" & r).Copy Destination:=Workbooks("Erledigt.xls"). _
Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
.Sheets(1).Range("A" & r & ":G" & r).Delete
Else
Target.ClearContents
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True ' bei nein nichts
Exit Sub
End If
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End If
End If
End Sub


Gruß
Chaos

Anzeige
AW: Kopieren und löschen mit Datumseingabe
16.07.2007 22:11:13
Chaos
Servus,
hier noch ne kleine Verbesserung, beim alten Code bleibt das Datum drin, hier nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As String
Dim r As Integer
If Not Intersect(Target, Range("H2:H3000")) Is Nothing Then
If IsDate(Target) Then
Application.ScreenUpdating = False
n = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Christian\Desktop\Erledigt.xls"
With Workbooks(n)
r = Target.Row
nachricht = MsgBox("Möchten Sie die Zeile wirklich löschen ?", vbYesNo)
If nachricht = vbYes Then
.Sheets(1).Range("A" & r & ":G" & r).Copy Destination:=Workbooks("Erledigt.xls"). _
Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
.Sheets(1).Range("A" & r & ":G" & r).Delete
Target.ClearContents
Else
Target.ClearContents
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
Exit Sub
End If
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End If
End If
End Sub


Gruß
Chaos

Anzeige
AW: Kopieren und löschen mit Datumseingabe
17.07.2007 18:50:43
chris58
Danke für die Antwort, doch bei mir klappt das nicht. Ich habe die Datei hier reingestellt. Es ist eine umgemodelte von hier, ein wenig abgeändert halt.
Kannst du mir nochmal helfen ........ wenn ja .. danke im voraus

Die Datei https://www.herber.de/bbs/user/44176.xls wurde aus Datenschutzgründen gelöscht


Anzeige
AW: Kopieren und löschen mit Datumseingabe
18.07.2007 13:33:24
Chaos
Servus,
jetzt geht's, hab's getestet. Du hast das Datum nicht in H eingegeben, sondern in G (hab ich geändert) und das Sheet ist nicht Sheet(1), sondern Sheet(3) oder Sheet("Übersicht"). Es wird nach Erledigt!tabelle1 kopiert.
https://www.herber.de/bbs/user/44206.xls
Du musst nur noch den Pfad anpassen, wo Erledigt.xls liegt.
Gruß
Chaos

Anzeige
AW: Kopieren und löschen mit Datumseingabe
18.07.2007 15:02:25
chris58
Danke für deine Mühe, es klappt wenn ich die Datei "Erledigt" nicht öffne.
2 Fragen hätte ich noch:
1. Kann man das ganze auch als als Tabellenblatt im gleichen Excel Tool haben ? und
2. Wie kann man die Formel umändern, das die Zeile zwar kopiert aber nicht gelöscht wird ?
Denn es geht so, ich habe die Datei mit den Typenscheinen, hier werden sie eingetragen
dann werden diese mit 90% Vorfinanziert und sollen noch nicht erledigt sein, sie kommen nur auf eine andere Liste. Wenn das Auto dann verkauft wird, dann sollen sie in die Erledigten kommen. Wäre nett wenn du mir helfen würdest, denn es ist immer ein Riesenaufwand mit zwei Listen und den Datums usw. zu jonglieren. Ich werde mir dann die Listen zusammenstoppeln und hoffe ich komm auf einen grünen Zweig. Jedenfalls danke nochmal, das erste hat mir shcon sehr geholfen.
lg
chris

Anzeige
AW: Kopieren und löschen mit Datumseingabe
18.07.2007 22:07:00
Chaos
Servus Chris,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As String
Dim r As Integer
If Not Intersect(Target, Range("G2:G3000")) Is Nothing Then ' Eingabebereich
If IsDate(Target) Then ' Abfrage, ob Datum
Application.ScreenUpdating = False
n = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\Documents and Settings\stadter\Desktop\Erledigt.xls" ' _
Hier dein Pfad
With Workbooks(n)
r = Target.Row
nachricht = MsgBox("Möchten Sie die Zeile wirklich löschen ?", vbYesNo) ' abfrage, _
ob löschen
If nachricht = vbYes Then ' bei ja löschen und kopieren
.Sheets("Übersicht").Range("A" & r & ":G" & r).Copy Destination:=Workbooks(" _
Erledigt.xls"). Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
Else
Target.ClearContents
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True ' bei nein nichts
Exit Sub
End If
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End If
End If
End Sub


Was meinst du mit im gleichen Excel-Tool ? In der selben Arbeitsmappe, z.B.: Sheets("Erledigt") ? Wenn du das meintest, dann ja. das geht ohne weiteres.
Habe dir im Code die Zeile, die fürs Löschen verantwortlich ist rausgenommen.
Gruß
Chaos

Anzeige
AW: Kopieren und löschen mit Datumseingabe
19.07.2007 18:14:42
chris58
Danke für deine Bemühung. Es klappt sehr gut, bin begeistert. Nun kann ich weitermachen und hoffe auf keine weiteren Probleme zu stossen. Nochmals danke
chris

AW: Kopieren und löschen mit Datumseingabe
19.07.2007 19:07:07
Chaos
Bitte
;

Forumthreads zu verwandten Themen

Datumseingabe in textbox
Winfried

Guten Tag
was muss ich in einer Textbox für einen Eintrag vornehmen
das in dieser immer das aktuelle Datum angezeigt wird.
Leider bin ich in VBA noch nicht so fit.
Über eine Hilfe von einem Profi würde ich mich sehr freuen.
Gruss
Winfried
05.11.2008 12:39:45
Thread-ID: 1021858
5 Beiträge
Prüfen ob Datumseingabe bringt Fehler
Sandra

Hi Leute
Habe da ein kleines problemchen!!
Wenn ich in TextBox48 kein Datum eingebe und auf Enter drücke zur TextBox49 kommt ein Debugfehler.
Gebe ich ein Datum ein ist alles i.O.
Nur wenn kein Datum eingegeben wird kommt der Fehler.
Private Sub TextBox48_Exit(ByVal Cancel...
11.03.2009 21:33:29
Thread-ID: 1059313
8 Beiträge
Datumseingaben vervollständigen
Christof

Hallo liebe Forumsteilnehmer,
folgendes Problem beschäftigt mich schon seit einer Weile.. ich komm nicht mehr weiter:
ich möchte eine Zahl, welche in eine Textbox eingegeben wird (egal in welchem Format.. ) in ein gültiges Datum umwandeln.. (vervollständigt mit aktuellen Angaben des Pro...
23.03.2009 14:15:07
Thread-ID: 1062899
12 Beiträge
Automatische Eintragung nach Datumseingabe
Hans

Hallo
Ich möchte in einer Zelle ein Datum eingeben. In einem Informationsblock soll nun automatisch ein Kreuz oder eine Zahl angezeigt werdenob es sich um ein Wochentag/Wochenende/ Feiertag oder Ferientag ( NRW ) handelt.
Ist so etwas unkompliziert möglich. Ich wäre für Eure Hilfe sehr...
31.03.2009 19:01:20
Thread-ID: 1065740
5 Beiträge
Anzeige
Datumseingabe erleichtern mit VB
udo-d

Hallo liebe Gemeinde,
könnte mir Jemand hierbei bitte aus der Patsche helfen.
möchte in irgend einer Zeile ein bestimmten Spalte
Sprich zB. mit Cells(activecell.row, 7) ... also alle Zellen in Spalte 7
in diese Zellen " Datümer " ( oh Gott , Datum in Plural ? ) eingeben kö...
23.09.2009 11:13:18
Thread-ID: 1104822
9 Beiträge
Vorjahresdatumseingabe
Gottfried

Hallo Leute,
ich will eine Auflistung verschiedener Rechnungen aus dem Jahr 2009 machen. Bei der automatischen Datumseingabe erscheint mir allerdings immer das aktuelle Jahr 2010. Ich mache folgende Vorgänge: Start-Zahl-Datum (erscheint ...2010) bzw. Start - Zahl - Benutzerdefiniert - trag...
20.01.2010 10:53:09
Thread-ID: 1131244
6 Beiträge
Datumseingabe in Textfeld erzwingen
Jusuf


Hallo Forum,ich möchte in ein TextBox in UserForm das Datum vereinfacht eingeben. Dafür habe ich in Recherche ein Makro gefunden. Es funktioniert ganz gut, soweit man das Datum richtig eingibt, etwa so: 280202, bekomme ich 28.02.02. Wenn ich aber eine Eingabe in der Form: 990202 eingebe,...
19.05.2002 14:53:57
Thread-ID: 121996
3 Beiträge
Inhalte einfügen über Datumseingabe
Franky

Hallo zusammen!
so, ich habe mit diesem Excelproblem mal wieder ein Leckerbissen für alle VBA-Freunde.
In meiner Beispiel-Tabelle: https://www.herber.de/bbs/user/75715.xlsm
soll nach dem Start des Makros eine InputBox angezeigt werden mit dem Hinweis:
("Bitte geben Sie das Datu...
14.07.2011 21:11:13
Thread-ID: 1222220
6 Beiträge
Datumseingabe in eine Zelle ohne Punkte
nsodw

Hallo,
ich habe eine Frage zu Excel 2007. Wenn man einen Datumswert in eine Zelle eingibt muss man zwischen die Zahlen Punkte setzen.
Kann man eine Zelle so formatiern, dass man nur noch die Zahlen eingeben kann; z.B. 11102011 anstatt der Datumseingabe von 11.10.2011.
Gruß
nsodw...
28.10.2011 17:04:37
Thread-ID: 1235827
9 Beiträge
Datumseingabe
Karsten

Hallo,
die Beispielmappe ist ein reduzierter Kalender, in dem beim Öffnen die aktive Zelle auf das heutige Datum springt. Durch eingabe in A1 läßt sich ein bestimmtes Datum ansteuern. Wenn es sich nur um z.B. 20 Tage nach dem heutigen Datum handelt, muß ich trotzdem die volle Eingabe machen...
01.01.1970 00:00:00
Thread-ID: 1240115
32 Beiträge
VBA: Problem mit Datumseingabe und -verarbeitung
Daniel

Hallo zusammen,
leider habe ich dafür keine passende Hilfe im Forum gefunden, deshalb möchte ich kurz mein Anliegen schreiben. Ich hoffe es ist verständlich:
'
' Ich habe in Spalte 1 Uhrzeitwerte von 00:00 bis 23:45
' Spalte 2 habe ich die Uhrzeitwerte mit der Formel ""=VERKETTE...
08.01.2013 13:55:13
Thread-ID: 1293271
4 Beiträge
Datumseingaben funktionieren nicht mehr
Matthias

Hallo zusammen,
ich habe folgendes Problem: Ich wollte eine einfache Monatsübersicht erstellen. Ich gebe als in einer Zelle ein Datum ein 01.03.2014 z.B. A2 und in die Zelle darunter =A2+1. Normalerweise müßte dann automatisch 02.03.2014 erscheinen. Ich erhalte als Antwort #Wert!....
W...
22.03.2014 15:08:18
Thread-ID: 1354476
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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