Laufzeitfehler '1004' Brauche Hilfe! :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Laufzeitfehler '1004' Brauche Hilfe!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 15.06.2008, 15:38

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

silex1
Besserwisser

Anmeldedatum: 18.12.2007
Beiträge: 97
Wohnort: Dresden

Verfasst am: 16.06.2008, 10:10

Hallo,

Zitat:

Für diese Aktion müssen alle verbundenen Zellen dieselbe Größe haben

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

_________________
"Was nutzt der Baum der Erkenntnis, wenn das Blatt der Erfahrung fehlt!"

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Hilfe mit Kontoauszug Auswertung	jars777	Microsoft Excel Hilfe	3	01.09.2008, 23:42
	hilfe!! wie erstelle ich so eine diag...	cinces	Microsoft Excel Hilfe	2	26.08.2008, 20:42
	Hilfe beim erstellen einer Importdatei	dobby110	Microsoft Excel Hilfe	8	26.08.2008, 12:36
	Laufzeitfehler, 1828, beim Ausdrucken...	sloofv	Microsoft Outlook Hilfe	0	26.08.2008, 08:56
	HILFE wegen Word 2007 AddIn Math	frank123	Microsoft Word Hilfe	0	22.08.2008, 17:44

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de