Hallo Zusammen - ich möchte mehrere Nummern in ein Single Form mit 1 Feld pro Nummer rein kopieren.
Zb kopiere ich diese 3 Nummern zusammen(nicht einzeln) und kopiere diese in das Single Form das 3 Felder hat
115222
115223
115224
Beim reinkopieren kopiert es dann alle 3 Zahlen in das erste Feld. Was muss ich machen damit die 3 Nummern in
je ein Formular Feld kopiert werden.
Im voraus danke für die Hilfe
Cédric
Hallo,
entweder kopierst du die Nummern einzeln oder du fügst alle in jedes Feld ein und löschst die nicht benötigten.
Mit Copy und Paste hast du sonst keine Chance das so zu lösen wie du es beschreibst.
Hallo
ist nicht exakt das was du willst, aber evtl hift dir das hier (http://www.office-loesung.de/ftopic563843_0_0_asc.php) weiter.
Danke für die Antworten.
Eine Möglichkeit wäre ja noch über einen button im Formular die Nummern zu kopieren - die VBA prozedur wäre etwa so:
- copy 6 Nummern / tabulator / copy 6 nummern / tabulator etc.
Danke und gruss
Cédric
Hallo,
Vorschlag unter der Annahme, dass die Werte durch z. B. vbCrLf abgetrennt sind:
Eingabe-Textfeld erstellen, in das der String hineinkopiert wird.
Mit der Afterupdate_Ereignisprozedur und der Split-Funktion den Text in die Einzel-Strings (die "Nummern") splitten und diese den entspr. Textfeldern zuweisen.
Hallo,
ZitatEine Möglichkeit wäre ja noch über einen button im Formular die Nummern zu kopieren ...
Ja, und wo kommen die denn überhaupt her?
Wenn wir nun schon über die Möglichkeiten reden, VBA zum Einsatz zu bringen ... da sind die Ansätze ja relativ weitreichend ::)
Hallo zusammen - es handelt sich um Processorders die aus SAP MD04 rauskopiert werden. Wie sollte die Prodezur lauten ?
Hallo,
das sind alles keine konkreten Angaben...
Eingabefeld: txtEingabe
(evtl. gebundene) Zielfelder: txtFeld0, txtFeld1, txtFeld2
Sub txtEingabe_Afterupdate()
Dim i as Long, a
a = Split(txtEingabe, vbCrLf)
If Lbound(a) > -1 Then
For i = Lbound(a) to Ubound(a)
Me("txtFeld" & i) =a(i)
Next
End If
End Sub
Danke für die Antworten.
Habe es mit unten stehedem Befehl probiert, aber es nicht geschaft richtig einzusetzen.
Die PO's werden im folgendem Format aus SAP kopiert:
000011581595/ZCP
000011581596/ZCP
000011581597/ZCP
000011581598/ZCP
000011581599/ZCP
000011581600/ZCP
Und müssen dann noch zusätzlich auf die Nummern (5er von links bis 5 von rechts = 11581595) reduziert werden.
Habe eine Bespiel DB angefügt. Die PO's sollten dan über den Button Paste auf die Felder PO 1 - 6 eingefügt werden.
Im voraus danke für die Hilfe
Cédric
[Anhang gelöscht durch Administrator]
Hallo,
entspr. Deiner Vorlage (ungebundenes Textfeld "txtEingabe" zusätzlich ins Form einbauen):
Private Sub Command13_Click()
Dim i As Long, a
a = Split(txtEingabe, vbCrLf)
If LBound(a) > -1 Then
For i = LBound(a) To UBound(a)
Me("PO" & i + 1) = Mid(a(i), 5, 8)
Next
End If
End Sub
[Anhang gelöscht durch Administrator]
Genial - Vielen dank für die Hilfe.