Office: Laufzeitfehler 1004

Hallo Profis *Smilie

Ich habe den gleichen Laufzeitfehler aber ich finde das Problem nicht. Habe nach ein bisschen Googeln herausgefunden das ich anstelle von Worksheets(...) einfach nur Sheets(...) schreiben soll. Aber auch das hilft mir nicht weiter. Anbei mal meine Programierung. Der Fehler wird mir an der Stelle des Tabellenblatts "SW IST" angezeigt. Das Tabellenblatt ist so benannt.

Sub ÜbertragBasistabelle_Klicken()
Dim blnFertig As Boolean
Dim i As Long
Dim ubm As Long, ubv As Long, ubh As Long
Dim letzte As Long

ZuordnungBasistabellePrüfen2

i = 7
ubm = 3
ubv = 3
ubh = 3
H = 3
SW = 3
v = 3
d = 3

For spalte = 1 To 4 Step 3
letzte = Cells(Rows.Count, spalte).End(xlUp).Row

For i = letzte To 2 Step -1

With Sheets("Gesamttabelle GM")
.Range(Cells(i, 1), Cells(i, 12)).Copy

Select Case .Range("L" & i).Value

Case "UBM"
Sheets("UBmitte IST").Range("A3:L500").Select
Selection.ClearContents
Range("A3").Select
Sheets("UBmitte IST").Rows(ubm).Insert
ubm = ubm + 1
Case "UBV"
Sheets("UBvorne IST").Range("A3:L500").Select
Selection.ClearContents
Range("A3").Select
Sheets("UBvorne IST").Rows(ubv).Insert
ubv = ubv + 1
Case "UBH"
Sheets("UBhinten IST").Range("A3:L500").Select
Selection.ClearContents
Range("A3").Select
Worksheets("UBhinten IST").Rows(ubh).Insert
ubh = ubh + 1
Case "H"
Sheets("Heck IST").Range("A3:L500").Select
Selection.ClearContents
Range("A3").Select
Sheets("Heck IST").Rows(H).Insert
H = H + 1
Case "SW"
Sheets("SW IST").Range("A3:L500").Select
Selection.ClearContents
Range("A3").Select
Sheets("SW IST").Rows(SW).Insert
SW = SW + 1
Case "V"
Sheets("Vorbau IST").Range("A3:L500").Select
Selection.ClearContents
Range("A3").Select
Sheets("Vorbau IST").Rows(v).Insert
v = v + 1
Case "D"
Sheets("Dach IST").Range("A3:L500").Select
Selection.ClearContents
Range("A3").Select
Sheets("Dach IST").Rows(d).Insert
d = d + 1

End Select
End With
Next
Next
End Sub

 

Kann mir jemand weiterhelfen?? Wäre super *Smilie

lg Giesel

 

stelle die Eigenschaften des Shapes ein, ich glaube von Zellposition abhängig, dann werden die mit der Zeile ausgeblendet.

 

In der Fachsprache bin ich nicht wirklich geübt ;( was meinst du damit?
Bin noch nicht so lange mit Visual Basic am arbeiten

 

das war ein Fehler von mir ich habe den Beitrag verwechselt.

 

Leider immer noch der Fehler Laufzeitfehler 1004 - Die Hidden Eigenschaft des Range Objektes kann nicht festgelegt werden

edit: Giesel wenn hier jetzt zwei Personen in mein Thread ihre Probleme reinschreiben kann uns beiden schlecht geholfen werden, mach doch bitte dein eigenen Thread auf *Smilie

 

stelle die Eigenschaften des Shapes ein, ich glaube von Zellposition abhängig, dann werden die mit der Zeile ausgeblendet.

 

das verstehe ich nun nicht ich Antworte woanders und der Beitrag wird hier angehängt.

Gruß Hajo

 

stelle die Eigenschaften des Shapes ein, ich glaube von Zellposition abhängig, dann werden die mit der Zeile ausgeblendet.

 

Das ist immer noch "meine" Antwort, oder? :P Weil die geht nicht..

 

ich habe jetzt den Code bereinigt und fehlende Dim ergänzt.
Code:

 

Ach Hajo :'D

 

Also nochmal übersichtlich.

Laufzeitfehler 1004 - hidden eigenschaft des range objektes kann nicht festgelegt werden.

Tritt auf bei folgenden Code bei den FETT markierten Programmschnippseln..

Code:

 

Versuche es mal mit

Code:

 

Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Nachbau sieht bestimmt anders aus als das Original.
Ein Link zur Datei wäre nicht schlecht.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Der Dateiname sollte was mit dem Problem zu tun haben.
Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test..., Mappe…, Beispiel… wird eine vorhandene überschrieben.
Schaue hier, Dateiname im Beitrag
das ist nun das Word -Forum, das gilt hier aber auch.
Ein Bild in Excel geöffnet sieht anders aus als das Bild.

man könnte vermuten HideZeileVon=0

mal sehen wo der Beitrag hinkommt, ich hätte ja einen neuen angefangen, hat der andere Fragesteller ja auch.