Office: Laufzeitfehler '1004' Brauche Hilfe!

Hallo zusammen!

Bekomme ständig diesen Laufzeitfehler'1004'
mit der Begründung:
Für diese Aktion müssen alle verbundenen Zellen dieselbe Größe haben.
Meine Anweisung wird dann ab Columns gelb hinterlegt.
Hat jemand von Euch 'ne simple Erklärung, was ich ändern muß?

Private Sub CommandButton2_Click()
If TextBox10.Value = "" Then
Beep
KeinEintragVorgenommen.Show
Else
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = [M65536].End(xlUp).Row + 1
Else
xZeile = ComboBox1.ListIndex + 1
End If
Cells(xZeile, 13) = TextBox1
Cells(xZeile, 14) = TextBox2
Cells(xZeile, 15) = TextBox3
Cells(xZeile, 16) = TextBox4
Cells(xZeile, 17) = TextBox5
Cells(xZeile, 18) = TextBox6
Cells(xZeile, 19) = TextBox7
Cells(xZeile, 20) = TextBox8
Cells(xZeile, 21) = TextBox9
Cells(xZeile, 22) = TextBox10
Cells(xZeile, 23) = TextBox11
Cells(xZeile, 24) = TextBox12
Cells(xZeile, 25) = TextBox13
Cells(xZeile, 26) = TextBox14
Cells(xZeile, 27) = TextBox15
Cells(xZeile, 28) = TextBox16
Cells(xZeile, 29) = TextBox17
Cells(xZeile, 30) = TextBox18
Cells(xZeile, 31) = TextBox19
Cells(xZeile, 32) = TextBox20
Cells(xZeile, 33) = TextBox21
Cells(xZeile, 34) = TextBox22
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
TextBox20 = ""
TextBox21 = ""
TextBox22 = ""
Columns("M:AH").Sort Key1:=Range("M2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
UserForm_Initialize
TextBox1.Value = "Nur eintragen, wenn Gewerbe!"
TextBox2.Value = "Nur eintragen, wenn Gewerbe!"
TextBox3.Value = "Nur eintragen, wenn Gewerbe!"
End If
End Sub

Gruß Timi

 

Hallo,

dies ist auch schon die Antwort!
Schau mal nach verbunden Zellen im zu kopierenden oder einzufügenden Bereich!
Heb die Verbindungen auf und schon müsste es funzen!


Hinweis: KEINE VERBUNDENEN ZELLEN VERWENDEN!


lg silex1