Zeile aus Tabelle suchen um anschließend Datum und Text anfügen

Question

Hallo,

habe eine Tabelle in der stehen defekte Maschinen, der Defekt und das Datum an dem der Defekt festgestellt wurde. Alle Maschinen haben mehrere Defekte. Nun mein Problem, über ein Formular soll eingegeben werden welcher Fehler an welcher Maschine repariert worden ist und wann. Wie finde ich jetzt die defekte Maschine und den speziellen Fehler, der repariert worden ist. Es wird meist nur 1 Fehler repariert, quasi am Fließband.

Die Maschinen sind immer die gleichen im Bestand, sind in einer anderen Tabelle von 0 - 2000 nummeriert.
Hab schon mit VBA angefangen aber es kommen ständig Fehlermeldungen.

Kann mir jemand von euch helfen!

Answer 1

hallo,

wahrscheinlich nur per Makro zu machen, aber dazu wäre der Aufbau der Tabelle interessant.

Kannst du eine Beispieltabelle zur verfügung stellen?

Gruß

Helmut

Answer 2

Hi,

da ich den Aufbau Deiner Tabelle nicht kenne, frage ich einfach mal nach, warum Du nicht einfach den Filter auf die reparierte Maschine benutzt?

Dann könntest Du das Reparaturdatum noch dahinter schreiben und den behobenen Fehler.

Oder Du könntest über eine Verschlüsselung in einer Spalte auch noch filtern (z.B. 1=Maschine noch defekt; 2=Reparatur begonnen, aber noch kein Fehler gefunden; 3=Reparatur begonnen, Fehler gefunden, aber Ersatzteil fehlt noch; 4=Reparatur beendet)

Wenn Du eine VBA-Lösung unbedingt haben musst, so kann ich Dir wenig helfen, da meine Kenntnisse sehr bescheiden sind.

Generell gilt jedoch - es ist vorteilhafter, wenn Du mal eine Testdatei zur Verfügung stellen könntest, damit diejenigen, die Dir helfen möchten, schon mal wissen, was Du hast und wo welche Infos hinsollen bzw. herkommen.

In diesem Sinne.... have a nice Day... Gruß Helmut

Answer 3

Hallo,

klar stelle ich euch die Tabelle zur Verfügung nur wie?

@finger59, nein brauche nicht unbedingt einen VBA-Code, wie hast du das gemeint mit dem Filter, meine Fähigkeiten sind auch noch gering.

Hoffe ihr könnt mir helfen um mein Problem zu lösen!

Danke Steffi

Answer 4

hi ^^

zeig mal deinen bisherigen code .-)

gruss nighty

Answer 5

Hallo Steffi,
hier kannst du deine Tabelle uploaden:
http://www.file-upload.net/
und dem Forum dann die URL mitteilen.

Gruß
fedjo

Answer 6

Hi Steffi,

Deine Anfrage bzgl. der Datei reinstellen wurde von @fedjo bereits beantwortet (kostet ja auch nichts) und die anderen drei @saarbauer,@nighty und @fedjo könnten Dir sicherlich eine VBA-Lösung anbieten, die sicherlich konfortabler ist, wie die Möglichkeit des Filterns. Drum... Testdatei einfach mal reinstellen.

Deine Auswahl einer defefkten Maschine über das Filtern kannst Du so erreichen...

Markiere alle Überschriftbezeichnungen, die Du in Deiner Datei hast und gehe dann auf DATEI (Befehlsleiste) und wähle in dem erscheinendem Pull-Down-Menü Filter und dann Autofilter aus.

Jetzt werden rechts von der Überschriftenbezeichnungen ein kleines Dreieck mit der Spitze nach unten sichtbar.
Bei Anklicken eines Dreiecks bekommst Du ein neues Pull-Down-Menü mit folgenden Möglichkeiten angezeigt:
- Aufsteigend sortieren
- Absteigend sortieren
- Alle
- Top10
- Benutzerdefiniert
- alle vorhandenen Werte aus der ausgewählten Spalte
- Leere
- Nichtleere

