|
Guten Morgen liebeCommunity,
ich habe folgendeAufgabenstellung die ich als VBA Anfänger noch nicht meistern kann und hoffe auf tatkräftige Unterstützung
Ausgangssituation:
Eine Formulardatei die in A2 bis D2 mit Einträgen gefüllt wird.
Eine Gesamttabelle in der die Daten des Formulars auf knopfdruck forlaufend übertragen werden sollen ( je Knopddruck ein Datensatz)
Zwei separate Tabellen die den Namen A und B tragen
1. Frage: WIe kann ich die Daten fortlaufend in die Gesamttabelle übertragen und im Anschluss speichern?.
2. Frage: Wie kann ich von dem aktuellen Formular eine eseparate Exceldatei erzeugen die als Namen den Inhalt des Feldes B2 hat ? (Beispiel Im Feld B2 steht "X", dann soll die Datei erzeugt werden und "X" heissen)
3.Frage: WIe kann ich anhand des Eintrags in A2 die Datensätze von A2 bis D2 zusätzlich in die Tabelle A oder B eintragen, wenn im Feld A2 auch nur die Eintraäge "A" oder "B" eingetragen werden können?
4.Frage: WIe kann ich durch ein zusätzliches Datum und den eingetragenen Daten eine neue Tabelle erstellen in der die Daten monatlich abgelegt werden.
Beispiel:
Datensatz im Formular:
|
Gruppe |
Projekt |
Summe |
Datum |
|
A |
X |
15 |
15.06.2017 |
|
|
|
|
|
|
|
|
|
1. Daten werden in Gesamttabelle übernommen.
2. Formular wird als Datei mit dem NAmen "X" gespeichert und abgelegt. (Speichern unter)
3. Die Datenw erden zusätzlich in Tabelle A gespeichert.
4. Es wird auf Knopdfruck eine Tabelle erstellt , die den Namen "A Juni2017" trägt (gerne auch "A 31.06.2017")
Ob jemand von euch mir an dieser Stelle weiterhelfen könnte?
Dank im Voraus
Gruss
MaG
Bisheriges VBA Text:
Sub Makro1()
'
' Makro1 Makro
'
'
Range("A2:D2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Windows("Formulare.xlsm").Activate
Range("A2:D2").Select
Selection.Copy
Windows("Tabelle Gesamt.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yyyy"
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
|