Thema Datum  Von Nutzer Rating
Antwort
09.07.2020 10:53:55 Pascal Werner
NotSolved
09.07.2020 15:45:44 Gast8091
NotSolved
Rot Crossposting
 10.07.2020 06:53:33 Gast31012
NotSolved

Ansicht des Beitrags:
Von:
Gast31012		 Datum:
10.07.2020 06:53:33		 Views:
658		 Rating:
     
Antwort:
  Ja
Thema:
Crossposting

Hallo zusammen,

 

mir wurde in einem anderen Forum geholfen.

hier der Link:

https://www.ms-office-forum.net/forum/showthread.php?t=368879

 

Nun hätte ich noch eine Frage.

 

Ich würde gerne zusätzlich für Textbox5 eine Prüfziffer mit anhängen nach jedem Call mainBarCoder also sollte dann so aussehen: TextBox5 + 001, Textbox5 + 002 usw. bis die Schleife eben abgeschlossen ist.

 

Hier nochmal der neue Code:

 If CheckBox1.Value = True Then
             Worksheets("Retouren_Template").Range("J15") = "APP"
         Else
             Worksheets("Retouren_Template").Range("J15") = ""
         End If
     If (TextBox5.Text <> "" And CheckBox1.Value = True) Then GoTo weit
     On Error GoTo la
la:  If (TextBox5.Text = "" And CheckBox1.Value = True) Then
     TextBox5.Text = InputBox("Das Häkchen zum Versenden von Textil Kartons wurde gesetzt. Allerdings wurde keine Kartonanzahl angegeben. Bitte geben Sie im unteren Feld eine Anzahl zwischen 1 und 999 Kartons an oder klicken sie auf Abbrechen.")
        If TextBox5.Text = vbchancel Then GoTo weiter
        If TextBox5.Text = vbOK Then GoTo weit
        If CheckBox1.Value = False Then GoTo weiter
weit:
Dim x As Integer
For x = 1 To CInt(Me.TextBox5.Value)
      Call mainBarCoder(Worksheets("Retouren_Template").Range("B6"), Range("A3"), 50, 10)
                ActiveSheet.PrintOut Copies:=1
Next x
             End If

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.07.2020 10:53:55 Pascal Werner
NotSolved
09.07.2020 15:45:44 Gast8091
NotSolved
Rot Crossposting
 10.07.2020 06:53:33 Gast31012
NotSolved