soweit ich konnte habe ich den Code zusammengestellt. (Mustermappe im Anhang)
Ich habe 4 Toggle-Button installiert. Wenn aktiviert, also WAHR, dann soll in die Betreffzeile BV + Händler + Verarbeiter + Planer geschrieben werden.
Bei diesem Beispiel sind nur BV und Handel gedrückt, also soll auch nur das in die Betreffzeile geschrieben werden.
Die einzelnen Zellen für Überprüfung von "WAHR" erfolgt wahrscheinlich über eine Schleife?
Aber wie setzte ich wenn WAHR die Inhalte der Zellen zusammen?
Als Ergebnis soll in der Betreffzeile dann so etwas stehen:
Betreff: BV: -------BV----------- "-" -----------Händler---------- "," "VA: " -----------Verarbeiter--------------- oder
Betreff: BV: -------BV----------- "-" -----------Händler---------- oder
Betreff: BV: -------BV----------- "-" -----------Planer----------
Betrifft diesen Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim BV As String
Dim HA As String
Dim VA As String
Dim PL As String
Dim i As Long
Dim Abfrage As Range
BV = [C2]
HA = [C3]
VA = [C4]
PL = [C5]
Abfrage = Range("J2:J5")
With tbl_Kalkulation
If Abfrage = "WAHR" Then
Range("K9").Value = BV & HA & VA & PL
End If
End With
End Sub
Danke für die Hilfe.VG Eisi :-)
https://www.herber.de/bbs/user/146353.xlsm