Option Explicit
 
Dim g_blnLanguage As Boolean
 
Public Function ReplaceString()
 
Call UnprotectSheet
 
Dim Sheet1WithTranslations  As Excel.Worksheet
Dim Sheet2ToTranslate           As Excel.Worksheet
 
Dim celIdentifier                         As  Excel.Range
Dim celLanguage                      As Excel.Range
 
Dim ctrObjekteToCheck                         As Excel.Shape
Dim i                                                           As Integer
 
Set Sheet1WithTranslations = Activeworkbook.Sheets("Languages")
Set Sheet2ToTranslate = Activeworkbook.Sheets("Sheet mit Objekte")
 
Set celIdentifier = Sheet1WithTranslations.Parent.Names( _
  "Identifier").RefersToRange
 
 
If IsGerman Then
Set celLanguage = Sheet1WithTranslations.Parent.Names("German").RefersToRange
Else
Set celLanguage = Sheet1WithTranslations.Parent.Names("English").RefersToRange
End If
 
 
For Each ctrObjekteToCheck In Sheet2ToTranslate.Shapes
 
For i = 1 To 135  'i ist die Anzahl der Übersetzungsobjekte, sprich die Anzahl 
                               'der  Zeilen auf Sheet2WithTranslations
 
    If TypeOf ctrObjekteToCheck Is Excel.Shape Then
 
        If ctrObjekteToCheck.Name = celIdentifier.Offset(i) = True Then
 
        ctrObjekteToCheck.DrawingObject.Object.Caption = celLanguage.Offset(i)
 
        End If
 
    End If
 
Next i
 
Next ctrObjekteToCheck
 
Call ProtectSheet ()
 
End Function
 
Public Property Get IsGerman() As Boolean
IsGerman = g_blnLanguage
End Property
 
Public Property Let IsGerman(ByVal blnNewValue As Boolean)
g_blnLanguage = blnNewValue
End Property