Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.
Clever-Excel-Forum › Office-Anwendungen › Excel v
Inhalt mehrer Textboxen in bestimmte Zellen schreiben

Thema geschlossen 
Baumstrukturmodus
Inhalt mehrer Textboxen in bestimmte Zellen schreiben
toto18 Offline
Benutzer
Registriert seit: 10.09.2018
Version(en): 2013
#1
03.11.2018, 18:04 (Dieser Beitrag wurde zuletzt bearbeitet: 03.11.2018, 20:25 von WillWissen. Bearbeitungsgrund: Codetags )
Schön Guten Abend Liebe Excel freunde,

Ich habe weit über Hundert Textboxen. wo einzeln Daten eingegeben werden und diese dann in bestimmte Zellen geschrieben werden. Bis her befülle ich die Zellen mit den jeweiligen bezug zur jeweiligen Textboxen einzeln.
Der Auslöser damit alle Textboxen Ihre Daten in das Tabellenblatt Kopieren, wird per Commandbutton ausgelöst. Der Kopiervorgang dauert nur leider ewig...... ein oder zwei mal ist Excel auch schon ab gestürzt.
Daher die frage, gibt es eine bessere bzw. Saubere Methode die Daten an die Zellen zu Übertragen ? 
Hier wär der Code, wie ich es bis her an die Zellen gebe. Vielleicht könnt Ihr mir ja helfen.
beste Grüße und Danke schon mal für eure Zeit.


Code:
Private Sub CB_Safe1_Click()

