Ich möchte mehrere Textfelder auf einem Worksheet mit Text befüllen.In der Schleife wird das Textfeld als Variable übergeben.
In Office 2010 geht es super - in Office365 Excel2013 kommt ein Debugging Fehler betreffend OLE.
Kann man die Textfelder auch anders ansprechen ?
Danke für die Hilfe
Gert
For j = i To imax
If Cells(j, C_Lan_Typ) = "Button" Or Cells(j, C_Lan_Typ) = "Label" Then
temp_txt = Cells(j, C_Lan_Na)'Namen des Textfeldes
temp_txt1 = Cells(j, C_Lan)'Text in ausgewählter Sprache
'wenn kein Eintrag bei gewählter Sprache wird Englisch(Default) genommen
If temp_txt1 = "" Then temp_txt1 = Cells(j, C_Lan_Lan1)
Worksheets(WS_INF).Select
Worksheets(WS_INF).OLEObjects(temp_txt).Object.Caption = temp_txt1
End If
Next j