Eingabemaske ändern, Daten übertragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zeile_kopieren() 'Bereich kopieren Sheets("Auswertung").Range("B1:B45").Copy 'einfügen in erste freie Zeile in ausgabe Sheets("Tabelle1").Select Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=True 'Kopiermodus beenden Application.CutCopyMode = False Sheets("Auswertung").Select Range("B1:B9,B11:B45").Select Range("B11").Activate Application.CutCopyMode = False Selection.ClearContents Range("B1").Select End Sub

Lieber Piet,
recht herzlichen Dank für Dein Supertolle Lösung und ja, Du hast alles so gemacht wie ich es mir tatsächlich gewünscht hatte.
Ich habe soeben alles mal getestet und es läuft. Ein paar Kleinigkeiten wären aber noch von Vorteil, da aus meiner Sicht, das Ein- & Übertragen der Daten irgendwie schwer bedienbar ist. Natürlich für mich kein Problem, aber es gibt auch welche die gerade mal Unfallfrei einen PC hochfahren können :-)
Auch hat sich mittlerweile die Zeilenanzahl geändert, ist ja für einen Kollegen dem auch ständig neues einfällt. Die Daten in den roten Zellen sind Formeln und sollen erhalten bleiben.
Aber beide Probleme kann ich aufgrund Deiner Wahnsinnigen Vorgaben selber umsetzen. Bleibt nur noch ein letztes Problem bzw. Vereinfachung der Handhabung der Userform.
In der Userform soll diese beim Klicken auf die Schaltfläche Anzahl übernehmen die Daten in die Tabelle eintragen, prüfen ob zu jeder Anzahl auch eine Anzahl angegeben wurde und automatisch nach dem Übertragen der Daten, die Userform wieder schließen.
Wenn man die Daten aus der Userform in die Spalte C überträgt und schließt, sind ja alle Daten weg.
Ist es möglich dies so zu gestalten das der User im Falle eines erneuten öffnen der Userform seine eigegebenen Daten noch drinnen stehen und erst beim Finalen übertragen nach Tabell1 diese gelöscht werden?
Da es ja viele Anzahls gibt würde es mir schon genügen wenn Du mir dies anhand von 2 Anzahls im Code einfügen könntest, den Rest kann ich hoffentlich selber erweitern.
Zum Schluss nochmals tausend Dank an Dich für die Spitzenhilfe und Deine Beiträge. Zum anderen Beitrag kann ich aber echt nur sagen, ich war nie unhöflich und machte keinen Stress, den haben die 3 Mitredner selbst produziert. Und Dich werde ich sicherlich in keine Diskussion mit hinein ziehen, bist ein Super Typ und nicht voreingenommen wie andere.
Dann wünsche ich Dir und Deinen lieben noch einen schönen, und vor allem sonnigen, Sonntag und hoffe, Du kannst mir noch weiter helfen.
MfG Bernd

Hallo Bernd
ich habe gerade gesehen das es vielee Antworten auf meine AW gibt, sie aber noch nicht gelesen. Mache ich nachher in Ruhe.
Ich freue mich über einige grundlegende technische Verbesserungen auf Grund deiner Nachricht, die dir sicher gefallen werden. Die Anzahl aus der Tabelle werden jetzt beim Start der UsrForm wie gewünscht mit geladen. Bei Übernahme der Werte in die Tabelle wird die UserForm geschlossen.
Neu ist: - wenn der Mitarbeiter seine Daten wie Team Name, Name1 use. VORHER im Eingaben Bereich C1:C15 angibt wird beim Schliessen der UserForm das Kopier Makro automatisch mit ausgelöst. Angezeigt durch MsgBox das diese Eingabe übertragen wurde. Dazu prüfe ich die Anzahl der Eingaben im Feld C1:C15 als Summe, max. 15, und gibt eine Meldung aus wenn die Anzahl zu wenig ist. Im Copy Modul findest du Const TMin = 10 - d.h., es müssen mindestens 10 Felder ausgefüllt sein!!
Basis Adressen + TMin = 10
Neu ist im Copy Modul das du dort mit Public Const MusterAdr1 = "A16", MTABereich = "C1:C15", Auswahl12 = "C21:C22", Auswahl39 = "C34:C40" sog. "Basis Adressen" findest. Was sind Basis Adressen? - Es sind Variable die jetzt im Makro bei Range vorkommen. Du schriebst das man gerne mit der Datei spielt, und vielleicht Zeilen aendern oder erweitern will. Dann müsstest du alle Codes durchsuchen um Adressen oder Cells Indexe zu aendern. - Schau dir dazu den unteren Code Ausschnitt an. Falls ihr auf die Idee kommt Zeilen zu verschieben brauchst du nur in der Const Anweisung die Adresse für "Anzahl 1-2" zu aendern, über Cells Index wird der ganze Bereich verschoben!
Weil du dich für VBA interessierst wirst du schnell erkennen wie einfach man damit Programmieren kann, wenn exakte Adressen noch nicht feststehen. Oder man nachher was veraendern muss. Man schreibt sie mit Public = Öffentlich in ein Modul, und sie gelten für alle Module und die UserForm. - Diese Neuerungen waren mir jetzt wichtiger wie die ASWs im Thread. Bitte zuerst noch mal im Beispiel testen ob der Code Einwandfrei laeuft. Man kann sich ja versehentlich selbst Fehler einbauen.
https://www.herber.de/bbs/user/131916.xlsm -
mfg Piet

  With Worksheets("Auswertung")
With .Range(Auswahl12)   'Anzahl 1-2  "A21"
TextBox1.Text = .Cells(1, 3).Value
TextBox2.Text = .Cells(2, 3).Value
End With

Beliebteste Forumthreads (12 Monate)

Eingabemaske ändern, Daten übertragen

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eingabemaske ändern, Daten übertragen

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread