Hallo Antonia,
tut mir Leid, dass ich dich so lange auf meine Antwort hab warten lassen. In meinem Codebeispiel kannst du, je nach Auswahl in der Combobox, einen Wert von Y81, Z81, AA81 oder AB81 in C81, C82, C83 oder C84 übernehmen. Falls du den Wert Y81 in C81-C85 bspw. einfügen willst, dann müsstest noch eine Schleife drum rum bauen.
Hier mal prinzipiell mein Beispiel:
**Private Sub CombFunction_Change()
Dim col As String
col = „“
Select Case CombFunction.Value
Case „CV_PLM_ENTWICKLUNG“
col = „Y“
Case „CV_PLM_ENTW_VALIDIERUNG“
col = „Z“
Case „CV_SCM_LOGISTIK“
col = „AA“
Case „CV_SCM_PLANUNG“
col = „AB“
End Select
Call FunctionText(col)
End Sub
Private Sub FunctionText(ByVal spalte As String)
Dim zeile As Integer 'hier wird der Wert reingeschrieben (=Zielzeile)
Dim fixSpalte As String 'in deinem Beispiel war das „C“ (=Zielspalte)
Dim fixZeile As Integer 'fixe Zeile der nicht einsehbaren Stelle (=Quellzeile)
fixSpalte = „C“
fixZeile = 81
Select Case spalte
Case „Y“
zeile = 81
Case „Z“
zeile = 82
Case „AA“
zeile = 83
Case „AB“
zeile = 84
End Select
Cells.Item(zeile, fixSpalte) = Cells.Item(fixZeile, spalte)
End Sub**
Wie du siehst hab ich deinen Code ein bisschen umgebaut. Ich würde dir empfehlen immer mit Variablen zu arbeiten denen du am Anfang einen Initialwert gibst. Falls sich die Spalte „C“ im Programm mal ändern sollte dann bräuchtest du nur die Variable „fixSpalte“ anpassen und musst nich den kompletten Code nach dem Wert „C“ durchsuchen und ändern. Kleiner Tipp am Rande Hoffe, dass ich dir damit ein bisschen weitergeholfen hab.
Lg neotokyo_1