Hallo zusammen,
Ich habe ein Formular erstellt, dessen Inhalt an mehrere Orte abgefüllt wird. In ein abc.xlsx soll der Inhalt des Formulars nur abgefüllt werden, unter der Bedingung, dass in der Combobox cbbOriginal der Wert "Yes" ausgewählt wurde. Steht dort der Wert "No" wird der Inhalt des Formulars in abc.xlsx gar nicht abgefüllt.
Wie lautet der korrekt formulierte Code für die Bedingung?
If .Value cbbOriginal= Yes
then
Workbooks.Open Filename:= "G:\...\...\abc.xls"
Windows("abc.xls").Activate
Set wkbKontakt = ActiveWorkbook
Set wksKontakt = wkbKontakt.Sheets("Pending")
Rows("5:5").Select
Selection.Insert Shift:=xlDown
With Me.txtDate
If .Value "" Then wksKontakt.Range("A5").Value = Me.txtDate.Value
End With
With Me.cbbType
If .ListIndex -1 Then wksKontakt.Range("I5").Value = Me.cbbType.Value
End With
If .Value cbbOriginal= NO
then do nothing