Thema Datum  Von Nutzer Rating
Antwort
Rot Compile Error
13.05.2024 21:07:27 Levi
NotSolved
14.05.2024 00:33:47 xlKing
*****
Solved

Ansicht des Beitrags:
Von:
Levi
Datum:
13.05.2024 21:07:27
Views:
138
Rating: Antwort:
  Ja
Thema:
Compile Error

Guten Abend zusammen!

Ich baue gerade ein CRM-System aus dem Internet nach. Nun soll sich die CRM-Eingabemaske mit der Auswahl passend zum Kunden verändern. Die Kundendaten ziehen sich (Code2), allerdings muss ich dann jedes mal den Code neu laufen lassen. Damit es nach der Auswahl geschieht, gibt es Code1. Jedoch bekomme ich dabei folgende Fehlermeldung:

Fehlermeldung: Compile Error: Expected Variable or procedure, not module

Hier der Link zum Video: https://www.youtube.com/watch?v=Ry3PYTMbskg Timestamp: Minute 51 - 53

Ich freue mich über jegliche Hilfe! Vielen Dank vorab!

Code1 (worksheet): 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E3")) Is Nothing And Range("B10").Value <> Empty Then Customer_Load
End Sub

 

Code2 (Module):

Sub Customer_Load()
Dim CustRow As Long, LastInvRow As Long, CustCol As Long
With Sheet1
 If .Range("B10").Value = Empty Then
    MsgBox "Please select a correct customer name from the list"
    Exit Sub
    End If
    CustRow = .Range("B10").Value
    
    'Clear existing data
    .Range("B12,E6,J6,E12,E8,J8,E10,J10,J12,E16,E18,E20,E22,E24").ClearContents 'Clear content of customer cells
    .Range("J21:J35,L21:L35,U6:U12,T22:X35").ClearContents  'Clears all other remaining cells
    
    For CustCol = 1 To 15
        .Range(Sheet2.Cells(1, CustCol).Value).Value = Sheet2.Cells(CustRow, CustCol).Value
    Next CustCol
    .Shapes("ExistCustGrp").Visible = msoCTrue
    .Shapes("NewCustGrp").Visible = msoFalse
    .Shapes("SaveContBtn").Visible = msoFalse
    .Shapes("ExistContGrp").Visible = msoCTrue
    
    LoadContacts 'Loads all contacs
    
    'Load Invoice (Meeting)
    LastInvRow = Sheet4.Range("A9999").End(xlUp).Row
    Sheet4.Range("J3:K99999").ClearContents 'Clears any previous results
    Sheet4.Range("A2:C" & LastInvRow).AdvancedFilter xlFilterCopy, criteriaRange:=Sheet4.Range("G2:G3"), CopyToRange:=Sheet4.Range("J2:K2"), Unique:=False
    .Range("J21:K35").Value = Sheet4.Range("J3:K18").Value 'Bring in all Invoice Data (Meetings)
    
    .Range("B6").Value = False 'Set new customer to false
    End With
End Sub

Sub LoadContacts()
Dim LastContRow As Long
With Sheet1
 LastContRow = Sheet3.Range("A99999").End(xlUp).Row
 Sheet3.Range("L3:P99999").ClearContents 'Clear previous results
 Sheet3.Range("A3:F" & LastContRow).AdvancedFilter xlFilterCopy, criteriaRange:=Sheet3.Range("J2:J3"), CopyToRange:=Sheet3.Range("L2:P2"), Unique:=False
 .Range("N22:Q35").Value = Sheet3.Range("L3:P18").Value 'Copy over contacts

End With
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:

 
 

  • 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 Compile Error
13.05.2024 21:07:27 Levi
NotSolved
14.05.2024 00:33:47 xlKing
*****
Solved