florian86
25.02.2020, aktualisiert am 21.04.2022
view1586
view8
0
Goto Top

VBA suchen und kopieren Anwesenheitsliste

gelöstFrageVB for ApplicationsEntwicklung
Hallo Zusammen,

wie kann ich diese Anwesenheitsliste...

anwesenheit

... gegen die Datenbank prüfen und das Datum des Anwesenden (Nr.) zur jeweiligen Schulung reinschreiben.

datenmatrix

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
ShareTeilen
Auf Facebook teilen Auf Twitter teilen Auf Reddit teilen Auf Linkedin teilen

Content-ID: 551337

Url: https://administrator.de/forum/vba-suchen-und-kopieren-anwesenheitsliste-551337.html

Ausgedruckt am: 23.12.2024 um 16:12 Uhr

8 Kommentare
Neuester Kommentar
Goto Top
beidermachtvongreyscull
beidermachtvongreyscull 25.02.2020 um 11:25:36 Uhr
Goto Top
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.
143127
Lösung 143127 25.02.2020 aktualisiert um 11:43:57 Uhr
Goto Top
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.
Florian86
Florian86 26.02.2020 um 13:05:19 Uhr
Goto Top
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.

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 Sub
143127
Lösung 143127 26.02.2020 aktualisiert um 14:04:39 Uhr
Goto Top
Im 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 mit
c.Value
auf den Inhalt der Zelle zugreifen.
Florian86
Florian86 26.02.2020 um 15:06:28 Uhr
Goto Top
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
143127
143127 26.02.2020 aktualisiert um 15:12:31 Uhr
Goto Top
Wenn du jetzt noch die Schulungsnummer in den Offset einbaust kannst du dir die If Abfragen komplett sparen und somit die ganzen doppelten Codebestandteile face-wink
Florian86
Florian86 26.02.2020 um 15:42:13 Uhr
Goto Top
jetzt bin ich raus ^^
143127
Lösung 143127 26.02.2020 aktualisiert um 16:23:37 Uhr
Goto Top
Zitat von @Florian86:

jetzt bin ich raus ^^
Wie, bei einer einfachen Multiplikation face-smile?!

Vielleicht regt das deine Zellen ja etwas an face-wink
ActiveCell.Offset(0, 4 + ((schulungsnummer - 1) * 3)).Activate
gelöstFrageVB for ApplicationsEntwicklung
Mehr von Florian86Florian86Res.Render HTML nur in plain TextFlorian86 - 1 KommentarFlorian86Node.js POST VerarbeitungFlorian86 - 7 KommentareFlorian86Der Vorgang ist für ein geschlossenes Objekt nicht zugelassenFlorian86 - 1 KommentarFlorian86Excel Formel Duplikate mit Filter entfernenFlorian86 - 8 Kommentare
Heiß diskutiert
NullcheckPortweiterleitung ist böse. tatsächlich? (Externzugriff auf Fritzbox)Nullcheck - 36 Kommentarem.sterZwei lokale Mailserver - Lösungsweg gesuchtm.ster - 30 KommentareSarekHLProblem mit SMB-Versionen?SarekHL - 24 KommentareMysticFoxDEIntel feuert Pat - Halleluja!MysticFoxDE - 22 KommentareMicitiEmpfehlung Hardware für Heim-NetzwerkMiciti - 22 KommentareJudgelgSharepoint Teams Kalender erstellenJudgelg - 21 KommentareVisuciusDevolutions Remote Desktop Manager - bin begeistert!Visucius - 15 KommentareBN2023Excel - Problem mit WENN-DANN Formel für eine VertretungsregelBN2023 - 15 KommentareGhent74Feste IP via DHCP im DHCP Bereich oder im statischen Bereich?Ghent74 - 14 KommentareHaralabosHilfe bei E-Mail-Analyse: Absender einer anonymen Nachricht herausfindenHaralabos - 13 KommentareDerWoWussteRDS-Host macht neuerdings nach 18 Sitzungen dichtDerWoWusste - 13 KommentareGhent74Zwei Router, ein SubnetzGhent74 - 13 Kommentare