ich finde den Fehler einfach nicht =( Bitte um Hilfe!
habe folgendes vor:
Habe in diversen Bereichen Namen gespeichert unter denen zugehörige Werte gespeichert sind.
Für jeden gleichen Namen in den Bereichen möchte ich deren zugehörige Werte Summieren und anschließend in eine Zugehörige Textbox, die zuvor erstellt wurde, einlesen!
Für jeden Namen wird eine TextBox erstellt. In "ODMList" sind alle Namen enthalten.
Folgend habe ich das gedacht:
Bitte auch gerne um verbesserungsvorschläge =)
lg
adrian
Abschnitt im Hauptsheet:
For Each Cell In range("ODMListB")
ODMSum = 0
If Cell.Value "" Then
AddTextbox Cell.Offset(2, 0), Cell.Value
SearchODMValue Worksheets("Overview").range("PhilipsODM"), Cell.Value
SearchODMValue Worksheets("Overview").range("SonyODM"), Cell.Value
SearchODMValue Worksheets("Overview").range("SamsungODM"), Cell.Value
FillTextBox Cell.Value, ODMSum
End If
Next
Suchfunktion:
Private Sub SearchODMValue(SearchArea As range, Name As String)
For Each Cell In SearchArea
If Cell.Value = Name Then
ODMSum = ODMSum + Cell.Offset(5, 0).Value
End If
Next
End Sub
Füllfunktion:
Sub FillTextBox(Name As String, ODMSum As Double)
For Each Objekt In ActiveSheet.OLEObjects
If InStr(Objekt.Name, "ODMVolumeBox" & Name) Then
Set TB = Objekt.Object
With TB
.Value = ODMSum
End With
End If
Next
End Sub