Thema Datum  Von Nutzer Rating
Antwort
20.01.2020 16:18:45 Gast42941
NotSolved
20.01.2020 16:32:25 Gast83540
NotSolved
20.01.2020 16:43:00 Gast16873
NotSolved
Blau SVerweis / VLookup
 20.01.2020 16:42:05 UweD
NotSolved

Ansicht des Beitrags:
Von:
UweD		 Datum:
20.01.2020 16:42:05		 Views:
453		 Rating:
     
Antwort:
  Ja
Thema:
SVerweis / VLookup

Hallo

 

so??

 

Sub Route()
    Dim TB1 As Worksheet, TB2 As Worksheet
    Dim ZE As Integer, LR As Long
    
    On Error GoTo Fehler
    Const APPNAME = "Route"
    
    '*** bescheunigt das Makro
    Application.ScreenUpdating = False
    
    
    '*** Stammdaten Anfang
    Set TB1 = Sheets("Blatt A")
    Set TB2 = Sheets("Blatt B")
    
    ZE = 2 'ab Zeile
    '*** Stammdaten Ende
    
    With TB1
        LR = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
        
        With .Cells(ZE, 1).Offset(0, 1).Resize(LR - 1, 1)
            .FormulaR1C1 = "=IFERROR(VLOOKUP(RC1,'Blatt B'!C1:C2,2,0),"""")" 'Formel Sverweis eintragen
            .Value = .Value 'Formel in Werte umwandeln
        End With
    End With
    
    
    '*** Fehlerbehandlung
    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
        & "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

 

LG UweD

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:



  • 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
20.01.2020 16:18:45 Gast42941
NotSolved
20.01.2020 16:32:25 Gast83540
NotSolved
20.01.2020 16:43:00 Gast16873
NotSolved
Blau SVerweis / VLookup
 20.01.2020 16:42:05 UweD
NotSolved