1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
VorCombineTT2sDelete () Schwaches s als Schnur s = MsgBox („fortfahren? “, vbYesNo) Wenn s = vbNo dann Unterseeboot herausnehmen transferTT2S DeleteRows Enden-Unterseeboot