Thema Datum  Von Nutzer Rating
Antwort
04.02.2021 10:17:18 Bass
Solved
Blau SVERWEIS-Funktion in VBA
 04.02.2021 11:30:25 ralf_b
Solved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
04.02.2021 11:30:25		 Views:
693		 Rating:
     
Antwort:
 Nein
Thema:
SVERWEIS-Funktion in VBA

Hallo,

Verständlicherweise möchtest du deine Kennisse einfach in VBA ausdrücken und die Formeln direkt übertragen. Das kommt aber einem Mischmasch gleich. VBA arbeitet auch ohne Zellformeln ganz prima und kann die Werte dann auch entsprechend finden. In der Zelle steht dann nur ein Wert und keine umständliche Formel.  Die Formeltexte Sind texte ,die mit "" eingeschlossen werden. Kommt in der Formel bereits "" vor, dann müssen diese nochmals umschlossen/maskiert werden. Also  sp ... 74]C[-1],2,0),"""")"

 

per Macrorekorder aufgezeichnet , Formel steht in Zelle:

?
1
2
3
4
5
6
7
8
9
Range("C10").FormulaR1C1 = "=IFNA(VLOOKUP(R[-1]C,'Ort&Plz'!R[-9]C[-2]:R[12874]C[-1],2,0),"""")"
   
mögliche Umsetzung in vba mit Verweisfunktion, nur Ergebnis steht in Zelle   
Range("C10") = WorksheetFunction.VLookup(Range("C9"), Sheets("Ort&PLZ").Range("A1:B12884"), 0)
 
mögliche Umsetzung als VBAlösung mit Range.find() Methode, Ergebnis steht in Zelle      
    Dim x As Range
    Set x = Sheets("Ort&PLZ").Range("A1:A12884").Find(what:=Range("C9"), LookIn:=xlValues, lookat:=xlWhole)
    If Not x Is Nothing Then Range("C10") = x.Offset(, 1)

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.02.2021 10:17:18 Bass
Solved
Blau SVERWEIS-Funktion in VBA
 04.02.2021 11:30:25 ralf_b
Solved