Clever-Excel-Forum

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.

Hallo,


zeig doch mal deine Datei.

Die Datei ist im Anhang, und ist noch lange nicht fertig.
Die zu betreffende UF heißt Schnell_Kalkulation
bitte nicht erschrecken ^^

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.

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.

Hallo,

Zitat:Die Spielerei ist Schlicht weg für die Benutzerfreundlichkeit...

die einen sagen so, die anderen sagen so.  

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?

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

Hallo Uwe,

leider passt die Reihenfolge der Textboxen nicht immer so bei der Gruppe Lieferant Copy und Artikel Nr. Copy.

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.