Office: Wo füge ich diesen Code ein?

Servus Gemeinde,

WO FÜGE ICH DIESEN CODE REIN?

Userform soll beim Öffnen der Datei angezeigt werden

Code:

Option Explicit

Private Sub Workbook_Open()
'UserForm1.Show
 Dim rng_Zelle As Range
    Dim str_Liste1 As String
    Dim str_Liste2 As String

    str_Liste1 = ""
    str_Liste2 = ""

    For Each rng_Zelle In Range("f3:f100").Cells
        If (rng_Zelle.Value - Int(Now()) >= 0) Then

            If (rng_Zelle.Value - Int(Now()) <= 10) Then
                If (rng_Zelle.Value - Int(Now()) <= 5) Then
                    str_Liste1 = str_Liste1 & Chr$(10) & rng_Zelle.Offset(0, -5).Value
                  Else
                    str_Liste2 = str_Liste2 & Chr$(10) & rng_Zelle.Offset(0, -5).Value
                End If
            End If

        End If
    Next rng_Zelle

    UserForm1.lbl_Liste1.Caption = str_Liste1
    UserForm1.lbl_Liste2.Caption = str_Liste2

    UserForm1.Show
End Sub

In der Formel der Userform steht:

Code:

Option Explicit

Private Sub btn_OK_Click()

    Hide

End Sub

Private Sub UserForm_Click()

End Sub

In der Datei, in die ich diesen Code einfügen möchte, steht aber bereits in der Arbeitsmappe/Workbook folgender Code:

Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
  Application.CommandBars("Tabellen").Delete
  On Error GoTo 0
End Sub

Private Sub Workbook_Open()
  Call Berechnung_formelqm
End Sub

Ich nutze Excel 2003. Mit VBA kenn ich mich leider nicht aus.

 

der erste Code gehört unter DieseArbeitsmappe

 

Dann kommt aber diese Fehlermeldung:

Code:

Compile Error: 
Ambiguous Name detected: Workbook_Open.

Wie behebe ich diesen Fehler oder wo/wie füge ich den Code ein, ohne dass diese Fehlermeldung kommt?

 

dem Fehler kann ich nicht nachvollziehen.