Zeile aus Tabelle suchen um anschließend Datum und Text anfügen
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!
Antwort schreiben
Antwort 1 von Saarbauer vom 13.01.2022, 16:19 Options
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
Antwort 2 von finger59 vom 13.01.2022, 16:33 Options
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
Antwort 3 von Steffi75 vom 13.01.2022, 16:46 Options
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
Antwort 4 von nighty vom 13.01.2022, 17:26 Options
hi ^^
zeig mal deinen bisherigen code .-)
gruss nighty
Antwort 6 von finger59 vom 14.01.2022, 10:58 Options
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
Antwort 7 von finger59 vom 14.01.2022, 11:16 Options
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
Antwort 8 von Steffi75 vom 14.01.2022, 11:55 Options
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
Antwort 9 von Steffi75 vom 14.01.2022, 13:26 Options
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.
Antwort 10 von Saarbauer vom 15.01.2022, 11:08 Options
Hallo,
wollte mal die Dateien ansehen, aber es kommt die Meldung, dass diese bereits gelöscht sind
Gruß
Helmut
Antwort 11 von Steffi75 vom 15.01.2022, 13:04 Options
Hallo,
ja ich weiß, musste sie löschen.
Kann man mir dann trotzdem helfen mit dem Code?
Antwort 12 von finger59 vom 15.01.2022, 19:27 Options
Hi Steffi,
da ich noch vorher mal einen Blick auf Deine Dateien werfen konnte, kann ich die Reaktion von Deinem Vorgesetzten, die Dateien zu löschen, nicht verstehen. Ich gehe jedenfalls davon aus, daß es Dein Vorgesetzter war, der gesagt hat, daß Du die Dateien wieder löschen sollst.
Auf der einen Seite soll man eine Datei erstellen (mit evtl. nur einem Grundwissen) und wenn man dann an die eigenen Grenzen stößt, soll einem keine Hilfe von außen gewährt werden.
Schade....
Ich kann hier nur sagen, daß ich über dieses Forum in einigen Problemenfällen weitergekommen bin und beide Seite waren somit zufrieden. Schließlich wurden in der Datei ja keine Geschäftsgeheimnisse wie Original-Umsatzzahlen oder dergleichen angegeben.
Aber wie soll man Deine Anfrage so verstehen, wenn keiner wirklich weiß, welche Dateien Du bereits wie aufgebaut hast und wie der Arbeitsablauf bei der Erfassung bei Euch sein soll, wenn man die Dateien selber nicht vor Augen hat.
Allerdings muss ich Dir leider auch sagen, daß ich so nicht durchgestiegen bin, welche Datei was bewirken soll und welche Daten dort im einzelnen dann erfasst werden bzw. evtl. übertragen werden sollen.
Mit dem VBA-Code den Du hier hinterlegst hast, kann ich so leider überhaupt nichts anfangen und ich weiß jetzt auch nicht, wie das bei saarbauer, nighty und bei fedjo aussieht, da die sich mit VBA gut bis sehr gut auskennen (aus meiner Erfahrung).
Vielleicht kann ja mal nighty oder fedjo sich hier mal melden, ob sie die Dateien überhaupt gesehen haben und ob Sie Dir ohne Dateien (mit diesen wenigen Info zu was geschieht wann und wo) überhaupt helfen können.
In diesem Sinne... have a nice Day... LG Helmut
Antwort 13 von nighty vom 15.01.2022, 21:10 Options
hi all ^^
da das thema in einem anderen forum auch behandelt wird (crossposting) enthalte ich mich mal :-))
gruss nighty