Inhalte von Textboxen verschieben

Forumthread: Inhalte von Textboxen verschieben

30.07.2019 13:31:38

Textboxen

Hi Leute ,
ich wollte mal fragen ob es die Möglichkeit gibt, variable Inhalte von TextBoxen per Botton oder besser noch per doppelklick zu verschieben. Dabei habe ich es mir wie folgt vorgestellt.
Man hat 5 TextBoxen nebeneinander. von Textbox1 bis TextBox5 und das 5 mal untereinander.
Per Doppelklick oder Button werden die Inhalte der ersten 5 TextBoxen eine reihe weiter unten angezeigt.
Ist sowas möglich?
Gruß Sören

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Zu wenig Angaben...

30.07.2019 13:34:02

{Boris}
AW: Zu wenig Angaben...

31.07.2019 14:05:08

Sören
Hab`s Dir eingebaut...

01.08.2019 11:08:16

{Boris}
AW: Hab`s Dir eingebaut...

01.08.2019 20:05:04

Sören
Mein Fehler...

01.08.2019 23:16:27

{Boris}
AW: Mein Fehler...

02.08.2019 00:23:41

Sören

Zu wenig Angaben...

30.07.2019 13:34:02

{Boris}

Hi,
...was soll zum Beispiel passieren, wenn die darunter liegenden TextBoxen gefüllt sind?
Überschreiben? Oder...?
Zudem lad mal die Mappe hoch.
VG; Boris

AW: Zu wenig Angaben...

31.07.2019 14:05:08

Sören

Hallo Boris,
sorry das ich jetzt erst antworte.
...was soll zum Beispiel passieren, wenn die darunter liegenden TextBoxen gefüllt sind?
die sollen sich auch um eine reihe nach unten verschieben.
wenn man an der letzten Reihe angekommen ist und wieder um eine reihe nach unten verschieben möchte, würde der text dann verschwinden.
Anbei eine wie das aussehen könnte.
https://www.herber.de/bbs/user/131181.xlsm

Hab`s Dir eingebaut...

01.08.2019 11:08:16

{Boris}

Hi Sören,
siehe Anlage: https://www.herber.de/bbs/user/131203.xlsm
Ich habe Deine TextBoxen der Reihe nach umbenannt in
TB0_1 TB0_2 TB0_3 TB0_4 TB0_5
TB1_1 TB1_2 usw. usw
und Deinen vorhandenen Code für den Doppelklick entsprechend ergänzt:

Public Sub check(Button)
Dim nr, i, na, le, x As Long
    na = Button.Name
le = Len(Button.Name)
nr = Val(Right(Button.Name, le - 18))
If nr > 15 Then Exit Sub
For i = 15 To nr + 1 Step -1
Eingabemaske.Controls("PosFeldbezeichnung" & i) = Eingabemaske.Controls(" _
PosFeldbezeichnung" & i - 1)
Eingabemaske.Controls("PosFeldbezeichnung" & i + 16) = Eingabemaske.Controls(" _
PosFeldbezeichnung" & i + 15)
For x = 1 To 5
Eingabemaske.Controls("TB" & i & "_" & x) = Eingabemaske.Controls("TB" & i - 1 & _
"_" & x)
Next x
    Next i
Eingabemaske.Controls("PosFeldbezeichnung" & nr + 1) = ""
If nr  15 Then Eingabemaske.Controls("PosFeldbezeichnung" & nr + 17) = ""
End Sub

VG, Boris

AW: Hab`s Dir eingebaut...

01.08.2019 20:05:04

Sören

Hallo Boris,
vielen Dank für deine Hilfe. Wenn ich aber jetzt eine Zeile verschiebe, wird der Text kopiert und nicht um eine Zeile nach unten verschoben. War das von dir gewollt?
Was wäre wenn die TB , die neben einader stehen alle anderes heißen würden? würde es dann auch gehen?

Mein Fehler...

01.08.2019 23:16:27

{Boris}

Hi,
hier der korrekte Code:

Public Sub check(Button)
Dim nr, i, na, le, x As Long
na = Button.Name
le = Len(Button.Name)
nr = Val(Right(Button.Name, le - 18))
If nr > 15 Then Exit Sub
For i = 15 To nr + 1 Step -1
Eingabemaske.Controls("PosFeldbezeichnung" & i) = Eingabemaske.Controls(" _
PosFeldbezeichnung" & i - 1)
Eingabemaske.Controls("PosFeldbezeichnung" & i + 16) = Eingabemaske.Controls(" _
PosFeldbezeichnung" & i + 15)
For x = 1 To 5
Eingabemaske.Controls("TB" & i & "_" & x) = Eingabemaske.Controls("TB" & i - 1 & _
"_" & x)
Next x
Next i
Eingabemaske.Controls("PosFeldbezeichnung" & nr + 1) = ""
For x = 1 To 5
Eingabemaske.Controls("TB" & nr + 1 & "_" & x) = ""
Next x
If nr  15 Then Eingabemaske.Controls("PosFeldbezeichnung" & nr + 17) = ""
End Sub

Was wäre wenn die TB , die neben einader stehen alle anderes heißen würden? würde es dann auch gehen?
Das verkompliziert das Ganze ungemein, da man dann nicht mehr ohne Weiteres mit Schleife arbeiten kann.
VG, Boris

AW: Mein Fehler...

02.08.2019 00:23:41

Sören

Hallo Boris,
okay verdammt, genau das trifft nämlich bei mir zu. jede reihe nach unten hat ihren eigenen Namen, damit man bei den Code durchblickt. Darf ich fragen wie der Code dann auszusehen hätte?
Gruß Sören

Beliebteste Forumthreads (12 Monate)

Inhalte von Textboxen verschieben

Forumthread: Inhalte von Textboxen verschieben

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread