Clever-Excel-Forum

Hallöchen,

Zitat:leider passt die Reihenfolge der Textboxen nicht immer

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

gelöscht

Hallo Stefan,

(04.11.2018, 11:10)Steffl schrieb: [ -> ]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

Hallo Uwe,

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

aber im Gestalten ist er einsame Spitze.

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

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.

Zitat:Hallo Uwe,

Zitat: schrieb: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 ^^

Hallo,

Zitat:Auch wenn es Ironisch gemeint ist, Danke ^^

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