Inhalt mehrer Textboxen in bestimmte Zellen schreiben

[schauan]

Hallöchen,

leider passt die Reihenfolge der Textboxen nicht immer

Das in die Reihe zu bringen würde ich dem TE empfehlen

[Klaus-Dieter]

gelöscht

[Kuwer]

Hallo Stefan,

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

tatsächlich.
Zum Glück ist das ja aber nicht in Stein gemeißelt und ließe sich ja korrigieren, wie André auch schrieb.

Aber da lauern wohl noch mehr Nicklichkeiten wie z.B. das Überschreiben von Formeln.
Ich wollte auch nur eine Möglichkeit zeigen, wie man das beschleunigen könnte, unabhängig von der Sinnhaftigkeit des ganzen Konzepts. Für mich sieht es so aus, dass der TE vor lauter Probiererei und Stückelei den Überblick leicht verloren hat. :17:

Gruß Uwe

[Klaus-Dieter]

Hallo Uwe,

dass der TE vor lauter Probiererei und Stückelei den Überblick leicht verloren hat.

aber im Gestalten ist er einsame Spitze.

[schauan]

Hallöchen,

wenn mal viele TextBoxen zu erstellen sind kann man das auch geordnet per Makro tun

Option Explicit

Public Sub tbxErzeugen()
'Variablendeklarationen 
Dim iCnt%, iIdx_C%, iIdx_R%, iCol%, iRow%
Dim iLeft&, iTop&, iTopi&, iHight&, iWidth&, iDistH&, iDistV&
Dim tbxControl As Control, objUF As Object
'Anzahl Zeilen und Spalten festlegen 
iRow = 10: iCol = 5
'Startposition festlegen 
iLeft = 10: iTop = 10: iTopi = iTop
'Abstand festlegen 
iDistH = 10: iDistV = 3
'Hoehe und Breite festlegen 
iHight = 15: iWidth = 30
'Userform festlegen 
Set objUF = ThisWorkbook.VBProject.VBComponents("Userform1")
'Schleife ueber alle Spalten 
For iIdx_C = 1 To iCol
 'Schleife ueber alle Zeilen 
 For iIdx_R = 1 To iRow
   'Textbox erzeugen 
   Set tbxControl = objUF.Designer.Controls.Add("Forms.TextBox.1", "T" & iIdx_C & iIdx_R, True)
     'Mit der erzeugten Textpox - Groesse und Position festlegen 
     With tbxControl
       .Height = iHight
       .Width = iWidth
       .Top = iTopi
       .Left = iLeft
       .Visible = True
     'Ende Mit der erzeugten Textpox - Groesse und Position festlegen 
     End With
 'naechstes Top mit Abstand V berechnen 
 iTopi = iTopi + iHight + iDistV
 'Ende Schleife ueber alle Zeilen 
 Next iIdx_R
 'naechstes Left mit Abstand H berechnen 
 iLeft = iLeft + iWidth + iDistH
 'Top zuruecksetzen 
 iTopi = iTop
'Ende Schleife ueber alle Spalten 
Next
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

[toto18]

Hey Männer Sorry das ich mich so Spät zurück melde.

Tausend Dank für eure vielen Antworten und Lösungsansätze. Das Mag wohl stimmen das ich leicht den überblick verloren habe, es ist für mich ein neben Projekt und irgendwie ändern sich ständig die Anforderungen der Leute Spezifisch dieses Tools.... Und ich bin ein Blutiger Anfänger was das angeht... Leider. Ich werde eure Lösungsansätze beherzigen und diese dann so Übernehmen.

Hallo Uwe,

dass der TE vor lauter Probiererei und Stückelei den Überblick leicht verloren hat.

aber im Gestalten ist er einsame Spitze.

Auch wenn es Ironisch gemeint ist, Danke ^^

[Klaus-Dieter]

Hallo,

Auch wenn es Ironisch gemeint ist, Danke ^^

nur ein ganz kleines bisschen.    Normalerweise baut man das Haus fertig auf, bevor man tapeziert.