ich komm ohne eure hilfe nicht weiter. in dem folgenden code sollen die daten in die zeile 12 übertragen werden, die nächsten daten dann in zeile 13 usw. jetzt kopiert er die daten nach links. kann einer mir den code ändern.
danke
martin
Private Sub CommandButton2_Click()
If TextBox1 <> "" Then
If [IV12] = "" Then
Cells(12, [IV12].End(xlToLeft).Column + 1) = TextBox1
Else
MsgBox "In Zeile 12 ist keine Spalte mehr frei"
End If
End If
If TextBox2 <> "" Then
If [IV12] = "" Then
Cells(12, [IV12].End(xlToLeft).Column + 1) = TextBox1
Else
MsgBox "In Zeile 12 ist keine Spalte mehr frei"
End If
End If
If TextBox3 <> "" Then
If [IV12] = "" Then
Cells(12, [IV10].End(xlToLeft).Column + 1) = TextBox1
Else
MsgBox "In Zeile 12 ist keine Spalte mehr frei"
End If
End If
If TextBox4 <> "" Then
If [IV12] = "" Then
Cells(12, [IV10].End(xlToLeft).Column + 1) = TextBox1
Else
MsgBox "In Zeile 12 ist keine Spalte mehr frei"
End If
End If
If TextBox5 <> "" Then
If [IV12] = "" Then
Cells(12, [IV10].End(xlToLeft).Column + 1) = TextBox1
Else
MsgBox "In Zeile 12 ist keine Spalte mehr frei"
End If
End If
If TextBox6 <> "" Then
If [IV12] = "" Then
Cells(12, [IV10].End(xlToLeft).Column + 1) = TextBox1
Else
MsgBox "In Zeile 12 ist keine Spalte mehr frei"
End If
End If
If TextBox7 <> "" Then
If [IV12] = "" Then
Cells(12, [IV10].End(xlToLeft).Column + 1) = TextBox1
Else
MsgBox "In Zeile 12 ist keine Spalte mehr frei"
End If
End If
If TextBox8 <> "" Then
If [IV12] = "" Then
Cells(12, [IV10].End(xlToLeft).Column + 1) = TextBox1
Else
MsgBox "In Zeile 12 ist keine Spalte mehr frei"
End If
End If
If TextBox9 <> "" Then
If [IV12] = "" Then
Cells(12, [IV10].End(xlToLeft).Column + 1) = TextBox1
Else
MsgBox "In Zeile 12 ist keine Spalte mehr frei"
End If
End If
End Sub