Eingabewerte übertragen

[Peter_e]

Hallo

Ich bräuchte eure Hilfe.


Möchte gern eine Excel Übersicht mit einer Eingabe Arbeitsmappe.

In der Eingabe Mappe sollten Eingaben wie, wer hat teilgenommen wer hat bezahlt und wer hat verlohren eingetragen.
Anschließend sollten die Eingaben per Button in eine andere Arbeitsmappe Übersicht übertragen werden.
Die Eingaben in der Eingabe Mappe sollten wieder gelehrt werden damit man die nächste Eingabe vornehmen kann.
In der Übersicht Mappe sollte bei jeder Übergabe von der Eingabe Mappe die Werte entsprechen hochgezählt werden.

Genaueres siehe Bilder

Danke im voraus.

[WillWissen]

Hallo Peter,

da das auf VBA rauslaufen wird, kann ich dir nicht helfen. Allerdings möchte ich dir etwas Allgemeines nahebringen. Poste bitte keine Bildchen (ScrShots), denn niemand mag daraus eine Tabelle nachbauen. Zur Veranschaulichung hilft ein relevanter Tabellenausschnitt ( http://www.clever-excel-forum.de/thread-47.html ) oder eine Beispielmappe, die bei sensiblen Daten anonymisiert sein sollte, aber immer vom Aufbau her dem Original gleichen muss ( http://www.clever-excel-forum.de/thread-326.html )

Die Links führen zu entsprechenden Beiträgen, in denen du nachlesen kannst, was die Helfer benötigen.

[shift-del]

Hallo Peter

Man kann sich das Leben schwer machen oder man macht es so.

Arbeitsblatt mit dem Namen 'Tabelle1'

A

B

C

D

E

F

G

H

I

J

K

L

M

1

Zeitstempel

Name

T/B/A

Anzahl von T/B/A

Name

2

17.10.2016 14:45

Fritz

Teilgenommen

T/B/A

Max

Fritz

Josef

Maria

Nina

Norbert

Peter

3

17.10.2016 14:45

Max

Teilgenommen

Bezahlen

1

2

4

17.10.2016 14:45

Maria

Teilgenommen

Ausführen

1

1

1

5

17.10.2016 14:45

Josef

Teilgenommen

Teilgenommen

2

1

3

3

3

3

3

6

17.10.2016 14:45

Peter

Teilgenommen

7

17.10.2016 14:45

Norbert

Teilgenommen

8

17.10.2016 14:45

Nina

Teilgenommen

9

17.10.2016 14:45

Josef

Bezahlen

10

17.10.2016 14:45

Norbert

Ausführen

11

17.10.2016 14:59

Max

Teilgenommen

12

17.10.2016 14:59

Maria

Teilgenommen

13

17.10.2016 14:59

Josef

Teilgenommen

14

17.10.2016 14:59

Peter

Teilgenommen

15

17.10.2016 14:59

Norbert

Teilgenommen

16

17.10.2016 14:59

Nina

Teilgenommen

17

17.10.2016 14:59

Max

Bezahlen

18

17.10.2016 14:59

Peter

Ausführen

19

17.10.2016 15:25

Maria

Teilgenommen

20

17.10.2016 15:25

Josef

Teilgenommen

21

17.10.2016 15:25

Peter

Teilgenommen

22

17.10.2016 15:25

Norbert

Teilgenommen

23

17.10.2016 15:25

Nina

Teilgenommen

24

17.10.2016 15:25

Josef

Bezahlen

25

17.10.2016 15:25

Maria

Ausführen

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

[Peter_e]

Hallo,

Danke erstmal für euere Meldungen.
Ja man kann es einfach auch machen so hab ich jetzt und das ist zurzeit nicht das was ich mir vorstelle. 

Vielleicht kann mir da helfen

[WillWissen]

Hi Peter,

Ja man kann es einfach auch machen so hab ich jetzt und das ist zurzeit nicht das was ich mir vorstelle.
Vielleicht kann mir da helfen

dann erinnere ich an meinen Beitrag #2

[Peter_e]

Hallo,

Jetzt hab ich es fast, bräuchte nur noch ein kleines Makro.

Das Makro sollte beim click auf einen Button in der Tabelle 1 die Spalten A3:J7 kopieren.
Anschließend soll der die Werte in die Tabelle 2 einfügen,  die Werte in der Tabelle 1 sollen wieder geleert werden.
Bei erneuten click auf den Button sollte er die Werte jeweils unterhalb der bestehenden Werte in der Tabelle 2 auflisten und erweitern.

Wie kann ich das machen ?

Das Kopieren funktioniert schon mal.

----------------------------------------------------------------------------

Private Sub CommandButton1_Click()
If MsgBox("Ja, oder nein", vbYesNo) = vbYes Then
 Makro2
Else
End If

End Sub

-------------------------------------------------------------------------------

Sub Makro2()
'
' Makro2 Makro
'
'
    Range("A3:I7").Select
    Selection.Copy
    Sheets("Tabelle4").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Tabelle3").Select
    Range("C3:I7").Select
    Application.CutCopyMode = False
    Selection.ClearContents
   
 
   
End Sub