Datum eintragen - Datensatz archivieren

Hallo Zusammen,

da meine VBA-Kenntnisse nur mit Makrorekorder beschränken benötige ich Hilfe bei den nächsten beschriebenen Aufgaben.
Ich habe eine Tabelle mit Daten aus einem Generator aus dem Internet gefüllt. In einem Sheet habe ich so eine Art Formular gebaut vorrangig, um die Daten zu sehen. Aber ich möchte von der Sicht aus zwei Sachen machen können. Einmal in der Zeile wo der Datensatz sich befindet ein Datum und Uhrzeit eintragen lassen. Das heißt Datum und Uhrzeit von jetzt eintragen lassen in deine bestimmte Spalte. Das möchte ich gerne machen, ohne das Formular zu verlassen.

Bestimmte Datensätze möchte ich auch aus dem "Formular" Ansicht archivieren. Es sind drei Sheets. Daten, DatenArchiv und View.

ich habe schon die Kommentare für die zwei Makros geschrieben. Es fehlt nur noch der richtige Code.

https://www.herber.de/bbs/user/162334.xlsm

Sub DatunmundUhrzeit_Klicken()



' Aktionen vom Makro nach laienansicht





' Display ausschalten (Excel soll nicht sichtbar zum Sheet Daten springen





' Suche die Position, die hier angezeigt ist





' gehe zu Spalte K und trage dort in der gesuchten Position Datum, Uhrzeit vom Jetzt

' Format: TT.MM.JJJJ HH:MM:SS





'Display einschalten





' wenn Fehler auftaucht, ignorieren - das war irgendetwas mit Fehler abfangen, aber ich weiß nicht, was es war.







End Sub







Sub ArchivierenundDatum_Klicken()



' irgendwelche Speicherreservierungskram, der höchstwahrscheinlich vorab bestimmt wird :)





' Display ausschalten (Excel soll nicht sichtbar zum Sheet Daten springen





' Ich bräuchte bitte die Möglichkeit, dass ich später weitere Spalten leicht eintragen kann, dass sie mitkopiert, werden

' Ich weiß nicht, was besser oder Makrotechnich angebracht ist, ob man mit den Spalten Name arbeitet oder mit dem Spalten

' Buchstabe arbeitet.





' Prüfen, ob die Übertragene Daten identisch sind.







' Daten entfernen ohne, dass die Zeile gelöscht wird.







' Tabelle nach dem Datum in der Spalte k (Eintragungsdatum) sortieren







' gehe zu Tabelle [DatenArchiv] Spalte L (ArchivDatumUhrzeit) und trage dort in der gesuchten Position Datum, Uhrzeit vom Jetzt

' Format: TT.MM.JJJJ HH:MM:SS





'Display einschalten





' wenn Fehler auftaucht, ignorieren - das war irgendetwas mit Fehler abfangen, aber ich weiß nicht, was es war.





End Sub

vielen, vielen Dank im Voraus für die Hilfe.

liebe Grüße, Lilli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DatumundUhrzeit_Klicken() Dim r With Sheets("Daten").ListObjects("daten.tbl") r = Application.Match(Range("D9"), .DataBodyRange.Columns(1), 0) If Not IsError(r) Then .DataBodyRange.Cells(r, 9) = Now End If End With End Sub

Sub ArchivierenundDatum_Klicken() Dim r, rngZiel As Range, lr As ListRow With Sheets("datenarchiv").ListObjects(1) For Each lr In .ListRows If Application.CountA(lr.Range) = 0 Then Set rngZiel = lr.Range.Cells(1) Exit For End If Next lr End With If rngZiel Is Nothing Then With Sheets("datenarchiv").ListObjects(1) Set rngZiel = .ListRows.Add.Range.Cells(1) End With End If With Sheets("Daten").ListObjects(1) r = Application.Match(Range("D9"), .DataBodyRange.Columns(1), 0) If Not IsError(r) Then .DataBodyRange.Cells(r, 1).Resize(, 9).Copy With rngZiel .PasteSpecial xlPasteValues .Offset(, 9) = Now End With .DataBodyRange.Cells(r, 2).Resize(, 8).ClearContents End If End With End Sub

Hallo Onur,

' Display ausschalten (Excel soll nicht sichtbar zum Sheet Daten springen
mit Display ausschalten habe ich mal in einem Code gesehen und dachte, dass es sinnvoll wäre.

' Suche die Position, die hier angezeigt ist ??? Wie ? Ich dachte "nicht sichtbar" ???
Das stimmt es soll im Hintergrund das alles machen. Mir geht es nur darum, dass das "Formular"-Ansicht nicht verlassen muss. Vielleicht habe ich das ungünstig dargestellt. Danke für den Hinweis und die Anmerkung.

' gehe zu Spalte K und trage dort in der gesuchten Position Datum, Uhrzeit vom Jetzt - Du musst nicht irgendwohin "gehen", um da was einzutragen. Das macht nur der Makrorecorder, da er das aufzeichnet, was du gerade machst.
Und wozu dauernd Display aus- und einschalten? Excel arbeitet so schnell, dass du es eh nicht mitkriegst. Macht nur Sinn, wenn du ein paar Tausend Zellen beschreibst/änderst...

das ist einfach, wie ich mir im Kopf vorstelle. Vielleicht ist das alles sehr laienhaft ausgedruckt. Ich weiß nicht, wie das alles im Hintergrund funktioniert. Deshalb bin ich hier und suche Hilfe. :)

Wenn weitere Fragen da sind, beantworte ich sie gerne nach bestem Wissen und Verständnis.

noch mal vielen Dank für Dein Feedback.

Viele Grüße, Lilli

Beliebteste Forumthreads (12 Monate)

Datum eintragen - Datensatz archivieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datum eintragen - Datensatz archivieren

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread