komischer Weise kommt beim Laden des ersten sheets ab und zu eine Fehlermeldung folgender Art:
Run-time error '-2147319764 (8002802c)':
Method 'Name' of Object 'IMdcText' failed
der fehler entsteht dadurch, dass eine automatisch hinzugefügte Textbox plötzlich keinen Namen zugewiesen bekommt oder ähnliches...
Code für Textbox:
Sub AddTextbox(Stelle As Range, Name As String, Sum As Double)
With ActiveSheet
Set Objekt = .OLEObjects.Add(ClassType:="Forms.TextBox.1", Left:=Stelle.Left, _
Top:=Stelle.Top, Width:=Stelle.Width, Height:=Stelle.Height)
Set TB = Objekt.Object
With TB
.Name = "ODMVolumeBox" & Name & ActiveSheet.OLEObjects.Count
.Width = 120
.Height = 25
.TextAlign = fmTextAlignCenter
.Font = "Georgia"
.Font.Bold = True
.Font.Size = 16
.Value = Sum
End With
End With
End Sub
Aufruf der Funktion im Sheet:
DeleteTextBox
For Each Cell In Range("ODMListB")
ODMSum = 0
If Cell.Value "" Then
ODMName = Cell.Value
ODMSum = SearchODMValue(Worksheets("Overview").Range("PhilipsODM"), ODMName)
ODMSum = ODMSum + SearchODMValue(Worksheets("Overview").Range("SonyODM"), ODMName)
ODMSum = ODMSum + SearchODMValue(Worksheets("Overview").Range("SamsungODM"), ODMName)
ODMSum = ODMSum + SearchODMValue(Worksheets("Overview").Range("LGElecODM"), ODMName)
AddTextbox Cell.Offset(2, 0), ODMName, ODMSum
End If
Next
In der "SearchODMValue" Funktion werden für jeden "ODM" in der "ODMListB" Werte aus anderen Bereichen summiert und dann an AddTB übergeben.
Für jeden "ODM" wird 2 Zellen unterhalb eine TB erstellt mit zugehörigem Wert.
Das ganze funktioniert ja auch, nur ab und zu (ca. bei jedem 4-5 mal laden aller Makros in dem Sheet) tritt diese Fehlermeldung auf =(
Wäre toll wenn jmd. Rat hat!
lg
adrian