Adressbuch in excel suche über VB6
  HI ..

Ich habe in Excel ne Tabelle mit Adressen und Telefonnummern und co ... jetzt möchte ich sozusagen mit VB6 ein Programm schreiben wo es dann einen Kriterienbereich hat wo man die Kriterien eingeben kann dann auf suche klicken und dann zeigt es unten die gefundenen adressen und co an ...

kennt jemand einen code wo ich sozusagen über VB die daten von Excel holen kann ? und wie mache ich die suche in excel dann muss ich nurnoch diese zellen dann holen und nicht über vb die tabelle durchsuchen mit einem spezialfilter geht es ja nicht der sich nicht aktualisiert wenn sich die Kriterien ändern ..

danke für eure hilfe und ich hoffe man versteht mein Problem ..

mfg Jeffrey

Am Sun, 9 Oct 2005 00:15:52 +0200 schrieb Hubert Holler:

> Ich möchte gerne eine bestimmte Zelle auf Inhalt bzw. die Formel prüfen.
>
> Das ganze soll für einen Test dienen, der automatisch ausgewertet werden
> soll. Für Excel 2000/2003
>
> Hoffe da kann mir jemand weiterhelfen, ob es dafür bereits einen VBA-Code
> oder VB-Projekt gibt, der soetwas lösen könnte.
>
> Vielen Dank für jede Antwort.
> Hubert

Hallo Hubert,

wenn's nicht unbedingt VBA sein muss, dann probier's mal so:

Aktiviere die Zelle rechts neben der zu überrüfenden.
Menue Einfügen >> Name >> definieren >> Namen eingeben (z.B. Inhalt) und
unter "bezieht sich auf" =ZELLE.ZUORDNEN(48;INDIREKT("ZS(-1)";FALSCH))

Gib rechts neben der jeweils zu überrüfenden Zelle =Inhalt ein.
Ergebnis: WAHR, wenn die Zelle eine Formel enthält, FALSCH, wenn sie eine
Konstante enthält.

Achtung: wenn mann z. B. der zu überprüfenden Zelle ändert, wird der
Rückgabewert in der Ausgabezelle nicht automatisch aktualisiert. Man muü in
der Bearbeitungszeile auf die angezeigte TYP Nummer klicken.

--
Gruü Eberhard
XL 2000
Eberhard(punkt)Funke(at)t-online.de

Noch ein Tipp bezüglich "Selbststudium Excel und VBA" (wobei ich sicher bin, dass jeder, der schon mal ein wenig geexcelt hat, das kennt):

Herbers Excel-Server

Da gibt es alles, da bleibt kein Wunsch offen. Klickt dort auch mal auf die Excel-Links.

Doch vor allem das Online-Forum ist sensationell.
Dort findet in 10 Minuten so viel Traffic statt wie beim DC-Board in 24 Stunden.

Wenn man vor einem Problem steht und nicht weiterkommt: Kostenlos registrieren, Frage posten, eine Tasse Kaffee trinken (oder Zigarette rauchen, je nach Gusto) – Seite aktualisieren und mindestens 3 Antworten lesen, mit denen das Problem gelöst ist. Die Jungs sind Weltspitze!

Habe auf diese Weise sehr viel gelernt.
Oder wisst ihr auf Anhieb, wie man vorgeht, wenn z.B. in der Zelle F14, die in eine Formel eingebunden ist, #NV steht (das ist die Fehler-Ausgabe bei Verwendung der Funktion VERWEIS oder SVERWEIS, wenn nichts gefunden wird)?
Normalerweise geht dann gar nix mehr.

Lösung: =WENN(ISTNV(F14);0;WENN(...;...;...))

:pirat: webpirat

hallo,
hatte ich schon bei anderen ähnlich beitrag geschrieben: man kann sich die demo runterladen, dort ist es in der hilfe beschrieben, auf jeden fall braucht man kenntnis von VBA.
In diesem Beispiel werden mit Hilfe einer DDE-Datenaustauschtabelle Sollwerte aus eine Tabelle in MS-Excel 97 nach inVISU PMS gelesen.

¡ Starten Sie den DDE-Editor (Schaltfläche DDE-Editor im Projekt-Manager).

¡ Wählen Sie die Schaltfläche Neu in der Symbolleiste des DDE-Editors. Das Dialogfeld Neu zur Auswahl des Tabellentyps wird geöffnet.

¡ Wählen Sie Datenaustauschtabelle, und bestätigen Sie das Dialogfeld mit OK.

¡ Speichern Sie die neue Datenaustauschtabelle im aktuellen Projekt, damit Sie beim Eintragen von Datenelementen auf die Referenzliste zugreifen können (Schaltfläche Speichern in der Symbolleiste des DDE-Editors). Das Dialogfeld Speichern unter wird geöffnet. Geben Sie der neuen Tabelle unter Dateiname einen Namen, im Beispiel Rasendünger. Bestätigen Sie das Dialogfeld mit OK.

¡ Betätigen Sie in der tabellenspezifischen Symbolleiste die Schaltfläche Eigenschaften bearbeiten, um das Dialogfeld Eigenschaften DATENAUSTAUSCH zu öffnen.

¡ Tragen Sie in der Registerkarte DDE-Verbindung bei Anwendungsname den Namen der Anwendung ein, die DDE-Befehle aus dieser Tabelle erhalten soll, im Beispiel Excel.exe. Unter Anwendungsthema tragen Sie den Namen der Excel-Tabelle ein, mit der Daten ausgetauscht werden sollen, im Beispiel Rasendünger.xls.

¡ Wählen Sie die Registerkarte Trigger. Tragen Sie unter Empfangen start ein inVISU-Datenelement ein, dessen ćnderung das Empfangen der Datenaustauschtabelle von Excel auslösen soll, im Beispiel die Funktionstaste F2.

¡ Bestätigen Sie das Dialogfeld mit OK.

¡ Tragen Sie in die Spalte Element die Datenelemente ein, deren Werte aus der Excel-Tabelle gelesen werden sollen.

Auch hier haben Sie die Möglichkeit, die Elemente aus der Referenzliste auszuwählen. Klicken Sie mit der rechten Maustaste über der Zelle in der Spalte Element, um das Dialogfeld Elementauswahl zu öffnen. (Denken Sie daran, dass die Liste der Laufzeitelemente erst aktualisiert wird, wenn Sie die Laufzeit starten.) Wählen Sie das Element, und bestätigen Sie das Dialogfeld mit OK. Automatisch wird in die Spalte Typ der Typ des Datenelementes eingetragen.

¡ Geben Sie in der Spalte Feld das entsprechende Feld in der Excel-Tabelle an.

¡ Speichern Sie die Datenaustauschtabelle (Schaltfläche Speichern in der Symbolleiste).

¡ Legen Sie weitere Datenaustauschtabellen an, oder verlassen Sie den DDE-Editor.

¡ Bevor Sie die Laufzeit starten, denken Sie daran, die DDE-Task in die Programmliste im Projekt-Manager aufzunehmen, Excel zu starten und die entsprechende Excel-Tabelle zu öffnen.

Siehe auch

Die DDE-Task zur Laufzeit starten
Von inVISU PMS Befehle an Excel senden

:shock: SO SIEHT DAS IN DER HILFE AUS, ABER WENN MAN SOWAS ZUM ERSTENMAL MACHST, WöRDE ICH ERST EXPEREMENTIEREN:

MFG
DIETMAR