ich habe ein Problem mit einem Klassenmodul, resp. es ist das erste mal das ich sowas erstelle. Ich bekomme einen Fehler und weiss nicht wie ich das Problem angehen soll. Folgendes
Ich rufe mit einem Modul ein Klassenmodul auf welches den deutschen Begriff in der entsperchenden Sprache zurückgeben soll.
Sub CallTranslate()
Dim Text As clsSprache
Set Text = New clsSprache
MsgBox Text.Translate("Deutsch", "Titel")
MsgBox Text.Translate("Francais", "Titel")
MsgBox Text.Translate("Englisch", "Titel")
MsgBox Text.Translate("Italienisch", "Titel")
End Sub
Name Klassenmodul: clsSprache
Option Explicit
Private colD As Collection
Private colF As Collection
Private colI As Collection
Private colE As Collection
Private colR As Collection
Private Sub Class_Init()
Set colD = New Collection
Set colF = New Collection
Set colI = New Collection
Set colE = New Collection
Set colR = New Collection
'* Begriffe deutsch
colD.Add "Titel", "Titel"
colD.Add "Zusammenfassung", "Zusammenfassung"
'* Begriffe französisch
colF.Add "Titre", "Titel"
colF.Add "Résumé", "Zusammenfassung"
'* Begriffe italienisch
coliF.Add "Titolo", "Titel"
colI.Add "Riassunto", "Zusammenfassung"
Das Klassenmodul enthält zusätzlich folgende Funktion:
Function Translate(strSprache As String, strAusdruck As String) As String
Select Case strSprache
Case "Deutsch"
Translate = colD(strAusdruck)
Case "Francais"
Translate = colF(strAusdruck)
Case "Italiano"
Translate = colI(strAusdruck)
End Select
End Function
Beim Aufruf läuft er in den Fehler 91 Objektvariable oder With-Blockvariable nicht festgelegt. Ich kriegs leider nicht raus.
Danke für die Hilfe
Daniel