Tabelle füllen aus bestimmten Feldern
30.04.2015 09:32:24
Ralf
für mich unlösbar, für die anwesenden Experten wahrscheinlich eine Denksportaufgabe für "vorm Frühstück":
Ich habe eine Arbeitsmappe "Zeiterfassung.xlm", bestehend aus den Arbeitsblättern "Zeiterfassung" und "AZ".
Im Tabellenblatt "Zeiterfassung" relevante Zellen:
G7 (Namenfeld - wird per Dropdown ausgefüllt)
G10 (Uhrzeit KOMMT)
G13 (Uhrzeit GEHT)
I7 (Datum - wird automatisch eingesetzt)
Und ein Button, der dafür sorgt, dass die Datei an einem vordefinierten Ort ohne nachfragen gespeichert wird. Der muss wahrscheinlich für meine Frage auch verändert werden. Momentaner Code:
Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs "G:\Teiledienst\AZ\" & Range("G7").Value & Range("I7").Value & Range("H45" _
).Value & ".xls"
Application.Quit
End Sub
Im Tabellenblatt "AZ" habe ich sechs Tabellen erstellt, die sich lediglich im Feld "Name" unterscheiden.
Die Namen der sechs Mitarbeiter befinden sich in den Zellen B3, J3, R3, B42, J42, R42.
In der jeweils darunterliegenden Tabelle (als Beispiel nur für einen Mitarbeiter) soll in die Bereiche "Datum" (A8-A38), "Kommt" (C8-C38) und "Geht" (D8-D38)der Wert aus den o.a. Zellen des Tabellenblatt "Zeiterfassung" eingetragen werden. Welche Tabelle gerade beschrieben wird, soll automatisch durch den Abgleich der Zelle "G7" aus dem Tabellenblatt "Zeiterfassung" und den Namensfeldern (B3, J3, R3, B42, J42, R42) aus Tabellenblatt "AZ" entschieden werden.
Befüllung der Tabelle sollte über den vorhandenen Button erfolgen, und zwar logischerweise BEVOR gespeichert und geschlossen wird.
Klingt etwas wirr, aber ich weiß nicht, wie ich das besser beschreiben soll.
Wer kann helfen?
Danke vorab und Gruß
Ralf
