title image


Smiley Re: sverweis mit erweiterter suche Grüße
Noch mal ne Frage,



leider hab ich keine Ahnung von VBA!! Deshalb schilder ich mal kurz meine Excel Arbeitsmappe: Hab die Tabellen angelegt Eingabemaske, Entfernungstabelle, Artikel, Frachtkosten und PLZSuche. In der Tabelle PLZSuche stehen in A1:A13000 alle Orte und in Spalte B1:B13000 alle PLZ. Das Ergebnis der Suche möchte ich allerdings in der Eingabemaske ausgewiesen haben in Zelle I8.

Muss ich jetzt im sub eingeben: Worksheets ("PLZSuche").Range ("A1:B13000")???



Dann kommt bei mir ein Laufzeitfehler 9 raus. So ein Mist!!!!











Re: sverweis mit erweiterter suche

Hi!



Sub OrtPLZ()

Dim Ort, Plz As String

Dim Anz As Long

Dim Sc, Suche As Range

Ort = InputBox("Bitte geben Sie den Ortsnamen ein!")

Set Suche = Worksheets("Tabelle1").Range("A1:A100")



For Each Sc In Suche

If Sc.Value = Ort Then

Lg = Lg + 1

Plz = Plz & Ort & ", " & Sc.Offset(0, 1).Value & Chr(13)

End If

Next Sc



If Plz = "" Then

MsgBox "Keine Übereinstimmung gefunden!"

Else

MsgBox Lg & " Einträge gefunden:" & Chr(13) & Plz

End If

Set Suche = Nothing

End Sub



Das sollte helfen



Grüße



LXus





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: