Thema Datum  Von Nutzer Rating
Antwort
Rot Vlookup/ HLookup
 24.11.2016 09:23:37 Phil
NotSolved
24.11.2016 15:19:30 Mario
NotSolved
24.11.2016 16:59:36 Phil
NotSolved
24.11.2016 17:25:40 Mario
NotSolved
25.11.2016 09:39:55 Mario
NotSolved
25.11.2016 10:06:59 Phil
NotSolved
25.11.2016 10:38:08 Mario
*****
NotSolved
25.11.2016 13:05:20 Phil
*****
Solved
25.11.2016 13:54:15 Mario
NotSolved

Ansicht des Beitrags:
Von:
Phil		 Datum:
24.11.2016 09:23:37		 Views:
1895		 Rating:
     
Antwort:
  Ja
Thema:
Vlookup/ HLookup

Hi alle,

ich habe gerade ein Problem bei VBA:

Ziel ist es, in einem Datenblatt nach einer Spalte zu suchen, dort nach dem Feld von Test suchen, in dieser Zeile dann in einer anderen Spalte den Wert kopieren. Dann in einer anderen Matrix (auch anderes Datenblatt) den Sverweis anwenden. 

Genau in der Zeile des Vlookup, wobei auch HLookup nicht funktioniert, kommt der Laufzeitfehler '424' Objekt erforderlich. Was habe ich dabei falsch gemacht?

Sub Materialien()

Dim Best1    As Range
Dim Best2    As Range
Dim SpBez   As String
Dim SpMat   As String
Dim MatNr   As String
Dim Summ    As String
Sheets("Rohdaten").Select

 Set Best1 = ActiveSheet.Range("A1:Z1").Find("Bezeichnung")        	       ' Ermittlung des Spaltennamens für Forecast
   SpBez = Chr(Best1.Column + 64)                                   	       ' Zuweisung der Spalte in Variable

 Set Best2 = ActiveSheet.Range("A1:Z1").Find("Material")                       ' Ermittlung des Spaltennamens für Materialnummer
   SpMat = Chr(Best2.Column + 64)                                    	       ' Zuweisung der Spalte in Variable

    
 If Best1 Is Nothing Then
   MsgBox ("Keine gewünschte Spalte gefunden")
    Else
     For i = 3 To 7                                                            'Hochzählen der Zeilen in der Spalte

        If InStr(1, ActiveSheet.Range(SpBez & i).Value, "Forecast") > 0 Then  'Ablesen wo Forecast steht
            MatNr = ActiveSheet.Range(SpMat & i).Value                        'Materialnummer in Variable kopieren

            'Sheets("Berechnung_MKV").Select
                Sheets("Preisliste").Select
                Summ = Application.WorksheetFunction.VLookup(MatNr, Preisliste.Range("B:E"), 2, False)
                MsgBox (Summ)
            
         End If
     Next
       
    End If
End Sub

 

Viele Grüße,

Phil

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
Rot Vlookup/ HLookup
 24.11.2016 09:23:37 Phil
NotSolved
24.11.2016 15:19:30 Mario
NotSolved
24.11.2016 16:59:36 Phil
NotSolved
24.11.2016 17:25:40 Mario
NotSolved
25.11.2016 09:39:55 Mario
NotSolved
25.11.2016 10:06:59 Phil
NotSolved
25.11.2016 10:38:08 Mario
*****
NotSolved
25.11.2016 13:05:20 Phil
*****
Solved
25.11.2016 13:54:15 Mario
NotSolved