Wert nicht in benachbarter Zelle
25.04.2007 18:21:20
Wolfgang
gestern konnte ich gute Hilfestellung und Hinweise zum "Datenimport" in Textboxes erhalten. Der nachstehende Code, so konnte ich erfahren und testen, bewirkt, dass ab der Zelle unter der Überschrift "KundeHauptadressePLZ", die nächsten zwei Nachbarzellen in die vorbestimmte Textbox eingefügt werden. Wie müßte der Code aussehen, wenn die gesuchten Werte nicht direkt nebeneinander in benachbarten Zellen stehen? Die weiteren Überschriften: "KundeHauptadresseOrt" und "KundeHauptadresseOrtsteil". Danke schon jetzt wieder für die Rückantworten.
Gruß - Wolfgang
'Postleitzahl - Wohnort - Ortsteil
Set rng = .Rows(1).Find("KundeHauptadressePLZ", LookAt:=xlWhole)
If Not rng Is Nothing Then
txtPLZ.Text = rng.Offset(1, 0).Text & rng.Offset(1, 1).Text & " - " & & rng.Offset(1, 2).Text
End If