Wenn textbox leer bei Export ausfüllen
12.04.2022 21:01:38
Andre
ich brauche als Anfänger mal Eure Hilfe bei folgender Aufgabe:
Ich fülle eine Listbox und Textboxen und dann wird durch Klicken eines Command-Buttons eine .csv-Datei erstellt.
Wenn nun die Textbox_charge nicht gefüllt ist, soll beim Export automatisch "nocharge" exportiert werden.
Der Export-Code sieht so aus:
Private Sub CommandButton_Export_Click()
Const sSep As String = ";"
Dim i As Long
Dim j As Long
Dim sFile As String, stext$, iFilenr As Integer
iFilenr = FreeFile
sFile = "C:\Users\andre\OneDrive\Dokumente\Arbeit Andre\" & TextBox_kurzbez.Value & "_warenausgang_" & TextBox_Auftrag.Value & ".csv"
Open sFile For Output As iFilenr
Print #iFilenr, "AUFTRAGSNR;MANDANT;ZUSTAND;AUFTRAGSART;VERSANDART;ZOLL_KNZ;PRIO;ANZ_POS;ANZ_OPOS;LIEFER_DATUM;VERLADE_DATUM;AUFTRAGS_DATUM;KUNDENNR;SPRACHE;LAGER_NR;POS_AUFTRAGSNR;POS_MANDANT;POS_AUFTRAGSPOS;POS_ARTIKELNR;POS_ZUSTAND;POS_MENGE_SOLL;POS_MENGE_IST;POS_EINHEIT;CHARGE"
With UserForm_WA.ListBox1
For i = 0 To .ListCount - 1
If i Danke und Gruß
Andre