Sverweis mit vba

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Sverweis mit vba
von: Brandt
Geschrieben am: 09.09.2015 13:24:34

Hallo Zusammen
Habe eine Frage zum sverweis mit VBA
Habe auf dem Activesheet von Zeile B17 bis B34 Bezeichnungen in Englisch. Diese Bezeichnungen wollte ich mit einer Sverweis Funktion ins Deutsche übersetzen. Hierzu hatte ich mir eine separate Tabelle "Dropdownfelder angelegt wo die Übersetzungen vorhanden sind.
Hatte dies mit der ersten Zelle B17 ausprobiert und funktioniert auch soweit (s. Quellcode unten).
Wollte dies nun über eine Schleifenfunktion bis Zelle 34 wiederholen was ich nicht hinkriege
Quelltext:
'Falls Zeile schon übersetzt worden ist dann springe zur Fehlermeldung
On Error Resume Next
ActiveSheet.Range("B13") = Application.WorksheetFunction.VLookup(Range("B13").Value, Worksheets("Dropdownfelder").Range("AI4:AJ36"), 2, False)
MsgBox "Zelle wurde schon übersetzt"
Vielleicht hat von Euch einer eine Idee

Bild

Betrifft: AW: Sverweis mit vba
von: fcs
Geschrieben am: 10.09.2015 06:02:03
Hallo Brandt,
probiere es mal in die folgende Richtung
Gruß
Franz

Sub TestBrandt()
    Dim wks As Worksheet
    Dim Zeile As Long
    Dim varResult As Variant
    
    On Error Resume Next
    
    Set wks = ActiveSheet
    
    With wks
        For Zeile = 17 To 34
            With .Cells(Zeile, 2)
                varResult = .Value
                varResult = Application.WorksheetFunction.VLookup(.Value, _
                        Worksheets("Dropdownfelder").Range("AI4:AJ36"), 2, False)
                If varResult = .Value Then
                    If MsgBox("Zelle in Zeile """ & Zeile & """ wurde schon übersetzt", _
                        vbOKCancel, "Übersetzen") = vbCancel Then Exit For
                    Err.Clear
                Else
                    .Value = varResult
                End If
            End With
        Next
    
    End With
    
End Sub


Bild

Betrifft: AW: Sverweis mit vba
von: Brandt
Geschrieben am: 10.09.2015 13:02:59
Hat wie immer alles sehr gut funktioniert!
Danke für den Quellcode

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Sverweis mit vba"