Thema Datum  Von Nutzer Rating
Antwort
23.02.2008 19:00:05 Hansi
NotSolved
Blau Aw:Arrays
 25.02.2008 11:04:48 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
25.02.2008 11:04:48		 Views:
985		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Arrays
Hallo Hansi,
natürlich kannst du dir ein Array anlegen. Damit es zur Laufzeit des Programms mit "ReDim Preserve" erweiterbar bleibt, solltest du die Anzahl der Schlagwörter je Zeile im ersten Index und die Anzahl der Zeilen im zweiten Index führen, also z.B. Arrayname(5,0). So kannst du bis zu 6 Schlagwörter je Eintrag verwalten und mit ReDim Preserve Arrayname(5,neue_Zeilenzahl) das Array ohne Datenverlust erweitern.
Ich empfehle darüber hinaus, die Daten ein einer Datei zu speichern, falls du sie nicht im Workbook führst, z.B.:
Speicherung:
Open Dateipfad_und_Name for Output As #1 'z.B. C:\Schlagwörter.txt
for i=0 to ubound(Arrayname,2)
for j=0 to 4
write#1,Arrayname(j,i), 'Achte auf die Bedeutung des Kommas in der VBA-Hilfe
next j
write#1,Arrayname(5,i) 'so kannst du dir die Datei zeilenweise in Word anzeigen lassen und auch bearbeiten
next i
close#1

Lesen:
ReDim Arrayname(5,0)
Open Dateipfad_und_Name for Input As #1
i=-1
do until eof(1)
i=i+1
ReDim Preserve Arrayname (j,i)
for j=0 to 5
input#1,Arrayname (j,i)
next j
loop
close#1

Hoffentlich hilft dir das weiter
Holger


Hansi schrieb am 23.02.2008 19:00:05:

Hallo,

Ich habe folgendes Problem:

Zum einen habe ich ein Tabellenblatt in dem in den Zellen einer Spalte Text steht. Dieser Text soll nun nach bestimmten Schlagworten durchsucht werden und - je nach Schlagwort - ein Kenner in eine Nachbarzelle gespeichert werden. Dabei gehören immer 3-4 Schlagwörter zu einem Kenner.

Ich hatte nun vor alle Schlagwörter in einem Array abzulegen wobei die zusammengehörigen Schlagwörter immer ein einer Zeile stehen sollten.

Dann solle die Suche mit zwei Schleifen Zeile für Zeile und Schlagwort für Schlagwort den aus der Zelle ausgelesenen Text mit "like" vergleichen und je nach Zeile den entsprechenden Kenner in der Nachbarzelle ablegen.

Meine Frage ist nun wie ich das Array am einfachsten definiere (Syntax) bzw ob das so überhaubt möglich ist.

Danke

Hans

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.02.2008 19:00:05 Hansi
NotSolved
Blau Aw:Arrays
 25.02.2008 11:04:48 Holger
NotSolved