AW: fast perfekt; bitte auch jemand anders
14.02.2012 09:09:07
Oberschlumpf
hast du Angst, uns deinen Vornamen zu verraten?
Hallo ?
Kannst du es so programmieren, das wenn ich den erste Buchstaben einegebe, schon dieersten Länder mit den Buchstabenanfang erscheinen, so das man möglichst wenige Buchstaben des Landes eingeben braucht.
Nein, ich weiß nicht, wie das geht.
Ist es eigendlich zwingend notwendig, das die "Vorgaben Land, Ort, Strasse" auf den selben Arbeitsblatt sind, oder kann man es auch so machen, das die Angaben in einer anderen Arbeitmappe zu finden sind, oder ggf. auf einem anderen Arbeitsblatt der gleichen Mappe?
Nein, es ist nicht notwendig, und ja, die Quellen-Daten könnten sogar auch in einer anderen Datei stehen.
Aber das ist genau das, was ich schon erwähnte.
Bei jeder Design- und/oder Quellenänderung muss ein Code angepasst werden.
Das bedeutet, so lange neue Programmierung, bis der Fragende zufrieden ist...hmm...kann sich das der Fragende denn auch leisten?!?
Ich mag dieses hin und her nicht!
Warum zeigst du uns nicht eine Bsp-Datei, in der es von Anfang an genau so aussieht, wie du es auch in 2 Monaten noch haben willst?
Ach so, du weißt heute noch nicht, was du morgen haben willst?
Dann mach dir halt so lange Gedanken, bis du es genau weißt.
Normalerweise mach ich das nicht, den Code zig mal anpassen.
Aber zeig mir halt alle Dateien, die notwendig sind, damit ich den Code 1x noch anpassen kann.
(denn natürlich fragst du zwar, ob es möglich ist, aber wie hättest du es denn gern? Eine oder mehrere Bsp-Datei(en) hast du natürlich nicht geliefert)
Wäre gut, wenn noch jemand den Fehler abfangen könnte...
Lösch diese Code-Zeile
lstrList = Left(lstrList, Len(lstrList) - 1)
und ersetz sie durch diesen Code
If lstrList "" Then
lstrList = Left(lstrList, Len(lstrList) - 1)
Else
MsgBox "Für die aktuelle Auswahl existieren noch keine Daten." & vbCrLf & _
"Fügen Sie die fehlenden Daten den Quellenlisten hinzu.", vbInformation, "Hinweis"
Exit Sub
End If
Ciao
Thorsten