Kopiertes Makro läuft nicht in anderer Tabelle
09.01.2013 15:49:01
Reiner
ich habe ein lauffähiges VBA Makro in einer betehenden Tabelle und habe (wie so oft) den Code 1:1 in eine andere Tabelle kopiert.
Egal ob ich es in den Bereich "VBAProject-Diese Arbeitsmappe" oder "VBAProject-Tabelle2 (Export)" kopiere kann ich das Makro nicht ausführen.
Teilweise bekam ich den Fehler 400 bzw. 1004 aber auch wenn ich den Blattschutz ausschalte und sogar die Zellenformatierung entferne funktioniert dieses Makro nicht.
Alle anderen Makros laufen problemlos.
Ich hoffe, daß von euch jemand eine Idee hat wo es klemmt denn ich lese jetzt schon lange (Stunden) alle möglichen Infos und komme nicht weiter.
Ich habe von A1:AE4 Kopfzeilen mit Beschriftungen und ab A5:AEn werden Werte eingetragen.
Das Makro soll leere Spalten inkl. den Kopfzeilen ausblenden und das andere Makro wieder einblenden.
Da das Makro in der alten Ursprungsdatei sollte es ja nicht daran liegen aber ich hänge es _
trotzdem mal an.
Sub Leere_Spalten_ausblenden()
Dim lngLast As Long, rng As Range
Application.ScreenUpdating = False
lngLast = Cells(1, 1).CurrentRegion.Rows.Count
If lngLast > 4 Then
For Each rng In Range("A1:AE1") ' Endzelle eintragen
' For Each rng In Range(Cells(1, 1), Cells(1, 1).End(xlToRight)) ' Sucht die erste leere _
Zelle
rng.EntireColumn.Hidden = _
Application.CountA(rng.Offset(4).Resize(lngLast - 4)) = 0
Next
End If
End Sub
Sub Alle_Spalten_einblenden()
Cells.EntireColumn.Hidden = False
End Sub
Vielen Dank, daß ihr euch ein paar Gedanken macht.
Reiner
Anzeige