'Daten Produkte kopieren______________________________________________________________________________
Sheets("Materialkosten").Cells(10, 1) = TextBox91.Text
Sheets("Materialkosten").Cells(11, 1) = TextBox92.Text
Sheets("Materialkosten").Cells(12, 1) = TextBox93.Text
Sheets("Materialkosten").Cells(13, 1) = TextBox94.Text
Sheets("Materialkosten").Cells(14, 1) = TextBox95.Text
Sheets("Materialkosten").Cells(15, 1) = TextBox96.Text
Sheets("Materialkosten").Cells(16, 1) = TextBox97.Text
Sheets("Materialkosten").Cells(17, 1) = TextBox98.Text
Sheets("Materialkosten").Cells(18, 1) = TextBox99.Text
Sheets("Materialkosten").Cells(19, 1) = TextBox100.Text
Sheets("Materialkosten").Cells(20, 1) = TextBox101.Text
Sheets("Materialkosten").Cells(21, 1) = TextBox102.Text
Sheets("Materialkosten").Cells(22, 1) = TextBox103.Text
Sheets("Materialkosten").Cells(23, 1) = TextBox104.Text
Sheets("Materialkosten").Cells(24, 1) = TextBox105.Text
Sheets("Materialkosten").Cells(25, 1) = TextBox106.Text
Sheets("Materialkosten").Cells(26, 1) = TextBox107.Text
Sheets("Materialkosten").Cells(27, 1) = TextBox108.Text
Sheets("Materialkosten").Cells(28, 1) = TextBox109.Text
Sheets("Materialkosten").Cells(29, 1) = TextBox110.Text
'Menge Kopieren______________________________________________________________________________________
Sheets("Materialkosten").Cells(10, 2) = TextBox9.Text
Sheets("Materialkosten").Cells(11, 2) = TextBox10.Text
Sheets("Materialkosten").Cells(12, 2) = TextBox11.Text
Sheets("Materialkosten").Cells(13, 2) = TextBox12.Text
Sheets("Materialkosten").Cells(14, 2) = TextBox13.Text
Sheets("Materialkosten").Cells(15, 2) = TextBox14.Text
Sheets("Materialkosten").Cells(16, 2) = TextBox15.Text
Sheets("Materialkosten").Cells(17, 2) = TextBox16.Text
Sheets("Materialkosten").Cells(18, 2) = TextBox17.Text
Sheets("Materialkosten").Cells(19, 2) = TextBox18.Text
Sheets("Materialkosten").Cells(20, 2) = TextBox19.Text
Sheets("Materialkosten").Cells(21, 2) = TextBox20.Text
Sheets("Materialkosten").Cells(22, 2) = TextBox21.Text
Sheets("Materialkosten").Cells(23, 2) = TextBox22.Text
Sheets("Materialkosten").Cells(24, 2) = TextBox23.Text
Sheets("Materialkosten").Cells(25, 2) = TextBox24.Text
Sheets("Materialkosten").Cells(26, 2) = TextBox25.Text
Sheets("Materialkosten").Cells(27, 2) = TextBox26.Text
Sheets("Materialkosten").Cells(28, 2) = TextBox27.Text
Sheets("Materialkosten").Cells(29, 2) = TextBox28.Text
'Daten Lieferant Copy______________________________________________________________________________
Sheets("Materialkosten").Cells(10, 3) = TextBox112.Text
Sheets("Materialkosten").Cells(11, 3) = TextBox113.Text
Sheets("Materialkosten").Cells(12, 3) = TextBox114.Text
Sheets("Materialkosten").Cells(13, 3) = TextBox115.Text
Sheets("Materialkosten").Cells(14, 3) = TextBox116.Text
Sheets("Materialkosten").Cells(15, 3) = TextBox117.Text
Sheets("Materialkosten").Cells(16, 3) = TextBox118.Text
Sheets("Materialkosten").Cells(17, 3) = TextBox119.Text
Sheets("Materialkosten").Cells(18, 3) = TextBox120.Text
Sheets("Materialkosten").Cells(19, 3) = TextBox121.Text
Sheets("Materialkosten").Cells(20, 3) = TextBox122.Text
Sheets("Materialkosten").Cells(21, 3) = TextBox123.Text
Sheets("Materialkosten").Cells(22, 3) = TextBox124.Text
Sheets("Materialkosten").Cells(23, 3) = TextBox125.Text
Sheets("Materialkosten").Cells(24, 3) = TextBox126.Text
Sheets("Materialkosten").Cells(25, 3) = TextBox127.Text
Sheets("Materialkosten").Cells(26, 3) = TextBox128.Text
Sheets("Materialkosten").Cells(27, 3) = TextBox129.Text
Sheets("Materialkosten").Cells(28, 3) = TextBox130.Text
Sheets("Materialkosten").Cells(29, 3) = TextBox151.Text
'Daten Artikel Nr. Copy______________________________________________________________________________
Sheets("Materialkosten").Cells(10, 4) = TextBox132.Text
Sheets("Materialkosten").Cells(11, 4) = TextBox133.Text
Sheets("Materialkosten").Cells(12, 4) = TextBox134.Text
Sheets("Materialkosten").Cells(13, 4) = TextBox135.Text
Sheets("Materialkosten").Cells(14, 4) = TextBox136.Text
Sheets("Materialkosten").Cells(15, 4) = TextBox137.Text
Sheets("Materialkosten").Cells(16, 4) = TextBox138.Text
Sheets("Materialkosten").Cells(17, 4) = TextBox139.Text
Sheets("Materialkosten").Cells(18, 4) = TextBox140.Text
Sheets("Materialkosten").Cells(19, 4) = TextBox141.Text
Sheets("Materialkosten").Cells(20, 4) = TextBox142.Text
Sheets("Materialkosten").Cells(21, 4) = TextBox143.Text
Sheets("Materialkosten").Cells(22, 4) = TextBox144.Text
Sheets("Materialkosten").Cells(23, 4) = TextBox145.Text
Sheets("Materialkosten").Cells(24, 4) = TextBox146.Text
Sheets("Materialkosten").Cells(25, 4) = TextBox147.Text
Sheets("Materialkosten").Cells(26, 4) = TextBox148.Text
Sheets("Materialkosten").Cells(27, 4) = TextBox149.Text
Sheets("Materialkosten").Cells(28, 4) = TextBox150.Text
Sheets("Materialkosten").Cells(29, 4) = TextBox152.Text
'Daten Gebindepreis. Kopieren______________________________________________________________________________
Sheets("Materialkosten").Cells(10, 5) = TextBox70.Text
Sheets("Materialkosten").Cells(11, 5) = TextBox71.Text
Sheets("Materialkosten").Cells(12, 5) = TextBox72.Text
Sheets("Materialkosten").Cells(13, 5) = TextBox73.Text
Sheets("Materialkosten").Cells(14, 5) = TextBox74.Text
Sheets("Materialkosten").Cells(15, 5) = TextBox75.Text
Sheets("Materialkosten").Cells(16, 5) = TextBox76.Text
Sheets("Materialkosten").Cells(17, 5) = TextBox77.Text
Sheets("Materialkosten").Cells(18, 5) = TextBox78.Text
Sheets("Materialkosten").Cells(19, 5) = TextBox79.Text
Sheets("Materialkosten").Cells(20, 5) = TextBox80.Text
Sheets("Materialkosten").Cells(21, 5) = TextBox81.Text
Sheets("Materialkosten").Cells(22, 5) = TextBox82.Text
Sheets("Materialkosten").Cells(23, 5) = TextBox83.Text
Sheets("Materialkosten").Cells(24, 5) = TextBox84.Text
Sheets("Materialkosten").Cells(25, 5) = TextBox85.Text
Sheets("Materialkosten").Cells(26, 5) = TextBox86.Text
Sheets("Materialkosten").Cells(27, 5) = TextBox87.Text
Sheets("Materialkosten").Cells(28, 5) = TextBox88.Text
Sheets("Materialkosten").Cells(29, 5) = TextBox89.Text