Aus den vorhandenen Werten könntest Du nun die gesuchte Maschine heraussuchen und anklicken, so daß Dir die gesamte
Zeile zu der Maschine nur noch angezeigt wird.

Interessant könnte es hier z.B. auch sein... zeige mir alle reparierten Maschinen im Zeitraum 01.12. - 31.12. an. Dieses könnte man über benutzerdefiniert erreichen, da man dort die Funktionen größer; größer gleich usw... hat.
Oder z.B. zeige mir alle noch nicht reparierten Maschinen an....
Filter auf Datum der Reparatur und dort alle Leere auswählen. Dann würden alle Maschinen angezeigt, bei dem noch kein Reparaturdatum drinstehen...
Hier heißt es einfach... entdecke die Möglichkeiten des Filterns.

Falls Du dazu noch Fragen hast, so melde Dich einfach nochmal.

Den Autofilter bekommst Du so wieder aufgelöst....
Datei - Filtern - und Autofilter anklicken und die Dreiecke fallen weg und alle Daten erscheinen wieder in der bisherigen Reihenfolge (sofern natürlich nicht zwischendurch sortiert wurde).

In diesem Sinne... have a nice Day... Gruß Helmut

Answer 7

Hi...
kleiner Nachtrag zum Filtern.

Wenn man halt alle Überschriftenfelder markiert und dann das Filtern setzt, dann kann man auch mehrere Filter setzen....
z.B. es gibt eine Maschinenbezeichnung mehrmals, aber jeweils in unterschiedlichen Kostenstellen, so könnte man erst nach der Maschinenbezeichnung filtern und anschließend dann gezielt nach der Kostenstelle filtern, so daß die Auswahl sich wiederum verkleinern würde.

Wie schon geschrieben... entdecke die Möglichkeiten.... Gruß Helmut

Answer 8

Hallo an alle,

danke für eure Antworten, musste noch etwas anderes erledigen, deshalb meld ich mich erst jetzt. Werde die Tabelle hochladen, dauert noch ein Moment. Der VBA Code ist für eine Datenbank.

Tabelle "Fault" mit den defekte Maschinen, der Defekt und das Datum an dem der Defekt festgestellt wurde.
Mit 5Spalten:
1. mit den Maschinen heißt HelistatNumber
2. mit den Defekten heißt FaultTypeNumber
3. Datum
4. Repair, in dem soll nur ja für rep. stehen
5. RepairDate für das Reparaturdatum
Number ist die Nummer der Maschine aus dem Eingabeformular

Hier mal mein VBA-Code:

Private Sub Error24_Click()
Dim db As DAO.Database
Dim he As DAO.Database

Set db = Application.CurrentDb
Set he = db.OpenRecordset("SELECT * FROM Fault " & _
"WHERE Form!Number=Fault.HelistatNumber AND Fault.FaultTypeNumber= "Batterie leer oben" ")
he.Edit
he.Fields(3) = "ja"
he.Fields(4) = Form!EntryRunDate
he.Udate
he.Close
Set he = Nothing
db.Close
Set db = Nothing



End Sub

Bei dem Wort Batterie kommt die Fehlermeldung:
Fehler beim Kompilieren:
Erwartet Listentrennzeichen oder )
,

Funktioniert das so wie ich mir das gedacht habe, für Anregungen bin ich dankbar.

DANKE Steffi

Answer 9

Hallo,

so habe jetzt Beispieltabellen erstellt unter
http://www.file-upload.net/download-2159130/Heliostat.xls.html

http://www.file-upload.net/download-2159138/FaultType.xls.html

http://www.file-upload.net/download-2159139/Fault.xls.html

könnt ihr euch diese anschauen.

Answer 10

Hallo,

wollte mal die Dateien ansehen, aber es kommt die Meldung, dass diese bereits gelöscht sind

Gruß

Helmut