Liebe Excel-Freunde
Einen schönen guten Abend und eine besinnliche Vorweihnachtszeit wünsche ich. Darf ich zu dieser vorgerückten Stunde eine Frage stellen?
In einem Eingabeformular habe ich 9 Checkboxen, welche mögliche Nebenwirkungen darstellen. Ich habe sie zunächst ebenso wie die Zielvariable (SideEffects) als String definiert:
Dim SideEffects As String 'zusammensetzen aus Checkboxen
Dim CB28 As String
Dim CB29 As String
Dim CB30 As String
Dim CB31 As String
Dim CB32 As String
Dim CB33 As String
Dim CB34 As String
Dim CB35 As String
Dim CB36 As String
Später frage ich die CBs ab und möchte die Variablen zu einem String zusammensetzen (SideEffects)
If CheckBox28.Value = True Then
CB28 = "keine Nebenwirkungen"
Else: CB28 = ""
End If
If CheckBox29.Value = True Then
CB28 = "Hämatom am Einstich, "
Else: CB29 = ""
End If
If CheckBox30.Value = True Then
CB28 = "Neuralgie während der Injektion, "
Else: CB30 = ""
End If
If CheckBox31.Value = True Then
CB28 = "allergische Reaktion, "
Else: CB31 = ""
End If
If CheckBox32.Value = True Then
CB28 = "Dyspnoe, "
Else: CB32 = ""
End If
If CheckBox33.Value = True Then
CB28 = "Blutdruckabfall, "
Else: CB33 = ""
End If
If CheckBox34.Value = True Then
CB28 = "Rhythmusstörungen, "
Else: CB34 = ""
End If
If CheckBox35.Value = True Then
CB28 = "Mitbetäubung anderer Nerven, "
Else: CB35 = ""
End If
If CheckBox36.Value = True Then
CB28 = "permanente neurologische Schäden"
Else: CB36 = ""
End If
SideEffects = CB28 & CB29 & CB30 & CB31 & CB32 & CB33 & CB34 & CB35 & CB36
ActiveCell.Offset(0, 62).Value = SideEffects
Leider bekomme ich immer nur die als letztes angeklickte CB-Variable in meine Zelle geschrieben. Wahrscheinlich seht Ihr ja gleich den Fehler...? Ich hocke jetzt schon 2 Stunden davor :-(
Liebe Grüße von Ecki