Hallo Leute ich bins mal wieder.
Ich würde nun gerne einen Filter in die Anwendung einbauen.
Ich möchte damit eine Filterfunktion wie man sie von Excel kennt erstellen.
Also ich möchte zb alle Datensätze anzeigen lassen die eine Email-Adresse haben.
Kann ich das auch mit der Eingabemaske machen?
Brauche ich dann eine neue Ansicht um mit die Ergebnisse anzeigen zu lassen oder kann ich dafür die alte nutzen?
Was wär am sinnvollsten?
hi so nach langer zeit schreib ich mal wieder was.
Erstmal ein paar nette Grüße in die Runde.
Ich bin grad bei ein paar Formatierung bei meiner DB bei.
Soll ja auch alles gut aussehen.
Ich bekomm das mit den Feldern noch nicht so hin wie gewollt.
Ist bei mir noch recht grau.
Ich habe mal zwei Bildausschnitte beigefügt damit ihr wisst was ich meine.
Hi ich habe mal wieder ein paar Fragen.
Wie bekomme ich diese schicken Eingabefelder hin?
Felder an sich hab ich ja schon drin aber ich würde gern so ein weißes hinterlegtes Feld haben und zwar so breit wie die Spalte der Tabelle.
So wie man das von Windowsanwendungen gewohnt ist.
Ich würde auch gern alle überflüssigen Sachen aus der Kontakt-Maske entfernen.
Gibts da irgendwelche Sachen die ich auf keinen Fall löschen darf?
zb der "hidden"-teil.
Wo lege ich die Regeln fest welche felder pflichtfelder sind und welche nicht?
Bekomme nämlich wenn ich einen Kontakt bearbeite und anschließend speichern will eine Meldung das bestimmte Felder mit Inhalt versehen seien müssen.
Hier noch einmal ein Screenshot vom Eigenschaften-Fenster.
Da steht jedenfalls das alle angezeigt werden sollen.
hier ist er. 
Habe in der Tabelle nun eine weitere Zeile hinzugefügt.
Diese habe ich mal Allgemeines genannt.
In dieser Zeile habe ich eine weitere Tabelle erstellt um das ganze vernüftig darzustellen.
Habe dann in den Zellen der Tabelle Texte und Felder erstellt.
Und um die Inhalte meiner Dokumente dort darstellen zu können habe ich den Feldern den Namen der jeweiligen Felder meiner Maske gegeben und habe im Vorgabewert auch den Namen der Felder verwendet.
Leider zeigt er nun bei der verwendung im Client nur einen Text an und blendet den Rest aus.
Woran kann das liegen.
Habe das ganze noch als Screenshot angefügt.
MFG Christian
Wie kann ich diese dann benennen?
Wie kann ich neue "Tabs" erstellen?
Im persönlichen Adressbuch habe ich ja "Geschäftlich" "Privat" "Mappe" "Erweitert".
Da ich ja viel mehr davon brauche müsste ich noch ein paar davon erstellen.
Ich habe nun meine Ansicht angepasst und kann nun im Client sehen das alles erfolgreich importiert wurde.
Ich möchte nun Kontakte bearbeiten.
Wenn ich einen Kontakt markiere und auf "Kontakt bearbeiten"
gehe dann sehe ich logischerweise ja noch nichts weil meine Felder ja anders heißen.
Meine Frage ist nun muss ich an der "Kontakt bearbeiten" noch etwas ändern oder reicht es wenn ich nur die Felder so umbenenne das sie so heißen wie meine importierten Felder?
Genau ich will neue Felder hinzugügen ein paar neue Tabs erstellen und auch Felder verschieben.
Und ich will die Quelle der Felder ändern, so das Sie die Importierten Daten anzeigen.
Danke nun zeigt er alle an.
So jetzt kann ich mich an den nächsten großen Schritt wagen.
Ich würde jetzt gerne die Funktion "Kontakt bearbeiten" als erstes editieren.
Dazu muss ich ja jetzt die Maske Kontakt bearbeiten.
Dort befindet sich oben ein Teil der wie folgt ausschaut.
Die Felder sind dort anders plaziert als bei der ausgabe im Client.
Ist das nur ein Beispiel oder sowas?
Wenn ich dann weiter nach unten scrolle dann seh ich das in gewohnter Form dagestellte Fenster zum editieren bzw neu erstellen von Kontakten.
Die Ansicht habe ich ja neu gebaut um mir das Importierte mal Anzeigen zu lassen.
Wenn ich mir das mit dem Lotus Client anzeigen lasse das sieht das wie folgt aus.
Mein Problem ist ja jetzt erstmal zu gucken ob alles richtig importiert wurde.
Ich kann es mit der Ansicht trotzdem nicht anzeigen lassen.
Es funktioniert nicht.
Ich glaube um das Umändern komme ich nicht herum.
Die Ansicht "AnzeigeDB" hab ich mir gebastelt um zu gucken ob alles anständig importiert wurde.
Ich brauche ja viel mehr Felder als im Adressbuch vorhanden sind.
Ich hab beim anzeigen der Dokumente(Kontakte) gedacht nur ein paar Felder anzeigen zu lassen so wie es im orginalen Adressbuch ist und wenn ich dann einen neuen Kontakt erstelle oder einen vorhandenen bearbeite das ich dann viele tabs habe für den einen Kontakt.
Wie zb Allgemeines mit Namen Adresse und Telefonnummer des Krankenhauses.
Und dann halt für alle Unterabteilungen wie zb Chirurgie Innere usw mit jeweils ein paar Daten.
Hast du das auf dem Screenshot erkannt?
Was muss ich denn tun um die Felder zu verwendet die in der Maske drin sind?
doc.Thermo-Hersteller = xlApp.Cells(Zeile, 101).Value
doc.BP-Hersteller = xlApp.Cells(Zeile, 102).Valuean den beiden Zeilen lag es.
und zwar hab ich den "-" in "_" umgeändert dann ging es.
Das Problem ist nun das es in meiner Ansicht immernoch nicht angezeigt wird.
deswegen füge ich noch ein paar scrennshots bei vielleicht ist da ja ne einstellung falsch.
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Set xlApp = CreateObject ( "Excel.Application") ' Excel starten'
xlApp.Visible = True ' Excel im UI anzeigen'
xlApp.Workbooks.Open "c:\test123.xls" ' Datei in Excel öffenen'
xlApp.Sheets("KHV").Select ' passenden Reiter/Tabelle auswählen'
For Zeile = 1 To 2170
Set doc = New NotesDocument(db) ' Dokument erstellen'
doc.Form = "Person" ' Maske festlegen'
doc.Letzte_Aenderung = xlApp.Cells(Zeile, 1).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fokushaeuser = xlApp.Cells(Zeile, 2).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Verband = xlApp.Cells(Zeile, 3).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.SAP_KdNr = xlApp.Cells(Zeile, 4).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Gebietsnr = xlApp.Cells(Zeile, 5).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Land = xlApp.Cells(Zeile, 6).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Kreis = xlApp.Cells(Zeile, 7).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Gemeinde = xlApp.Cells(Zeile, 8).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Name1 = xlApp.Cells(Zeile, 9).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Name2 = xlApp.Cells(Zeile, 10).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Straße_Hausnr = xlApp.Cells(Zeile, 11).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Plz = xlApp.Cells(Zeile, 12).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Ort = xlApp.Cells(Zeile, 13).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Telefon = xlApp.Cells(Zeile, 14).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Telefax = xlApp.Cells(Zeile, 15).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Email = xlApp.Cells(Zeile, 16).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Internetadresse = xlApp.Cells(Zeile, 17).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Traeger = xlApp.Cells(Zeile, 18).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.T_Name1 = xlApp.Cells(Zeile, 19).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.T_Name2 = xlApp.Cells(Zeile, 20).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Betten_Ins = xlApp.Cells(Zeile, 21).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.TN_SUM = xlApp.Cells(Zeile, 22).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Leitg_Medizintechnik_anrede = xlApp.Cells(Zeile, 23).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Leitg_Medizintechnik_vorname = xlApp.Cells(Zeile, 24).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Leitg_Medizintechnik_name = xlApp.Cells(Zeile, 25).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Tel_MedTechnik = xlApp.Cells(Zeile, 26).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fax_MedTechnik = xlApp.Cells(Zeile, 27).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Email_MedTechnik = xlApp.Cells(Zeile, 28).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Leitg_Einkauf_anrede = xlApp.Cells(Zeile, 29).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Leitg_Einkauf_vorname = xlApp.Cells(Zeile, 30).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Leitg_Einkauf_name = xlApp.Cells(Zeile, 31).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Tel_Einkauf = xlApp.Cells(Zeile, 32).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fax_Einkauf = xlApp.Cells(Zeile, 33).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Email_Einkauf = xlApp.Cells(Zeile, 34).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Verwaltungsleiter_anrede = xlApp.Cells(Zeile, 35).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Verwaltungsleiter_vorname = xlApp.Cells(Zeile, 36).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Verwaltungsleiter_name = xlApp.Cells(Zeile, 37).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Tel_Verw = xlApp.Cells(Zeile, 38).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fax_Verw = xlApp.Cells(Zeile, 39).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Email_Verw = xlApp.Cells(Zeile, 40).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.aerztlicher_Entscheider = xlApp.Cells(Zeile, 41).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Tel_aerztlicher_Entscheider = xlApp.Cells(Zeile, 42).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fax_aerztlicher_Entscheider = xlApp.Cells(Zeile, 43).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Pflegedienst_anrede = xlApp.Cells(Zeile, 44).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Pflegedienst_vorname = xlApp.Cells(Zeile, 45).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Pflegedienst_name = xlApp.Cells(Zeile, 46).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Tel_Pflegedienst = xlApp.Cells(Zeile, 47).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fax_Pflegedienst = xlApp.Cells(Zeile, 48).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Email_Pflegedienst = xlApp.Cells(Zeile, 49).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Hygieniker_anrede = xlApp.Cells(Zeile, 50).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Hygieniker_vorname = xlApp.Cells(Zeile, 51).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Hygieniker_name = xlApp.Cells(Zeile, 52).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Tel_Hygieniker = xlApp.Cells(Zeile, 53).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fax_Hygieniker = xlApp.Cells(Zeile, 54).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Email_Hygieniker = xlApp.Cells(Zeile, 55).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Stroke_Units_Abt = xlApp.Cells(Zeile, 56).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Stroke_Units_anrede = xlApp.Cells(Zeile, 57).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Stroke_Units_vorname = xlApp.Cells(Zeile, 58).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Stroke_Units_name = xlApp.Cells(Zeile, 59).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Tel_Stroke_Units = xlApp.Cells(Zeile, 60).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fax_Stroke_Units = xlApp.Cells(Zeile, 61).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Email_Stroke_Units = xlApp.Cells(Zeile, 62).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.IT_Leiter_anrede = xlApp.Cells(Zeile, 63).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.IT_Leiter_vorname = xlApp.Cells(Zeile, 64).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.IT_Leiter_name = xlApp.Cells(Zeile, 65).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Tel_IT_Leiter = xlApp.Cells(Zeile, 66).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fax_IT_Leiter = xlApp.Cells(Zeile, 67).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Email_IT_Leiter = xlApp.Cells(Zeile, 68).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.ORBIS = xlApp.Cells(Zeile, 69).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Anaesthesie_anrede = xlApp.Cells(Zeile, 70).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Anaesthesie_vorname = xlApp.Cells(Zeile, 71).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Anaesthesie_name = xlApp.Cells(Zeile, 72).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Tel_Anaesthesie = xlApp.Cells(Zeile, 73).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fax_Anaesthesie = xlApp.Cells(Zeile, 74).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Email_Anaesthesie = xlApp.Cells(Zeile, 75).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Kardiologie_anrede = xlApp.Cells(Zeile, 76).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Kardiologie_vorname = xlApp.Cells(Zeile, 77).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Kardiologie_name = xlApp.Cells(Zeile, 78).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Tel_Kardiologie = xlApp.Cells(Zeile, 79).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fax_Kardiologie = xlApp.Cells(Zeile, 80).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Email_Kardiologie = xlApp.Cells(Zeile, 81).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Innere_anrede = xlApp.Cells(Zeile, 82).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Innere_vorname = xlApp.Cells(Zeile, 83).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Innere_name = xlApp.Cells(Zeile, 84).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Tel_Innere = xlApp.Cells(Zeile, 85).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fax_Innere = xlApp.Cells(Zeile, 86).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Email_Innere = xlApp.Cells(Zeile, 87).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Monitore_in_IMC = xlApp.Cells(Zeile, 88).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Monitore_in_ZNA = xlApp.Cells(Zeile, 89).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Monitore_in_Stroke_unit = xlApp.Cells(Zeile, 90).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Telemetrie_Monitore = xlApp.Cells(Zeile, 91).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Transportmonitore = xlApp.Cells(Zeile, 92).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.VSM_300_Wettbewerb = xlApp.Cells(Zeile, 93).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.SPOT_Wettbewerb = xlApp.Cells(Zeile, 94).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Lighting = xlApp.Cells(Zeile, 95).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Defibs = xlApp.Cells(Zeile, 96).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Cardio_in_Funktionsdiagnostik = xlApp.Cells(Zeile, 97).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.EKG_Cardio_auf_Station_EKG = xlApp.Cells(Zeile, 98).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Holter_Hersteller = xlApp.Cells(Zeile, 99).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.ABPM_Hersteller = xlApp.Cells(Zeile, 100).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Thermo-Hersteller = xlApp.Cells(Zeile, 101).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.BP-Hersteller = xlApp.Cells(Zeile, 102).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Thermometrie_Produkt = xlApp.Cells(Zeile, 103).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Manschette = xlApp.Cells(Zeile, 104).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Fachhandel = xlApp.Cells(Zeile, 105).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.UMS_SAP_2007 = xlApp.Cells(Zeile, 106).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.WA_UMS_2006 = xlApp.Cells(Zeile, 107).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Thermo_UMS_WA_2006 = xlApp.Cells(Zeile, 108).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.FH_fuer_BP = xlApp.Cells(Zeile, 109).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Acuity_Installationen_auf_Stationen = xlApp.Cells(Zeile, 110).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.CP100_200_in_Stueck = xlApp.Cells(Zeile, 111).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.Save True, True, True ' Dokument speichern '
Next
End Sub-----------
hab halt alles so benannt wie es in der Exceltabelle war.
für die Eindeutigkeit. 
der fehler kommt erst bei starten des agents
%edit
Code in Tags gesetzt /diali
liegt es vielleicht daran das ich den feldern lange namen gegeben habe?
zb:
doc.Abteilung1_Mitarbeiter_Name = xlApp.Cells(Zeile, 1).Value ' Zelle in Spalte A auslesen und in Feld "Abteilung1_Mitarbeiter_Name" schreiben'
oder muss ich auf groß und kleinschreibung achten?
Nachdem ich nun alles mühsam eingegeben habe alles gespeichert habe und den agent dann starten wollte kam die meldung.
"illegal use of property"
was kann das bedeuten?
ist das mit den spalten nun korrekt?
---
doc.FeldA = xlApp.Cells(Zeile, 1).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.FeldB = xlApp.Cells(Zeile, 2).Value ' Zelle in Spalte B auslesen und in Feld FeldB schreiben'
doc.FeldB = xlApp.Cells(Zeile, 3).Value ' Zelle in Spalte C auslesen und in Feld FeldC schreiben'
doc.FeldB = xlApp.Cells(Zeile, 4).Value ' Zelle in Spalte D auslesen und in Feld FeldD schreiben'
doc.FeldB = xlApp.Cells(Zeile, 5).Value ' Zelle in Spalte E auslesen und in Feld FeldE schreiben'
doc.FeldB = xlApp.Cells(Zeile, 6).Value ' Zelle in Spalte F auslesen und in Feld FeldF schreiben'
.
.
.
doc.FeldFA = xlApp.Cells(Zeile, 60).Value ' Zelle in Spalte FA auslesen und in Feld FeldFA schreiben'
---