Office: (Office 365) Zellenwert wenn Bedingung erfüllt in ein Textdokument exportieren

Hi,
ich hoffe mir kann hier jemand weiterhelfen, ich schaffs leider nicht.
Die Suche hat mir leider auch nicht das gebracht was ich brauche.

Folgende Situation, ich möchte mir eine Excel erstellen das aus einer Liste von Plänen
auf Knopfdruck die Plannummer hintereinander in ein Textdokument (z.b. Word) schreibt.
Dabei soll noch eine Bedingung erfüllt werden und zwar nur die Pläne aus einem bestimmten Bericht.

Die Tabelle sieht vereinfacht wie folgt aus:

Plan Nr. Index Bericht

UG B-001 a -1
EG B-002 -1
1.OG B-003 a -2
2.OG B-004 b -2

UG S-001 c -1
EG S-002 a -1
1.OG S-003 d -1

Auf Knopfdruck sollen nun z.b. alle Pläne aus Bericht -1, in ein Textdokument geschrieben werden, hier:

B-001a, B-002, S-001c, S-002a, S-003d,

und später dann alle Pläne aus Bericht -2 in eine weiteres Textdokument.
Im Idealfall heißt das Textdokument auch noch gleich wie das Suchkriterium z.b. -2.

Ich fange leider gerade erst an mich VBA zu beschäftigen und komme bisher noch
nicht sehr weit, mit so einer Funktion währe mir aber echt sehr geholfen.

Vielen Dank schonmal für die Hilfe

 

Hallo,

ich habe in der beiliegenden Excel-Datei Folgendes eingefügt:
1) Ich habe deine "Tabelle" in eine einfach zu handhabende strukturierte Tabelle namens "TabPlaene" umgewandelt.
2) Ich habe einen Button "Bericht erzeugen" eingefügt. Klickt man auf diesen, wird nachgefragt, welche Berichtnummer abgefragt/erzeugt werden soll. Es wird dann ein Abfrage-String erstellt, der in eine Word-Datei ausgegeben wird. Diese befindet sich im selben Verzeichnis wie diese Excel-Datei und heißt "BerichtNr-Nr.docx", wobei "-Nr" die abgefragte Nummer ist.

 

Super schau ich mir heute Abend gleich an.

Vielen Dank schonmal :-D

 

Funktioniert Super vielen lieben Dank

Nur was leider nicht richtig funktioniert ist die Datei gespeichert wird.
Die wird ohne die Endung .docx gespeichert so das ich jedes mal erst Word zum öffnen auswählen muss.
Kann an das noch optimieren?

 

Hallo,

ich habe dir das Makro geringfügig modifiziert, sodass ".docx" explizit an den Dateinamen angefügt wird, da du offenbar ".docx" nicht als Default-Worddokumenten-Erweiterung festgelegt hast.