Werte von Zelle x übernehmen, wenn Zellwert=1

Private Sub CommandButton1_Click()
Range("A23:A37").Select
Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)),  _
TrailingMinusNumbers:=True
End Sub

soll Zelle A31 überprüft werden, enthält sie die Zahl1 so soll der Wert von Zelle A30 übernommen werden.
Gibt es da eine Möglichkeit?
Es geht hier um die Auswertung einer Onlineumfrage.
Die Daten bekomme ich per mail und kopiere sie in mein Excelfile
- per Button werden die Antworten (Werte) von Splate A des kopierten Texts "aufgespalten" in Spalte B
- die Werte von B kopiere ich dann in einen anderen Bereich der die Antworten auf Blatt2 überträgt.
Hier das File zum besseren Verständnis:
https://www.herber.de/bbs/user/61683.xls
Vielleicht kann man das ganze auch anders lösen...?
Im Voraus schon mal herzlichen Dank für eure Hilfe
Wolfgang