DRINGEND! Call Sub() Methode funktioniert nicht.

Public Sub Erstellen_Click()
Dim DatAuswahlReportMonat As Date
Dim IntLetzteZelleDB As Integer
Dim IntZählerZusammenführung As Integer
Dim RngZuordnung As Range
Dim StrZuordnungErg As String
Dim StrZuordnungMonatswert As String
Dim wsHilfstabelle As Worksheet
'Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'Prüfen ob ausgewählter Monat in Datenbank enthalten ist
If KundenBox.Value = "" Or PoolsystemBox.Value = "" Or ReportMonatBox.Value = "" Then
MsgBox "Achtung: Sie haben in einem (oder mehreren) der folgenden Felder keine Daten  _
ausgewählt:" & vbCr & vbCr & "Feld 1: Kunde" & vbCr & "Feld 2: Poolsystem" _
& vbCr & "Feld 4: Report-Monat" & vbCr & vbCr & "Bitte die fehlenden Daten auswählen!",  _
vbOKOnly + vbCritical, "kd-analytics"
Else
DatAuswahlReportMonat = ReportMonatBox.Value
Set wsHilfstabelle = Worksheets.Add
With wsHilfstabelle
.Name = "Hilfstabelle"
.Move after:=Sheets(Sheets.Count)
End With
Set wsHilfstabelle = Nothing
Sheets("datenbank").Select
Sheets("datenbank").Cells.Select
Selection.Copy
Sheets("Hilfstabelle").Select
ActiveSheet.Paste
Sheets("Hilfstabelle").Columns("A:G").Delete
Sheets("Hilfstabelle").Columns("D:N").Delete
With ActiveSheet
IntLetzteZelleDB = .Cells(.Rows.Count, "A").End(xlUp).Row - 1
End With
For IntZählerZusammenführung = 2 To IntLetzteZelleDB
Sheets("Hilfstabelle").Cells(IntZählerZusammenführung, 4) = Sheets("Hilfstabelle"). _
Cells(IntZählerZusammenführung, 1).Value & "_" & Sheets("Hilfstabelle").Cells(IntZählerZusammenführung, 3).Value
Next IntZählerZusammenführung
StrZuordnungMonatswert = DatAuswahlReportMonat & "_" & PoolsystemBox.Value
With Sheets("Hilfstabelle").Range("D2:D" & IntLetzteZelleDB)
Set RngZuordnung = .Find(StrZuordnungMonatswert, LookAt:=xlWhole, LookIn:=xlValues,  _
_
SearchOrder:=xlByRows)
If RngZuordnung Is Nothing Then
StrZuordnungErg = ""
Else
StrZuordnungErg = RngZuordnung
End If
End With
Application.DisplayAlerts = False
Sheets("Hilfstabelle").Delete
Application.DisplayAlerts = True
Sheets("hmi").Select
If StrZuordnungErg = "" Then
MsgBox "Achtung: Ausgewählter Report-Monat ist nicht in der Datenbank enthalten!" &  _
vbCr & vbCr & "Bitte zuerst die Daten aus dem Rohdaten-Konverter importieren!", vbOKOnly + vbCritical, "kd-analytics"
End
Else
If PoolsystemBox.Value = "1" Then
Call report_konvertierungscode
End If
If PoolsystemBox.Value = "2" Then
Call report_konvertierungscode
End If
If PoolsystemBox.Value = "3" Then
Call report_konvertierungscode
'Konvertierungscode für tatsächliche Mietkosten einfügen
End If
If PoolsystemBox.Value = "4" Then
Call report_konvertierungscode
End If
If PoolsystemBox.Value = "5" Then
Call report_konvertierungscode
Call report_konvertierungscode_seite5
End If
MsgBox "datenbank-report-konvertierung wurde erfolgreich durchgeführt!" & vbCr & "( _
behälterpool: " & PoolsystemBox.Value & ")", vbOKOnly,
'End If
End If
End If '(Prüfung Comboboxen)
End Sub