Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Wert aus Textbox in mehrere Zellen eintragen.
04.09.2023 10:22:02
BoutyX
Moin,
vielleicht kann mir einer helfen. Ich würde gerne in die Textbox ( Karton Nr.:) z.B 1-10 oder einfach 10 Eintragen dann die Restlichen Textboxen füllen und am ende soll es Anhang der eingetragener Nummer in ( Karton Nr.:) dementsprechend die Zellen füllen. (sieh Bild 3)

Würde mich gerne über eine Lösung freuen.



Userbild

Userbild


Bild 3.
Userbild

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert aus Textbox in mehrere Zellen eintragen.
04.09.2023 13:03:01
snb
Ich mag solche Bilder.....
AW: Wert aus Textbox in mehrere Zellen eintragen.
04.09.2023 19:45:07
Piet
Hallo

wenn ich die Aufgabe richtig verstanden habe müsste das hier die richtige Lösung sein.
Bei der LastZell suche setzt man voraus, das die Karton Nummer immer fortlaufend weitergeht.
Bei dieser Lösung ist die richtige Zeile die Karton Nummer +1 für die Überschriftszeile.

mfg Piet

'Eintrag in Tabelle bei TextBox Menge

Private Sub CommandButton1_Click()
If IsNumeric(TextBox1) Then
x = TextBox1.Value + 1 'Karton Index ermitteln
Tabelle1.Cells(x, 1).Value = UserForm1.Parcel.Value
Tabelle1.Cells(x, 2).Value = UserForm1.Product.Value
Tabelle1.Cells(x, 7).Value = UserForm1.Contents.Value
End If
End Sub

Anzeige
AW: Wert aus Textbox in mehrere Zellen eintragen.
06.09.2023 20:36:27
Piet
Hallo

mit diesem Code sollten beide Forderungen erfüllt sein. Freut mich wenn es damit klappt.

mfg Piet

Private Sub CommandButton1_Click()

Dim a As Integer, e As Integer, x As Integer
If IsNumeric(Parcel) Then
x = Parcel.Value + 1 'Karton Index ermitteln
Tabelle1.Cells(x, 1).Value = UserForm1.Parcel.Value
Tabelle1.Cells(x, 2).Value = UserForm1.Product.Value
Tabelle1.Cells(x, 7).Value = UserForm1.Contents.Value
ElseIf InStr(Parcel, "-") And IsNumeric(Left(Parcel, 1)) Then
'mehrfach ausfüllen in Felder 1-10
a = Left(Parcel, InStr(Parcel, "-") - 1) 'Anfangszahl
e = Mid(Parcel, InStr(Parcel, "-") + 1) 'Endzahl
For x = a + 1 To e + 1 'Schleife zum ausfüllen
Tabelle1.Cells(x, 1).Value = x - 1 'Karton- Nr.
Tabelle1.Cells(x, 2).Value = UserForm1.Product.Value
Tabelle1.Cells(x, 7).Value = UserForm1.Contents.Value
Next x
End If
End Sub
Anzeige
AW: Wert aus Textbox in mehrere Zellen eintragen.
05.09.2023 09:57:00
BoutyX
Hallo Piet,

vielen Dank für den Ansatz. Aktuell schreibt er mir die Werte in die jeweilige Zelle die in der TextBox1 steht. Ich würde es aber gerne so haben, dass, wenn in der TextBox1 (1-10) oder (10) steht dann auch in Zelle 1-10 gleicher Eintrag gemacht wird.
AW: Wert aus Textbox in mehrere Zellen eintragen.
04.09.2023 13:39:46
GerdL
Moin,

ein Ansatz ohne deine Datei nach Schema für das Userformmodul.

Private Sub CommandButton1_Click()


If IsNumeric(TextBox1) Then
Tabelle1.Cells(Rows.Count, 1).End(xlUp).Offset(1) = TextBox1
End If

End Sub

Gruß Gerd

Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige