With funktion ersetzen
04.07.2016 10:44:28
Fatih
Ich öffne mit einer Schaltfläche ein Word Dokument das die Daten von der Userform übernimmt.
In dieser Userform können bis zu 50 Zeilen mit je 5 werten drin stehen, ist aber nicht immer der Fall.
Wenn nur 4 Zeilen voll sind soll die Word Datei auch nur die 4 übernehmen und nicht die ganze Userform nach Daten absuchen.
Gibt es eine Möglichkeit es so zu gestalten, dass nach der Übertragung der Daten der Vorgang beendet wird, und nicht mehr weiter läuft.
So wie es jetzt ist dauert das ganze viel zu lange.
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
appWD.Documents.Add Template:="Pfad"
With appWD.ActiveDocument
.FormFields("IDW").Result = ID
.FormFields("MaschinennummerW").Result = Maschinennummer.Value
.FormFields("KundeW").Result = Kunde.Value
.FormFields("VerbauungsortW").Result = Verbauungsort.Value
.FormFields("AusstellerW").Result = Aussteller.Value
.FormFields("WunschterminW").Result = Wunschtermin.Value
If BAF.Value = True Then
.FormFields("BAFW").Result = "BAF"
End If
If KAF.Value = True Then
.FormFields("KAFW").Result = "KAF"
End If
'.FormFields("BAFW").Result = BAF.Value entfernen
.FormFields("AbteilungW").Result = Abteilung.Value
.FormFields("DatumW").Result = Datum.Value
.FormFields("SchlüsselW").Result = Schlüssel.Value
.FormFields("InfoW").Result = Info.Value
.FormFields("BAFPosition1W").Result = BAFPosition1.Value
.FormFields("TeilenummerALT1W").Result = TeilenummerALT1.Value
.FormFields("TeilenummerNEU1W").Result = TeilenummerNEU1.Value
.FormFields("Menge1W").Result = Menge1.Value
.FormFields("Beschreibung1W").Result = Beschreibung1.Value
.FormFields("BAFPosition2W").Result = BAFPosition2.Value
.FormFields("TeilenummerALT2W").Result = TeilenummerALT2.Value
.FormFields("TeilenummerNEU2W").Result = TeilenummerNEU2.Value
.FormFields("Menge2W").Result = Menge2.Value
.FormFields("Beschreibung2W").Result = Beschreibung2.Value
.FormFields("BAFPosition50W").Result = BAFPosition50.Value
.FormFields("TeilenummerALT50W").Result = TeilenummerALT50.Value
.FormFields("TeilenummerNEU50W").Result = TeilenummerNEU50.Value
.FormFields("Menge50W").Result = Menge50.Value
.FormFields("Beschreibung50W").Result = Beschreibung50.Value
End With