mehrere gleiche Makros in einem Sheet
17.11.2022 13:14:35
Jörg
ich habe ein Makro für ein Dropdownmenü erstellt für Spalte C. Hier werden im Dropdown zwei Infos eingeblendet aber nur die erste eingefügt, läuft gut!
Nun möchte ich das selbe in Spalte D ebenfalls anwenden.
Kopiere ich nun das Makro und setze es ein, gibt es eine Fehlermeldung das das es zwei gleiche Makronamen gibt. Einfach eine _II anfügen geht nicht.
Wie komme ich hier zur einer Lösung? Kann man evtl gleich beide Spalten angeben?
Das ist der Code den ich nutze:
Private Sub Worksheet_Change(ByVal Target As Range)
'Code zum Teilweisen anzeigen aus dem Dropdownmenü vom Sachbearbeiter
Spalte = "C"
StartZeile = 11
EndZeile = 99999
For i = StartZeile To EndZeile
Cell = Spalte + Trim(Str(i))
Wert = Range(Cell).FormulaR1C1
If InStr(Wert, " - ") > 0 Then
Pos = InStr(Wert, " - ")
Wert = Left(Wert, Pos - 1)
Range(Cell).FormulaR1C1 = Wert
End If
Next i
End Sub