Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige