Clever-Excel-Forum

Normale Version: Eingabewerte übertragen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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.
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.
Hallo Peter

Man kann sich das Leben schwer machen oder man macht es so.
Arbeitsblatt mit dem Namen 'Tabelle1'
 ABCDEFGHIJKLM
1ZeitstempelNameT/B/A  Anzahl von T/B/AName      
217.10.2016 14:45FritzTeilgenommen  T/B/AMaxFritzJosefMariaNinaNorbertPeter
317.10.2016 14:45MaxTeilgenommen  Bezahlen1 2    
417.10.2016 14:45MariaTeilgenommen  Ausführen   1 11
517.10.2016 14:45JosefTeilgenommen  Teilgenommen2133333
617.10.2016 14:45PeterTeilgenommen          
717.10.2016 14:45NorbertTeilgenommen          
817.10.2016 14:45NinaTeilgenommen          
917.10.2016 14:45JosefBezahlen          
1017.10.2016 14:45NorbertAusführen          
1117.10.2016 14:59MaxTeilgenommen          
1217.10.2016 14:59MariaTeilgenommen          
1317.10.2016 14:59JosefTeilgenommen          
1417.10.2016 14:59PeterTeilgenommen          
1517.10.2016 14:59NorbertTeilgenommen          
1617.10.2016 14:59NinaTeilgenommen          
1717.10.2016 14:59MaxBezahlen          
1817.10.2016 14:59PeterAusführen          
1917.10.2016 15:25MariaTeilgenommen          
2017.10.2016 15:25JosefTeilgenommen          
2117.10.2016 15:25PeterTeilgenommen          
2217.10.2016 15:25NorbertTeilgenommen          
2317.10.2016 15:25NinaTeilgenommen          
2417.10.2016 15:25JosefBezahlen          
2517.10.2016 15:25MariaAusführen          
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg
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
Hi Peter,

(19.10.2016, 19:37)Peter_e schrieb: [ -> ]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
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