---

Hallöle,

habe folgendes Problem:
1. ich kann wenig VBA (ist wohl das größe Problem)
2. ich habe eine Tabelle mit einem Stichwort (Spalte A) und einer Seitennummer (Spalte B) -> ist die Seite in einem Katalog. Ich muß jetzt ein Stichwortregister erstellen und zwar nach folgenden Regeln:

Wenn ein Stichwort auf einer Seite vorkommt, dann Stichwort plus die Seite; BP: "VBA Buch 120"
Kommt ein Stichwort in mehreren, unterschiedlichen Seiten vor, dann Stichwort plus Seite A, Seite G, Seite Z usw.; BP: "VBA Buch 120, 125, 130"
Kommt ein Stichwort in mehren, aufeinander folgenden Seiten vor, dann Stichwort plus Seite A - X; BP: "VBA Buch 120 - 125"
Natürlich gibt es auch alle Varianten. BP: "VBA Buch 120, 130 - 140, 156, 178 - 190, 200"

Das VBA sollte die Tabelle nach unten durchlaufen und bei gleichem Stichwort nach den Reg prüfen, in einer temporäre Tabelle ergänzen und wenn ein neues Stichwort kommt den Ergebnissatz in eine Tabelle schreiben.

Kann mir da wer helfen? Ist leider auch sehr dringend.

------------------
u never know!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo hollodrio,

willkommen auf CAD.de!

Gegenfrage: Mit welchem Programm erstellst Du die Stichworte? Klingt sehr nach Textverarbeitung. Gibt es da keine Funktion / Add-In / Zusatzprogramm (z. B. Endnote), das so etwas komfortabel erledigt?

Zitat:

---

1. ich kann wenig VBA (ist wohl das größe Problem)
...
Ist leider auch sehr dringend.

---

Soso... Willst Du was lernen - oder fertigen Code auf dem Silbertablett bekommen? SCNR

Am besten, Du hilfst uns ein wenig und lädst eine Beispielmappe hoch - sensible Daten raus, in .xls.txt umbenennen. Muss es VBA sein? Hast Du schon mit Excel-Bordmitteln herumprobiert?

Gruß
Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mahlzeit,
ja, bitte ein Silbertablett 
ich muß aber auch sagen, da hast Du Dir nicht die einfachste Aufgabe überlegt, um einen Einstieg ins VBA zu bekommen.
Ich hab aber trotzdem mal der lieben Nancy    was von der Wäscheleine geklaut 
-> als txt-Datei:  öffnen und Text in ein Modul einfügen

Is nich elegant, aber ich hoffe, es tut so wie soll.
Viel Spaß damit, gleich vorweg: ich werde es nicht weiter an irgendwelche Sonderwünsche anpassen, wollte gestern Abend nur selber gucken, ob ich sowas einigermaßen hinbekomme, denn wie Paulchen  schon erwähnt hat, hier is nicht Wünsch-Dir-was 

ACHTUNG: Die Daten werden in die Tabelle zurückgeschrieben, und zwar in eine Zelle. Die max. Zeichenzahl ist auf 255 beschränkt -> es kommt recht schnell zum Fehler, bei meinen einfach gestrickten Daten (Stichwörter: a,b,c usw.) war bei ca. 200 Zeilen Schluß.
Ich bin mir sicher, das machen andere eleganter und weniger anfällig.
Ich jedenfalls hab genug 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info    Excel -Suche    RuA-Suche    FAQ-ACAD    Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sortundlist.zip

*snipp* vorher a und b sortieren
durchlaufe Stichworte
wenn neues Stichwort dann schreibe in Zelle, wenn alter Seitenstring vorhanden, dann schreibe den neben die alte Stichwortzelle 

merke Seite -in String ,
wenn Stichwort = stichwort; abfrage mit eventuell vorhandenem Seitenstring, baue string...
wiederhochlaufen bis eof ,) *snipp*

Anbei Spielei,

First, Sort ;-) erleichtert manchmal die Arbeit

Erste Formel listet die Stichwörter ohne Dupli auf
dann 10 Spalten nach rechts Ermittelung der Seitenangaben die in B stehen,
wenn zu einen Stichwort mehr als 10 Seiten bestehen, die Formeln entsprechen weiterkopieren und Zeile A grün hinterlegt, die zahlen 1-10 erweitern 

Auf eine automatisch Zusammenbauen der Seitenzahlen aka 1,3-5,55,57-59 habe ich bewusst verzichtet, das ist dann per Makro vielleicht wirklich sinnvoller - aber will nicht heissen, das es nicht per Formel möglich wäre  *da sind schleifen wirklich leichter als eine komplexe Matrix, die einen festhält, wie ein Klettverschluss*;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

    Deshalb kommt auch hier keine Rückmeldung mehr....   
Ich sagte ja, andere machen es eleganter, aber crossposten is bah, pfui.
@hollodrio: Du kennst die LuckyLuke-Comics? Fühl Dich geteert, gefedert und aus der Stadt getragen! Wenigstens ne Rückmeldung mit der Lösung aus dem anderen Forum hätte ich von Dir erwartet.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info    Excel -Suche    RuA-Suche    FAQ-ACAD    Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@ rübe, ;-)
nimm es nicht so tragisch,

Obgleich bei innerer Betrachtung:
- keine Rückmeldung (egal ob es geklappt hat oder nicht),
- Crosspostings, weil mangels Zeit, Skill or whatever - ist eh' absolut sich bezogen;-)
- und der leider auch der Blick auf Anzahl der Beiträge
- sowie so der Konsens eines Eingangsthreads

lässt manchmal

die Motivation gegen Null tendieren - Naja, Spielereien sind ja unabhängig davon  

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP