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

Worksheetfunction ???

Forumthread: Worksheetfunction ???

Worksheetfunction ???
30.12.2003 15: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 15:32:22
Hajo_Zi
Hallo Thomas

warum VBA

AW: Worksheetfunction ???
30.12.2003 15: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 16:02:56
Thomas H.
Danke für deine Hilfe Chris, funktioniert wunderbar...

Guten Rutsch ins neue Jahr !!!
Thomas H.
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum