Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zelle mit SVerweis direkt ersetzen?
#1
Hallo,

ist es möglich mit SVerweis das Suchkriterium direkt zu ersetzen?

Das Suchkriterium ist in A1. Jetzt möchte ich das der zurückgegeben Wert nicht in z.B. B1 steht,
sondern dieser sollte direkt A1 ersetzen.
Antworten Top
#2
Hallo!

Ohne VBA nicht direkt, weil das Zirkelbezüge gibt. Was du machen kannst, ist, das Ergebnis in meinetwegen B1 auszugeben und dann als Wert nach A1 kopieren.

Liebe Grüße
Alex
Antworten Top
#3
So habe ich es bisher auch gemacht, ist aber leider ein riesen Datenblatt und es sind nur einzelne Zellen bei denen dies Vorkommt.

Dann werde ich es wohl so beibehalten.

Trotzdem vielen Dank.
Antworten Top
#4
Hallöchen,

Du kannst eine Formel in einer kompletten Spalte anwenden. Im Prinzip eine Formel für wenn SVERWEIS was findet, dann das, sonst das was schon drinsteht. Dann kannst Du die komplette Spalte kopieren …
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#5
Hallo,
mit Hilfe von VBA könnte man so etwas bewerkstelligen. Hier mal ein Ansatz:
.xlsm   Eingabe in Zelle - Ergebnis in der selben Zelle1.xlsm (Größe: 17,61 KB / Downloads: 1)

Gruß
Marcus

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Antworten Top
#6
Hallo,

hier einmal ein Codeschnipsel mit select Case:



Private Sub WorkSheet_Change(ByVal Target As Range)
Dim Speicher As Variant
   
    Application.EnableEvents = False
    Speicher = Range("A2").Value
        Select Case Speicher
            Case Is = 1
                Range("A2") = "sehr gut"
            Case Is = 2
                Range("A2") = "gut"
            Case Is = 3
                Range("A2") = "befriedigend"
            Case Is = 4
                Range("A2") = "ausreichend"
            Case Is = 5
                Range("A2") = "mangelhaft"
            Case Is = 6
                Range("A2") = "ungenügend"
        End Select
        On Error GoTo ende
    Application.EnableEvents = True
ende:
    Exit Sub
End Sub

Dabei brauchst Du keinen Schalter. beim verlassen der Zelle klappt das von alleine.


Gruß
Marcus

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste