Office: Werte über UserForm in Datenbank suchen und ersetzen bzw. ändern

Moin zusammen
Ich nehme das Thema erneut auf, da ich hier im Forum noch nicht die richtige Lösung für mein "ähnliches" Problem gefunden hab.

Ev. könnt ihr mir ja weiterhelfen bzw. an die Richtige stelle lotsen!?

Ich erstelle via UserForm eine Tabelle mit Personallücken;
zeitnah und jeden Tag kommen neue Einträge ein, da gibt es auch immer wieder Nachträge bzw. müssten einige Einträge abgeändert werden.

Ich verzweifle daran, wie ich es via VBA hin kriege, die Zeile zu suchen die abgeändert werden soll.
Kurz gesagt.
Ich suche in Spalte B nach einem Datum (z.B. 12.07.2019) und in Spalte C den Namen der Station wo die Lücke entstand (z.B. IMED) beides sind (sollten in Kombination nur einmal in der Liste sein bzw. auftauchen.)
Diese "gefundene" Zeile soll danach angepasst werden, ohne einen neuen Eintrag in die Liste zu schreiben.

Ich hoffe hier Hilfe zu finden, ich kann bei bedarf auch eine Beispielmappe hochladen.

Danke im voraus. liebe Grüsse
Waldbart

 

Hi,

Möglichkeit 1: laufe in einer Schleife über alle Einträge und prüfe dabei, ob in B das betreffende Datum und in C die Stationsbezeichnung steht

Möglichkeit 2: benutze den Autofilter in Spalte B und C

 

Hi Beverly
Danke für deine Ideen.
Ich dachte ich könnte es via die .find Methode machen habe dazu für B und für C einen Range angegeben und diese Loopen lassen bis er beide Einträge auf der Selben Zeile findet.
Jedoch klappt dies nicht ganz.

Code:

Momentan gib er mir den Fehler 91: Objektvariable oder With-Objektvariable nicht festgelegt an, beim Debuggen zeigt er mir die "If rngStation.Range ..... Zeile an.

vlt. übersehe ich auch als Anfänger einiges...*upps *tongue.gif*

 

Hallo,

ändere mal so:

Code:

Und du musst der Variablen rngStation natürlich eine Zelle/einen Bereich zuweisen damit Excel weiß wohin die Reise geht.

 

Hi Nepumuk
ändert leider nichts, gleicher Laufzeitfehler und Zeile beim Debuggen.
Gruss

 

Hallo,

ist doch klar, rngStation ist keine Zelle zugewiesen. Sprich die Variable hat den Wert Nothing. Daher auch der Fehler:

Objektvariable nicht festgelegt

 

Hab ich auch gleich bemerkt,
hab nun die rngStation mit einem Set = definiert.

Code:

aber der Fehler kommt immer noch...

 

Hallo,

du solltest mit:

Code:

Prüfen ob dein Suchbegriff auch gefunden wurde. Ansonsten hat die Variable immer noch den Wert Nothing.

Zudem solltest du das .Rows bei den Find-Methoden löschen, du willst ja eine einzelne Zelle und nicht eine ganze Zeile.

 

Hm... Stimmt...

Ich nehme an die
Code:

Zeile müsste noch vor der "Do- Funktion" platziert werden, damit Excel auch weiss was es im Do alles anstellen soll!?

bez. den .Rows, möchte ich ja in den Columns D-E die Einträge ändern können.
Hab ich da was falsch verstanden!
Kann ich jetzt beim .Find nur die Zelle Suchen muss und anschliessend mir die .Row ausgeben lassen, um damit weiter zu arbeiten?

 

Ich Danke euch auf jeden fall für eure Hilfe, Ihr habt mich auch schon weiter gebracht, aber es ist noch nicht ganz gelöst.

Code:

Jetzt gibt er mir den Fehler an der "Loop While" Zeile an. Ich verstehe nicht mit welcher Variable Excel nicht weiter arbeiten kann, weil sie nicht definiert sein Soll!?!?

Könnte es sein, weil Excel nicht weiss wie es mit der Gefunden Zellen weiter geht?