8
VBA suchen und kopieren Anwesenheitsliste
Hallo Zusammen,
wie kann ich diese Anwesenheitsliste...
... gegen die Datenbank prüfen und das Datum des Anwesenden (Nr.) zur jeweiligen Schulung reinschreiben.
Ich müsste ja prüfen, welche Schulungsnummer in der Anwesenheitstabelle eingetragen ist
und Spalte A eine Range prüfen ob die ungleich Leer sind bzw. durchlaufen wo Ausweisnummern eingetragen sind.
Dann müsste ich die Ausweisnummer in der Datenmatrix suchen und dort zur jeweiligen Schulung
das Datum eintragen.
Vielleicht kann mir jemand weiterhelfen...
MfG
Florian86
wie kann ich diese Anwesenheitsliste...
... gegen die Datenbank prüfen und das Datum des Anwesenden (Nr.) zur jeweiligen Schulung reinschreiben.
Ich müsste ja prüfen, welche Schulungsnummer in der Anwesenheitstabelle eingetragen ist
und Spalte A eine Range prüfen ob die ungleich Leer sind bzw. durchlaufen wo Ausweisnummern eingetragen sind.
Dann müsste ich die Ausweisnummer in der Datenmatrix suchen und dort zur jeweiligen Schulung
das Datum eintragen.
Vielleicht kann mir jemand weiterhelfen...
MfG
Florian86
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 551337
Url: https://administrator.de/contentid/551337
Ausgedruckt am: 19.11.2024 um 17:11 Uhr
8 Kommentare
Neuester Kommentar
Moin,
ich würde bei so etwas erstmal davon ausgehen, dass Menschen und Maschine damit arbeiten sollen.
Das Problem ist meiner Meinung nach dann, dass so, wie Maschinen am besten mit Daten umgehen können, Menschen diese meistens nicht mehr so doll lesen können.
Ergo:
Ich würde, wenn ich die obere Tabelle als Eingabeformular verstehen soll, in einer weiteren Tabelle die eingegebenen Daten maschinenkonform aufbereiten.
Dasselbe gilt auch für die zweite Tabelle.
Wenn Du das nämlich machst, holst Du Dir nicht das Leben auf der Suche nach einem geeigneten Algo, sondern läufst zeilen- und spaltenweise durch.
ich würde bei so etwas erstmal davon ausgehen, dass Menschen und Maschine damit arbeiten sollen.
Das Problem ist meiner Meinung nach dann, dass so, wie Maschinen am besten mit Daten umgehen können, Menschen diese meistens nicht mehr so doll lesen können.
Ergo:
Ich würde, wenn ich die obere Tabelle als Eingabeformular verstehen soll, in einer weiteren Tabelle die eingegebenen Daten maschinenkonform aufbereiten.
Dasselbe gilt auch für die zweite Tabelle.
Wenn Du das nämlich machst, holst Du Dir nicht das Leben auf der Suche nach einem geeigneten Algo, sondern läufst zeilen- und spaltenweise durch.
Range.Find method (Excel) ist dein Freund.
Und mit Range.Offset dann die Ausgabezelle die du mit "Range.Find" gefunden hast um deine gewünschte Schulung nach rechts verschieben, dort die Daten reinschreiben fertsch.
Und mit Range.Offset dann die Ausgabezelle die du mit "Range.Find" gefunden hast um deine gewünschte Schulung nach rechts verschieben, dort die Daten reinschreiben fertsch.
das hat super funktioniert Danke....
Jetzt stehe ich aber leider vor dem Problem das ich die Zellen der Spalte A durchlaufen will und die Werte dann in die Datenmatrix schreiben möchte. Im Code beziehe ich mich immer noch auf A4, da ich nicht weis wie ich das machen muss.
Jetzt stehe ich aber leider vor dem Problem das ich die Zellen der Spalte A durchlaufen will und die Werte dann in die Datenmatrix schreiben möchte. Im Code beziehe ich mich immer noch auf A4, da ich nicht weis wie ich das machen muss.
Sub copy_data()
Dim ausweis As Range
Dim schulungsnummer As Range
Dim datum As Range
Set ausweis = Worksheets("Anwesenheit").Range("A4")
Set schulungsnummer = Sheets("Anwesenheit").Range("B1")
Set datum = Sheets("anwesenheit").Range("B2")
If schulungsnummer = "" Then
MsgBox "Schulungsnummer eingeben"
Exit Sub
End If
For Each c In Sheets("anwesenheit").Range("A4:A500")
If schulungsnummer = "1" Then
Sheets("Datenbank").Activate
Cells.Find(what:=ausweis, LookIn:=xlFormulas).Activate
ActiveCell.Offset(0, 5).Activate
ActiveCell.Value = datum
End If
Next c
End SubIm Code beziehe ich mich immer noch auf A4, da ich nicht weis wie ich das machen muss.
In der Laufvariablen c hast du die aktuelle Zeile, damit kannst du mitc.Value
Hallo habs nun hin bekommen,
Sub copy_data()
Dim ausweis As Range
Dim schulungsnummer As Range
Dim datum As Range
Dim celladress As String
Set ausweis = Worksheets("Anwesenheit").Range("A4")
Set schulungsnummer = Sheets("Anwesenheit").Range("B1")
Set datum = Sheets("anwesenheit").Range("B2")
If schulungsnummer = "" Then 'Prüfung Schulungsnummer = Leer
MsgBox "Schulungsnummer eingeben" 'Wenn Leer Messagebox
Exit Sub
End If
For Each c In Sheets("anwesenheit").Range("A4:A500")
If schulungsnummer = "1" And c <> "" Then 'Prüfung welche Schulungsnummer
Sheets("Datenbank").Activate 'aktiviere Tabelleblatt "Datenbank"
Cells.Find(what:=c, LookIn:=xlFormulas).Activate 'suche nach Objekt "celladress" und aktiviere die Zelle
ActiveCell.Offset(0, 5).Activate 'springe 5 Spalten nach rechts
ActiveCell.Value = datum 'schreibe Datum aus Anwesenheitsliste
ElseIf schulungsnummer = "2" Then
Sheets("Datenbank").Activate 'aktiviere Tabelleblatt "Datenbank"
Cells.Find(what:=c, LookIn:=xlFormulas).Activate 'suche nach Objekt "ausweis" und aktiviere die Zelle
ActiveCell.Offset(0, 8).Activate 'springe 8 Spalten nach rechts
ActiveCell.Value = datum 'schreibe Datum aus Anwesenheitsliste
ElseIf schulungsnummer = "3" Then
Sheets("Datenbank").Activate 'aktiviere Tabelleblatt "Datenbank"
Cells.Find(what:=c, LookIn:=xlFormulas).Activate 'suche nach Objekt "ausweis" und aktiviere die Zelle
ActiveCell.Offset(0, 11).Activate 'springe 11 Spalten nach rechts
ActiveCell.Value = datum 'schreibe Datum aus Anwesenheitsliste
ElseIf schulungsnummer = "4" Then
Sheets("Datenbank").Activate 'aktiviere Tabelleblatt "Datenbank"
Cells.Find(what:=c, LookIn:=xlFormulas).Activate 'suche nach Objekt "ausweis" und aktiviere die Zelle
ActiveCell.Offset(0, 14).Activate 'springe 14 Spalten nach rechts
ActiveCell.Value = datum 'schreibe Datum aus Anwesenheitsliste
Else: Exit For
End If
Next c
End Sub
Wenn du jetzt noch die Schulungsnummer in den Offset einbaust kannst du dir die If Abfragen komplett sparen und somit die ganzen doppelten Codebestandteile 
jetzt bin ich raus ^^
Wie, bei einer einfachen Multiplikation 
?!
Vielleicht regt das deine Zellen ja etwas an
?!Vielleicht regt das deine Zellen ja etwas an
ActiveCell.Offset(0, 4 + ((schulungsnummer - 1) * 3)).Activate
