habe in einer Testdatei ein Makro geschrieben (s. Anhang). Es funktioniert wie geplant (d.h. alle Spalten mit leerem Inhalt in Zeile 2 werden per Makro ausgeblendet).
Übertrage ich das Makro aus der Testdatei in die Zieldatei bekomme ich den Laufzeitfehler 1004 "Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden" angezeigt. Wie kann ich diesen abstellen?
Hier noch das Makro:
Sub SpaltenAusblenden()
Dim Spalte As Integer
Dim SpalteMax As Integer
With Tabelle1
SpalteMax = .UsedRange.Columns.Count
For Spalte = 1 To SpalteMax Step 1
If .Cells(2, Spalte).Value = "" Then
.Columns(Spalte).Hidden = True
End If
habe die Tabelle1 aus der Testdatei in die Zieldatei verschoben (rechte Maustaste --> verschieben oder kopieren), um so einen Fehler zu vermeiden.
Viele Grüße
Steffen
Hi,
eher um so einen Fehler zu produzieren :19:
Mit Tabelle1 als Objekt sprichst du das Blatt im WB an, welches den Codenamen Tabelle1 hat.
Beim Kopieren in die Mappe in welcher sehr wahrscheinlich schon ein Sheet mit Codename Tabelle1 hat, hat dein kopiertes Blatt ein anderen Codenamen.
In deinem Code aber sprichst du dann halt das Blatt an, welches den Codenamen Tabelle1 hat (und dieses ist mit Blattschutz versehen ??? oder anderes)
nochmals ein großes Dank an alle, die sich mit meinem Problem beschäftigt haben!!!!!!!!!!
Ihr habt mir bestätigt, dass der Code passt. Es musste somit irgend eine Kleinigkeit sein. Letzlich bin ich daran gescheitert, dass "Tabelle1" nicht auf dem Sheet-Reiter stehen muss, sondern in im VBA. Kenne mich einfach zu wenig mit VBA aus....
Das hat mich jetzt gefühlt 3 Tage gekostet. Aber letztlich zählt das Ergebnis und ich habe wieder was gelernt! ))
))