Ergänze Zelle um Wert

[lion7123]

Servus,
ich hoff mir kann mal wieder jemand bei nem kleinen vba problemchen helfen   bin ja nicht gerade der Meister .... vill noch nicht mal lehrling  

Also ... :

Spalte F  // Zeile 10 bis 300 (Textinhalt: PLZ & Ort + Zusatztext)

Hier ist die möglichkeit entweder eine Manuelle eingabe zu machen,
oder aber der SVerweis erkennt die eingabe aus der Nachbarzelle in Spalte D und trägt PLZ und Ort automatisch ein

jetzt zu meinem Anliegen.... in beiden fällen, kann es vorkommen, dass man noch einen kleinen Zusatztext mit anghängen muss ...
Insgesamt gibt es ca. 5 kleine Texte die nummeriert sind und abseitz am Seitenrand aufgelistet sind

Bei der Eingabe in Spalte F, egal ob Manuell oder mit Sverweis, würde ich gerne mit Tab in die nächste Spalte G springen und dort per Nummerneingabe
den Zusatztext bestimmen der angehängt werden soll.

Ich hoff das war verständlich ... :20: 
Falls nich, sagt bescheid dann lad ich ne datei hoch

Danke schonmal
Gruß

[schauan]

Hallöchen,

wenn Du die Nummer eingegeben hast kannst Du dann auch den Text mit SVERWEIS in die Nachbarzelle holen.

[lion7123]

Hi,
jo da hab ich vorhin beim erklären nen denkfehler gehabt ...
wenn die eingabe in spalte F durch den SVerweis gemacht wird, kann ich den Zusatztext mit anhängen indem ich Verketten benutze...
aber sobald ich eine Manuelle eingabe mache, ist ja die Formel weg in Spalte F.

Oder gibts da ne möglichkeit die ich noch nich weis?

[WillWissen]

Hi,

du kannst nur entweder eine Formel nutzen oder manuelle Eingaben machen. Bei händischer Eingabe bleibt die Formel weg.

[lion7123]

darum habe ich ja an VBA gedacht ...
und gewisse beispiele in div. Foren funktionieren wohl auch ... nur mein Problem ist, das ich diese Schleifen Sache nich kapiere..
bzw nicht ganz ... weil, dass ich einem Wert ein Symbol zuweis kenn ich zwar von anderen Sachen her schon, aber was für einen Wert...  
das kapier ich irgendwie nich ...

habs auch schon versucht zum durchlesen was die Werte an sich bedeuten bsp: string, long, und wie des zeug alles heißt aber ich werd da nich schlau draus oder war auf den falschen seiten

[WillWissen]

Hi,

bei VBA kann ich dir nicht direkt helfen; erst gestern ist aber für ein ähnliches Problem dieses Video https://www.youtube.com/watch?v=ApnKNK1Lv7A empfohlen worden. Vllt. hilft's dir weiter,

[lion7123]

ja das video sieht schon so aus als wenn es in die gleiche richtung geht ...
aber genau da hab ich jetzt mein problem ... ich hab jetzt die ganze zeit versucht das so hinzubekommen, dass es bei mir klappt ... aber ich schaffs einfach nich.
HILFE !!! irgendwer !!! :22:

[WillWissen]

Hi,

ich schätze, dann wirst du eine Beispieldatei, die vom Aufbau her deinem Original wie ein Zwilling gleicht, hier hochladen müssen. Sensible Daten solltest du natürlich anonymisieren. Und es reichen ein paar wenige Datensätze. https://www.clever-excel-forum.de/Thread...ng-stellen

[schauan]

Hallöchen,

im Prinzip geht das so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F10:F100")) Is Nothing Then
  If Target = "" Then Target.FormulaR1C1 = "=VLOOKUP(RC4,R1C8:R5C9,2,FALSE)"
End If
End Sub

Den Code für die Formel könnte man aufzeichnen. Probiere da mal verschiedene Varianten (Absolut/Relativ) durch. R=Zeile, C=Spalte Ich hab hier einen SVErweis auf H1:I5
Der Code wirkt von F10 bis F100, lässt sich auch Easy anpassen.
Er kommt in das Codemodul vom Tabellenblatt, wo er wirken soll.

[lion7123]

Servus,
also erstmal noch vielen danke für den Code :19: , war nur leider am Wochenende nicht in der nähe vom PC...
ich hab mich jetzt gestern und heute längere Zeit damit beschäftigt allerdings stell ich mir immer wieder die Frage,
wie ich excel bei der manuellen Eingabe erklären soll noch einen 2. Sverweis anzuhängen. Nur evtl unter Verwendung eines Buttons der den Code einmalig auslöst. :20:

ich hab hier jetzt mal eine Testdatei um die Sache auch einfacher zu gestalten ...
evtl. habt ihr eine Idee ... oder ich muss bei meiner derzeitigen Formellösung bleiben...
bzw die aktuelle Formel in VBA umbauen damit die Formel nicht mehr in der Zelle steht und es excel auch leichter mit den berechnungen hat, oder ?

Meine Befürchtung ist nur das Excel vill irgendwann streiken könnte bei zu vielen "wenns mit verweisen" und das ganze über dreihundert zeilen mit externen bezügen usw.

So ich bin gespannt was ihr zu der aktuellen lösung sagt und sag schonmal danke für alle kommenden ideen und anregungen