Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Erstellen einer Anwesenheitsliste in VBA
#1
Hallo zusammen,

nun ist mein Projekt dank der Hilfe von euch und zahlreichen Videos von Andreas Thehos fast beendet und dafür möchte ich mich nochmal bei euch allen bedanken. Ihr seid eine super Mannschaft 28.

Eventuell kann ich eure Hilfe noch einmal in Anspruch nehmen.
Ich möchte aus einer Liste mit Arbeitszeiten (Tabellenblatt Arbeitszeiten) die Spalten A,B,C und die jeweiligen Arbeitszeiten des aktuellen Tages (heute), in das Tabellenblatt Anwesenheit (A5Big Grin100)kopieren.
(es soll aber nur kopiert werden, wenn wirklich eine Arbeitszeit (z.B. 08: 16:30) im Blatt "Arbeitszeiten" eingetragen ist. Steht hier Urlaub, Frei, JAZ oder KO usw. soll nicht kopiert werden.)

Meine Datei habe ich angefügt, da man sich so am besten ein Bild machen kann was ich meine 25.

Danke an alle und Gruß Mario
to top
#2
Hallo Mario,

hier als Ereigniscode im VBA-Modul des Tabellenblatts "Anwesenheit".
"Passwort" für Aufheben und Setzen des Blattschutzes musst Du entsprechend ändern.

Code:
Private Sub Worksheet_Activate()
  Dim lngzeileQ As Long, lngzeileZ As Long, lngSpalteQ As Long
  Me.Unprotect "Passwort"
  Me.Range("A5:D100") = ""
  lngzeileZ = 4
  With Tabelle3
    lngSpalteQ = Application.Match(CDbl(Date), .Rows(10), 0)
    For lngzeileQ = 12 To .Cells(.Rows.Count, 1).End(xlUp).Row
      If Len(.Cells(lngzeileQ, lngSpalteQ).Value) = 11 Then
        lngzeileZ = lngzeileZ + 1
        Me.Cells(lngzeileZ, 1).Resize(, 3).Value = .Cells(lngzeileQ, 1).Resize(, 3).Value
        Me.Cells(lngzeileZ, 4).Value = .Cells(lngzeileQ, lngSpalteQ).Value
      End If
    Next lngzeileQ
  End With
  Me.Protect "Passwort"
End Sub

Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
Mario
to top
#3
Hallo Uwe,

ich bin begeitert, dass ist perfekt 23. Es funktioniert so wie ich mir das vorgestellt haben.
Vielen Dank für deine schnelle Hilfe und ein schönes Wochenende.

VG Mario
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Zeitstrahl erstellen aus einer Datenquelle Jan4President 6 115 19.11.2016, 10:41
Letzter Beitrag: Jan4President
  Erstellen einer Kalkulationstabelle cetrro 12 299 05.10.2016, 19:50
Letzter Beitrag: cetrro
  Aus einer Tabelle mehrere Tabellen erstellen caaalilooove 6 268 22.09.2016, 12:23
Letzter Beitrag: Rabe
  Erstellen einer dyn. Liste aus mehreren Tabellenblättern Tim1711 3 205 22.08.2016, 14:28
Letzter Beitrag: Tim1711
  Gestapelte Säulen aus einer Bilanz erstellen luks 1 175 08.07.2016, 13:04
Letzter Beitrag: shift-del
  Erstellen einer Bedienoberfläche CCExcler 4 360 31.03.2016, 18:21
Letzter Beitrag: shift-del
  Hyperlinks mit einer Zahlenreihe automatisch erstellen claus18 3 873 12.08.2015, 12:36
Letzter Beitrag: GMG-CC
  Kopie einer Datei erstellen Esplugues 13 2.495 09.12.2014, 09:49
Letzter Beitrag: Esplugues

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste