Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Funktion zum Suchen und Ersetzen

VBA Funktion zum Suchen und Ersetzen
18.07.2022 09:34:13
Dennis
Hallo,
Ich habe folgende Aufgabe:
Auf Blatt 1 sind jeweils eine Zeile mit mehreren Daten und einem Datum (Bearbeitungsdatum)
Auf Blatt 2 ist eine "Bearbeitungsliste" in der alle Einträge auftauchen, deren Bearbeitungsdatum eine gewisse Zeit her ist.
Sobald das passiert, werden die Daten vom Anwender geprüft und das Datum auf Blatt 1 muss manuell geprüft werden.
Normalerweise sind es mehrere Anwender die ihre Daten auf Blatt 1 eingeben, aber nur ein Anwender der auf Blatt 2 regelmäßig die Daten prüft.
Jetzt soll der Anwender, der die Prüfung macht, einfach einen Button bekommen, der auslöst, dass alle Zeilen auf Blatt 1, die gerade noch in Blatt 2 auftauchen, das Datum durch das heutige Datum ersetzt bekommen. Somit wäre Blatt 1 wieder aktuell und der Aufwand verringert sich ein wenig.
Ist das mittels VBA realisierbar?
Vielen Dank!
Gruß
Dennis
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Funktion zum Suchen und Ersetzen
18.07.2022 10:55:10
MCO
Hallo Dennis!
Klar ist das machbar. Mit den schmalen Angaben, die du lieferst ist es aber nur pauschal möglich zu antworten.
Der Aufbau des Codes sieht als Ansatz wie folgt aus.

sub Datum_ersetzen()
sheets(2).select
For z = Anfangszeile  to endzeile
set gef = sheets(1).cells.find (what:=cells(z,spalte mit eindeutigem Suchbegriff),lookin:=xlvalues, lookat:=xlvalues
if not gef is nothing then
sheets(1).cells(gef.row, datumsspalte) = sheets(2).cells(z, datumsspalte)
set gef = nothing
end if
next
end sub
Viel erfolg!
Gruß, MCO
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige