Zelle mit SVerweis direkt ersetzen?

[mrtc]

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.

[Oldiefan]

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

[mrtc]

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.

[schauan]

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 …

[marose67]

Hallo,
mit Hilfe von VBA könnte man so etwas bewerkstelligen. Hier mal ein Ansatz:
  Eingabe in Zelle - Ergebnis in der selben Zelle1.xlsm (Größe: 17,61 KB / Downloads: 1)

Gruß
Marcus

[marose67]

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