Hallo zusammen,
hab schon wieder ein Problem:
Der code:
Sub Ausblenden()
’ Makro blendet alle Zeilen mit 0 aus
’ Sheets(„Tabelle1“).Activate
Range(„A1“).Activate
Application.ScreenUpdating = False
For Each cell In Range(„A1:A680“)
If cell.Value = 0 Then cell.EntireRow.Hidden = True
Next cell
Range(„A1“).Activate
Application.ScreenUpdating = True
End Sub
blendet mir alle zeilen aus, die in A1 auf „Null“ stehen.
Auf EINEM Rechner meckert er beim Ausblenden:
Fehler beim Kompillieren. Projekt oder Bibliothek nicht gefunden
und markiert das Wort „cell“ in „For Each cell in…“
Weiß jemand Rat?
Gruß und danke
Rolf
For Each cell In Range(„A1:A680“)
If cell.Value = 0 Then cell.EntireRow.Hidden = True
Next cell
blendet mir alle zeilen aus, die in A1 auf „Null“ stehen.
Auf EINEM Rechner meckert er beim Ausblenden:
Fehler beim Kompillieren. Projekt oder Bibliothek nicht
gefunden und markiert das Wort „cell“ in „For Each cell in…“
Weiß jemand Rat?
Hi Rolf,
naja, wissen würde ich jetzt grad nicht behaupten.
Hat nix mit der Anfrage zu tun aber die Wortwahl „cell“ macht mir Bauchschmerzen, nimm lieber „Zelle“ oder gleich richtig „rngCell“
M.E. fehlt da ein Verweis auf dem einen Rechner, vergleich mal die Verweise, ggfs auch die AddInns mit einem anderen Rechner.
Falls da nichts erkennbar ist, deaktiviere mal alle Verweise AddInns und setze sie dann nach Neustart wieder neu.
Funktioniert denn
left([A1],2)
auf diesem Rechner?
Wenn nein, kann man dies zwar mit
vba.left([A1],2)
umgehen, aber irgendeine Bibliothek fehlt da.
Ungetestet, kannst du über Optionen die Nullanzeige abschalten und dann folgenden Code benutzen:
Sub tt()
On Error Resume Next
Range(„A1:A680“).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
On Error Goto 0
End Sub
Gruß
Reinhard
Hallo Reinhard,
vielen Dank für Deine vielen Gedanken, die Du Dir machst.
„Cell“ habe ich durch „rngCell“ ersetzt. Makro läuft stabiler,
hat sich sonst zwischendurch mal weggehängt.
Den Code muß ich später prüfen, hab’ gerade Streß.
Danke erstmal.
Gruß
Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]