Suchergebnisse

Ja, denn ich habe die Werte die ich mehrmals brauchte in Variablen umgeleitet, weiterverarbeitet und dann in das Word Dokument eintragen lassen. Es sieht so aus als wenn man einmal mit vba eine Textmarke gefüllt hat sie nicht mehr für weitere Zuweisungen über Ref verfügbar ist.

Ja bei allen soll das gleiche Format sein denn da kommen nur Preise in das Word Dokument. Habe mir bald schon gedacht dass du das aus dem Ärmel schüttelst. Dann habe ich noch eine Frage zum schließen einer Anfrage? Ich habe für Word eine Frage aufgemacht mir aber selber eine Umgehung gebaut. Wie schließe ich denn so etwas? Das erste Mal ging es einfacher aber jetzt kann ich keinen Haken machen.

Ich habe eine Umgehung gemacht und bin damit zufrieden!

Option Explicit 'In dieser Konstanten speichern wir uns 'den Pfad und den Dateinamen der Adressliste (Excel) 'Bitte entsprechend anpassen! Private Const sAdressDatei As String = _ "C:\Users\Service\Documents\Kuvex\Produktion\VRM_Zeitungen.xlsm" 'Wie heisst das Tabellenblatt, auf welchem sich die Adressen befinden? 'Bitte entsprechend anpassen! Private Const sTabellenblatt As String = "Auswahl" Private Sub CommandButton1_Click() Dim oExcelApp As Object Dim oExcelWorkbook As Object Dim lZeile As L…

Habe noch eine Kleinigkeit die ist auch unangenehm für mich weil ich da ein Feld beim überspielen immer vorbereiten muss. Aus einer Listbox geht ein Euro Feld nach Word aber die Spalte Cent und das Währungszeichen wollen nicht. Ich kann mal alles schicken aber nur wenn du Lust hast....

Ich befülle die Textmarken mit diesem Code: Do While .Cells(lZeile, 1) <> "" 'Wenn der Eintrag der Listbox mit dem Namen in der Adresstabelle 'übereinstimmt, dann werden die Textmarken gefüllt! If ListBox1.Text = CStr(.Cells(lZeile, 1).Value) Then 'Eintrag gefunden, Textmarken füllen ActiveDocument.Bookmarks("GP_Nummer_ERP").Range.Text = _ CStr(.Cells(lZeile, 1).Value) ActiveDocument.Bookmarks("Anrede").Range.Text = _ CStr(.Cells(lZeile, 2).Value) ActiveDocument.Bookmarks("Titel").Range.Text = _…

Mal abgesehen von der mdb Datei, ich denke es ist Access, ich habe ja das Grundgerüst stehen und ich dachte es wäre jetzt kein Problem einfach diese Verknüpfungen zu machen. Im Prinzip ist es aber so, ich füge einfach von Excel VBA Daten ein die sich jetzt aber durch Word selbständig wiederholen sollen. Ich brauche nur die Logik von Excel um den Inhalt z.B. bei dem Feld Anrede richtig zu stellen.

Also ich habe ein Word Dokument welches ich durch Textmarken wie Anrede Titel Vorname Nachname etc. über einen VBA code auffülle. Auf dem Word Dokument habe ich dann noch einmal Anrede Titel und Nachname vergeben diese aber dann mit einer ref auf die entsprechenden Textmarken codiert. Da ich alles für viele Unterschiedliche Adressen verwenden will habe ich mir eine Listbox dazwischen geschaltet aus der ich eine Adresse geziehlt auswählen kann. Jetzt werden nur die Textmarken gefüllt aber nicht d…

Also ich habe ein Word Dokument welches ich durch Textmarken wie Anrede Titel Vorname Nachname etc. über einen VBA code auffülle. Auf dem Word Dokument habe ich dann noch einmal Anrede Titel und Nachname vergeben diese aber dann mit einer ref auf die entsprechenden Textmarken codiert. Da ich alles für viele Unterschiedliche Adressen verwenden will habe ich mir eine Listbox dazwischen geschaltet aus der ich eine Adresse geziehlt auswählen kann. Jetzt werden nur die Textmarken gefüllt aber nicht d…

Bei meinem Word werden die Querverweise von Textmarken die durch VBA Excel gefüllt wurden nicht angenommen. Wo kann das Problem liegen?

Ja aber das geht doch mit der Rechten/Linken Maustaste doch super! Auf das wäre ich ja nie gekommen! Ich kann mir das nehmen und auf meine Bedürfnisse umbauen. Klasse lass dich loben. Ich freue mich.

Dies ist eine xlsm Datei deren Endung ich umbenennen musste.

Ich habe jetzt eine Beispieldatei produziert um die wahren Daten zu schützen..... Wie kann ich sie dir denn schicken?

Ich poste mal den ganzen code. Da sind 4 Listboxen und es sollen Listbox1 nach Listbox2, Listbox3 nach Listbox4 mit Einzelauswahl oder Multiselect bearbeitet werden. Anschließend nehme ich dann die Resultate heraus und verarbeite sie weiter.....muss ich aber noch schreiben: Dim lzeile, mzeile, i, j, counter12, counter34, LB_B12_Rows, LB_B34_Rows As Variant Dim LB_A12, LB_B12, LB_A34, LB_B34 As Control 'Variablen Private Sub CheckBox1_Click() If CheckBox1.Value = True Then For i = 0 To ListBox1.L…

Ich habe noch keine Ahnung wie ich das alles machen kann. Ich habe aber dem Administrator geschrieben er möge es in das Forum Excel übertragen. Ja mit dem Multiselect gibt es komische Ergebnisse. Da geht es so nicht. Das Thema habe ich ändern können aber wie schaffe ich jetzt alles nach Excel? Dann gibt es bei Währungsspalten Probleme die ich so beseitigt habe: Visual Basic-Quellcode (12 Zeilen) Code-Tags eingefügt. ~Thunderbolt

Habe ich gleich heute Morgen ausprobiert und es funktioniert! Sehr schön und jetzt kann ich weiter machen denn die nächste Aufgabe für mich ist es mehrere Selektierte zu kopieren. Aber ich habe jetzt ja eine neue Grundlage für mein Coding, ich probiere dann mal.

Doch doch genau die finde ich bei mir nicht. Ich bin heute das erste Mal im VB-Paradise und kenne mich noch nicht richtig mit dem Forum aus.

In meinem Office Professional 2016 fehlt dem VBA einiges wie in den Tags angezeigt. Was kann man da machen? Also es fehlt Selecteditem in Listbox1.SelectedItems oder in listbox1.items gibt es kein items. Aber vielleicht kann mir jemand helfen weil ich es nicht schaffe von einer Listbox1 in eine Listbox2 zwei Spalten aus einem selektierten Eintrag zu kopieren. Mein Code ist: Visual Basic-Quellcode (3 Zeilen) Leider wird nur die erste Spalte kopiert. Verschoben. Code-Tags eingefügt. (Du schreibst,…