' Copy Putzverlust_______________________________________________________________________________
Sheets("Materialkosten").Cells(10, 8) = TextBox30.Text
Sheets("Materialkosten").Cells(11, 8) = TextBox31.Text
Sheets("Materialkosten").Cells(12, 8) = TextBox32.Text
Sheets("Materialkosten").Cells(13, 8) = TextBox33.Text
Sheets("Materialkosten").Cells(14, 8) = TextBox34.Text
Sheets("Materialkosten").Cells(15, 8) = TextBox35.Text
Sheets("Materialkosten").Cells(16, 8) = TextBox36.Text
Sheets("Materialkosten").Cells(17, 8) = TextBox37.Text
Sheets("Materialkosten").Cells(18, 8) = TextBox38.Text
Sheets("Materialkosten").Cells(19, 8) = TextBox39.Text
Sheets("Materialkosten").Cells(20, 8) = TextBox40.Text
Sheets("Materialkosten").Cells(21, 8) = TextBox41.Text
Sheets("Materialkosten").Cells(22, 8) = TextBox42.Text
Sheets("Materialkosten").Cells(23, 8) = TextBox43.Text
Sheets("Materialkosten").Cells(24, 8) = TextBox44.Text
Sheets("Materialkosten").Cells(25, 8) = TextBox45.Text
Sheets("Materialkosten").Cells(26, 8) = TextBox46.Text
Sheets("Materialkosten").Cells(27, 8) = TextBox47.Text
Sheets("Materialkosten").Cells(28, 8) = TextBox48.Text
Sheets("Materialkosten").Cells(29, 8) = TextBox49.Text


' Kopieren Garverlust_____________________________________________________________
Sheets("Materialkosten").Cells(10, 9) = TextBox50.Text
Sheets("Materialkosten").Cells(11, 9) = TextBox51.Text
Sheets("Materialkosten").Cells(12, 9) = TextBox52.Text
Sheets("Materialkosten").Cells(13, 9) = TextBox53.Text
Sheets("Materialkosten").Cells(14, 9) = TextBox54.Text
Sheets("Materialkosten").Cells(15, 9) = TextBox55.Text
Sheets("Materialkosten").Cells(16, 9) = TextBox56.Text
Sheets("Materialkosten").Cells(17, 9) = TextBox57.Text
Sheets("Materialkosten").Cells(18, 9) = TextBox58.Text
Sheets("Materialkosten").Cells(19, 9) = TextBox59.Text
Sheets("Materialkosten").Cells(20, 9) = TextBox60.Text
Sheets("Materialkosten").Cells(21, 9) = TextBox61.Text
Sheets("Materialkosten").Cells(22, 9) = TextBox62.Text
Sheets("Materialkosten").Cells(23, 9) = TextBox63.Text
Sheets("Materialkosten").Cells(24, 9) = TextBox64.Text
Sheets("Materialkosten").Cells(25, 9) = TextBox65.Text
Sheets("Materialkosten").Cells(26, 9) = TextBox66.Text
Sheets("Materialkosten").Cells(27, 9) = TextBox67.Text
Sheets("Materialkosten").Cells(28, 9) = TextBox68.Text
Sheets("Materialkosten").Cells(29, 9) = TextBox69.Text

End Sub
Suchen
Antworten Top
Klaus-Dieter Offline
Excel und VBA
Registriert seit: 11.04.2014
Version(en): Office 365
#2
03.11.2018, 18:09
Hallo,


zeig doch mal deine Datei.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Homepage Suchen
Antworten Top
toto18 Offline
Benutzer
ThreadStarter

Registriert seit: 10.09.2018
Version(en): 2013
#3
03.11.2018, 18:14
Die Datei ist im Anhang, und ist noch lange nicht fertig.
Die zu betreffende UF heißt Schnell_Kalkulation
bitte nicht erschrecken ^^


Angehängte Dateien
.xlsm   Gastro_Einzelkalkulationvorlage_Schnell.xlsm (Größe: 1.009,22 KB / Downloads: 35)
Suchen
Antworten Top
Klaus-Dieter Offline
Excel und VBA
Registriert seit: 11.04.2014
Version(en): Office 365
#4
03.11.2018, 18:33
Hallo,

tut mir leid, das ist eine Art von Excel-Projekt, wo ich nicht helfen werde. Die Zeit mich da einzuarbeiten habe ich nicht, obwohl (oder weil) ich Rentner bin. 


Für mich erschließt es sich auch nicht, warum ein ganzer Block Daten auf einen "Schuss" eingefügt werden soll. Das könnte man doch auch direkt in das Tabellenblatt schreiben. Die Eingaben über die Spin-Buttons halte ich eher für eine Spielerei, das dauert doch länger, als gleich den Wert einzugeben. Allenfalls könnte ich mir da die Verwendung von Kombinationsfeldern vorstellen.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Homepage Suchen
Antworten Top
toto18 Offline
Benutzer
ThreadStarter

