Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheetfunction ???

Forumthread: Worksheetfunction ???

Worksheetfunction ???
30.12.2003 14:30:31
Thomas H.
Hallo NG,

so kurz vor dem Jahreswechsel brauch ich nochmal eure hilfe. Ich habe eine Tabelle in der alle Postleizahlen und Ortschaften aufgelistet sind. Ich möchte nun mit einem kurzen Makro noch Postleizahlen suchen können...
Leider schaffe ich es nicht das bei dem Befahel worksheet 

Function der Bereich der durchsucht werden soll erkannt wird... (Anbei mein code, bin für jede Hilfe dankbar)
Danke und einen guten rutsch im vorhinein
Thomas H.


Sub Ort_suchen()
a = InputBox("Nach welcher Postleitzahl suchen Sie ?", "Abfrage")
b = WorksheetFunction.VLookup(a, ???, 2, False)
c = MsgBox("Der von ihnen gesuchte Ort hat den Namen " & b, vbOKOnly)
End Sub
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheetfunction ???
30.12.2003 14:32:22
Hajo_Zi
Hallo Thomas

warum VBA

AW: Worksheetfunction ???
30.12.2003 14:38:15
ChrisL
Hi Thomas

Option Explicit


Sub Ort_suchen()
Dim a As Long, b As String
On Error Resume Next
a = InputBox("Nach welcher Postleitzahl suchen Sie ?", "Abfrage")
b = WorksheetFunction.VLookup(a, Worksheets("Tabelle1").Range("A1:C65536"), 2, False)
If b = "" Then
MsgBox "Die gesuchte Postleitzahl ist im Verzeichnis nicht vorhanden.", vbInformation
Else
MsgBox "Der von ihnen gesuchte Ort hat den Namen " & b, vbOKOnly
End If
End Sub


Gruss
Chris
Anzeige
AW: Worksheetfunction ???
30.12.2003 15:02:56
Thomas H.
Danke für deine Hilfe Chris, funktioniert wunderbar...

Guten Rutsch ins neue Jahr !!!
Thomas H.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige