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
pausiert
Registriert seit: 10.09.2018
Version(en): 2013
#1
03.11.2018, 19:04 (Dieser Beitrag wurde zuletzt bearbeitet: 03.11.2018, 21: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
Top
Klaus-Dieter Offline
Excel und VBA
Registriert seit: 11.04.2014
Version(en): Office 365
#2
03.11.2018, 19: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
Top
toto18 Offline
pausiert
ThreadStarter
Registriert seit: 10.09.2018
Version(en): 2013
#3
03.11.2018, 19: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
Top
Klaus-Dieter Offline
Excel und VBA
Registriert seit: 11.04.2014
Version(en): Office 365
#4
03.11.2018, 19: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
Top
toto18 Offline
pausiert
ThreadStarter
Registriert seit: 10.09.2018
Version(en): 2013
#5
03.11.2018, 19: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
Top
Klaus-Dieter Offline
Excel und VBA
Registriert seit: 11.04.2014
Version(en): Office 365
#6
03.11.2018, 19: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
Top
toto18 Offline
pausiert
ThreadStarter
Registriert seit: 10.09.2018
Version(en): 2013
#7
03.11.2018, 20: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
Top
Kuwer Offline
Excelanwender mit VBA
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
#8
04.11.2018, 03:21 (Dieser Beitrag wurde zuletzt bearbeitet: 04.11.2018, 12: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
Top
Steffl Offline
Excelanwender
Registriert seit: 11.04.2014
Version(en): Office 2007
#9
04.11.2018, 12: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
Top
Rabe Offline
:-)
Registriert seit: 10.04.2014
Version(en): 2016 + 365
#10
04.11.2018, 12:24 (Dieser Beitrag wurde zuletzt bearbeitet: 04.11.2018, 15: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
Top
Thema geschlossen 


Gehe zu:


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