Registriert seit: 10.09.2018
Version(en): 2013
#5
03.11.2018, 18:47
Das ist quasi ein Arbeitsprojekt wo mehrere Später darüber Arbeiten sollen bzw. gibt es auch genügend Kollegen die nicht mit Excel arbeiten können. Die Spielerei ist Schlicht weg für die Benutzerfreundlichkeit...

Das mit dem Ganzen Block Daten ist wohl korrekt... ich Kenn nur keine Möglichkeit den Code so zu verändern das er nur beschriebene Textboxen erkennt und diese in die Tabelle Einträgt.
Suchen
Antworten Top
Klaus-Dieter Offline
Excel und VBA
Registriert seit: 11.04.2014
Version(en): Office 365
#6
03.11.2018, 18:51
Hallo,

Zitat:Die Spielerei ist Schlicht weg für die Benutzerfreundlichkeit...
die einen sagen so, die anderen sagen so.   Confused Blush
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Homepage Suchen
Antworten Top
toto18 Offline
Benutzer
ThreadStarter

Registriert seit: 10.09.2018
Version(en): 2013
#7
03.11.2018, 19:54
Zitat: schrieb:Die Spielerei ist Schlicht weg für die Benutzerfreundlichkeit...
die einen sagen so, die anderen sagen so.   [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Das mag wohl stimmen, gibt es den  keinen Code für Textboxen wo man die Daten per schleife oder so in die Zellen Schreibt?
Suchen
Antworten Top
Kuwer Offline
Excelanwender mit VBA
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
#8
04.11.2018, 02:21 (Dieser Beitrag wurde zuletzt bearbeitet: 04.11.2018, 11:58 von Kuwer. Bearbeitungsgrund: Schreibfehler im Code berichtigt (vararay zu varArray) )
Hallo,
Private Sub CB_Safe1_Click()

  Dim i As Long, j As Long, k As Long

  Dim varArray As Variant

  

  ReDim varArray(1 To 20, 1 To 5)

  For j = 1 To 5

    k = Switch(j = 1, 91, j = 2, 9, j = 3, 112, j = 4, 132, j = 5, 70)

    For i = 1 To 20

      varArray(i, j) = Controls("TextBox" & k)

      k = k + 1

    Next i

  Next j

  Sheets("Materialkosten").Cells(10, 1).Resize(20, 5).Value = varArray

  

  ReDim varArray(1 To 20, 1 To 2)

  For j = 1 To 2

    k = Switch(j = 1, 30, j = 2, 50)

    For i = 1 To 20

      varArray(i, j) = Controls("TextBox" & k)

      k = k + 1

    Next i

  Next j

  Sheets("Materialkosten").Cells(10, 8).Resize(20, 2).Value = varArray

End Sub
Du solltest auch die Ansicht des Sheets auf Normal stellen, um die Geschwindigkeit zu erhöhen.

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Frogger1986
Suchen
Antworten Top
Steffl Offline
Excelanwender
Registriert seit: 11.04.2014
Version(en): Office 2007
#9
04.11.2018, 11:10
Hallo Uwe,

leider passt die Reihenfolge der Textboxen nicht immer Confused so bei der Gruppe Lieferant Copy und Artikel Nr. Copy.
Gruß Stefan
Win 10 / Office 2016
Suchen
Antworten Top
Rabe Offline
:-)
Registriert seit: 10.04.2014
Version(en): 2016 + 365
#10
04.11.2018, 11:24 (Dieser Beitrag wurde zuletzt bearbeitet: 04.11.2018, 14:03 von Rabe.)
Hi,

das Userform-Layout ist ja sehr gleichförmig aufgebaut.

Ich verwende in so einem Fall stattdessen einfach ein zusätzliches Tabellenblatt als Formular, das ich genau so aufbaue, wie Du Deine Userform, nur erfolgt die Eingabe in Zellen. Das Übertragen der Eingabedaten kann dann ganz einfach per Makro gelöst werden. Das Ein- und Ausblenden des Eingabetabellenblattes erfolgt auch über Makro. Die Userform wird ja auch per Makro aufgerufen und beendet.

Für jemand, der Excel nicht kennt, ist es egal, ob eine Userform aufgerufen wird oder ein Tabellenblatt. Die VBA-Programmierung (also für Dich als Programmierer) dürfte aber bei Tabellenblatt viel einfacher sein.


Tipp: Die Anleitung auf dem ersten Blatt "Leitfaden" solltest Du noch mal hinsichtlich Groß- und Kleinschreibung, Interpunktion, Orthografie, usw. prüfen (lassen). Das tut etwas in den Augen weh und ist schwierig zu lesen.
Suchen
Antworten Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste