Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 1004 bei VLookup
 25.05.2018 14:37:27 Pascal
NotSolved
25.05.2018 14:40:07 Pascal
NotSolved
25.05.2018 15:25:28 Pascal
Solved

Ansicht des Beitrags:
Von:
Pascal		 Datum:
25.05.2018 14:37:27		 Views:
1057		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 1004 bei VLookup

Hallo Zusammen,

ich baue mir grade für die Arbeit einen Bestellschein. Mit einem Button kann ich eine UserForm öffnen in der ich mit ComboBoxen die Firmen, Gebäude etc anwählen kann. Diese Daten werden dann ausgelesen und in des Bestellschein eingetragen. Unter anderem brauche ich auch Verweise für Produktnummern etc.

Dies habe ich mit VLookup gelöst. Funktioniert auch überall außer bei den Ansprechpartnern. Da funktionieren nur die ersten beiden Namen. Alle weiteren Namen erzeugen ein Laufzeitfehler 1004.

Der Fehler wird angezeigt bei dem Code:

?
1
HaN = WorksheetFunction.VLookup(HA, ThisWorkbook.Worksheets("Mitarbeiter").Range("A2:B20"), 2)

Ich bin übrigens anfänger mit Programmieren.

Hier der Code aus der UserForm.

Danke!!

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Option Explicit
 
Sub Button_OK_Click()
     
    Dim LG As String
    Dim GKZ As String
    Dim HJ As String
    Dim PrPsk As String
    Dim TB As String
    Dim BNr As String
    Dim UZ As String
    Dim HA As String
    Dim HaN As String
    Dim LF As String
    Dim LFN As String
    Dim LFA As String
    Dim LFO As String
    Dim LFFax As String
    Dim LFMail As String
     
    LG = Liste_Geb
    GKZ = Text_Gkz
    HJ = Text_Hj
    PrPsk = WorksheetFunction.VLookup(LG, ThisWorkbook.Worksheets("Gebaeude").Range("A2:C100"), 3)
    TB = TextBox
    BNr = Text_Bestell
    UZ = Liste_Unterzeichner
    HA = Liste_Ansprech
     
    <em><strong>HaN = WorksheetFunction.VLookup(HA, ThisWorkbook.Worksheets("Mitarbeiter").Range("A2:B20"), 2)</strong></em>
     
    LF = Liste_Firma
    LFN = WorksheetFunction.VLookup(LF, ThisWorkbook.Worksheets("Firmenliste").Range("A2:L200"), 2)
    LFA = WorksheetFunction.VLookup(LF, ThisWorkbook.Worksheets("Firmenliste").Range("A2:L200"), 3)
    LFO = WorksheetFunction.VLookup(LF, ThisWorkbook.Worksheets("Firmenliste").Range("A2:L200"), 10)
    LFFax = WorksheetFunction.VLookup(LF, ThisWorkbook.Worksheets("Firmenliste").Range("A2:L200"), 6)
    LFMail = WorksheetFunction.VLookup(LF, ThisWorkbook.Worksheets("Firmenliste").Range("A2:L200"), 8)
     
     
    ThisWorkbook.Worksheets("Bestellschein").Range("B24") = GKZ
    ThisWorkbook.Worksheets("Bestellschein").Range("C24") = HJ
    ThisWorkbook.Worksheets("Bestellschein").Range("D24") = PrPsk
    ThisWorkbook.Worksheets("Bestellschein").Range("B26") = LG
    ThisWorkbook.Worksheets("Bestellschein").Range("B27") = TB
    ThisWorkbook.Worksheets("Bestellschein").Range("F21") = BNr
    ThisWorkbook.Worksheets("Bestellschein").Range("B51") = UZ
    ThisWorkbook.Worksheets("Bestellschein").Range("B41") = "Ansprechpartner: " & HA & " " & HaN
    ThisWorkbook.Worksheets("Bestellschein").Range("B7") = LFN
    ThisWorkbook.Worksheets("Bestellschein").Range("B8") = LFA
    ThisWorkbook.Worksheets("Bestellschein").Range("B9") = LFO
     
    If Option_Fax.Value = True Then ThisWorkbook.Worksheets("Bestellschein").Range("B11") = "Per FAX: " & LFFax
    If Option_Mail.Value = True Then ThisWorkbook.Worksheets("Bestellschein").Range("B11") = "Per MAIL: " & LFMail
     
     
     
End Sub
 
 
Sub UserForm_Initialize()
 
    Liste_Firma.RowSource = "Firmenliste!A2:A100"
    Liste_Geb.RowSource = "Gebaeude!A2:A100"
    Liste_Unterzeichner.RowSource = "Mitarbeiter!D2:D20"
    Liste_Ansprech.RowSource = "Mitarbeiter!A2:A20"
     
End Sub

 

Und hier aus dem Bestellschein:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ButtonNeu_Click()
 
         
    Dim PP
     
     
         
    Sheets("Bestellschein").Range("F21:N21,B7:I14,D24:H24,F21:N21,C24,B26:L27,B30:M39,B41:L45,B51:E51,B24,I24:L24").ClearContents
    Sheets("Bestellschein").Range("M12").Value = Date
    'Sheets("Bestellschein").Range("D24") =
     
    UserForm1.Show
 
End Sub

 

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
Rot Laufzeitfehler 1004 bei VLookup
 25.05.2018 14:37:27 Pascal
NotSolved
25.05.2018 14:40:07 Pascal
NotSolved
25.05.2018 15:25:28 Pascal
Solved