Hallo zusammen,
ich habe mal wieder ein Problem, vielleicht kann kemand helfen?
Der folgende Code klappt bei XL2000 tadellos. Er blendet mir
alle Zeilen aus, bei denen in Spalte A eine NULL steht.
Schaltfläche aus der Steuerelemente Toolbox.
Private Sub CommandButton1\_Click()
' Makro blendet alle Zeilen mit 0 aus
Dim rngCell As Range, arrTab, T As Integer
Static F As Boolean
arrTab = Array("Tabelle1", "Tabelle2", "Tabelle2")
For T = 0 To UBound(arrTab)
For Each rngCell In Sheets(arrTab(T)).Range("A1:A1115")
If rngCell.Value = 0 Then rngCell.EntireRow.Hidden = True
Next rngCell
Next T
F = Not F
End sub
Betätige ich die Schaltfläche in Xl2003 erhalte ich
folgende Fehlermeldung:
„Laufzeitfehler 1004“
Die Hidenn-Eigenschaft des Rage-Objektes kann nicht
festgelegt werden.
Hat jemand eine Idee, wie ich da wieder raus komme?
Gruß und danke
Rolf
Der folgende Code klappt bei XL2000 tadellos. Er blendet mir
alle Zeilen aus, bei denen in Spalte A eine NULL steht.
Schaltfläche aus der Steuerelemente Toolbox.
Betätige ich die Schaltfläche in Xl2003 erhalte ich
folgende Fehlermeldung:
„Laufzeitfehler 1004“
Die Hidenn-Eigenschaft des Rage-Objektes kann nicht
festgelegt werden.
Hallo Rolf,
ich hab hier XL2000, mußte warten bis hier jmd. nderes testet mit XL2003.
Laüft der Code in der gleichen Datei in XL2000 und XL2003 oder sind es verschiedene Dateien?
Blattschutz oder sowas?
Ich erkenne nicht warum es die Vriable F gibt. Warum ist im Array Tabelle2 doppelt?
Teste mal in XL2003 das folgende Makro´und berichte in welchem Blatt und welcher zelle der Fehler auftritt.
Gruß
Reinhard
Der folgende Code klappt bei XL2000 tadellos. Er blendet mir
alle Zeilen aus, bei denen in Spalte A eine NULL steht.
Schaltfläche aus der Steuerelemente Toolbox.
Betätige ich die Schaltfläche in Xl2003 erhalte ich
folgende Fehlermeldung:
„Laufzeitfehler 1004“
Die Hidenn-Eigenschaft des Rage-Objektes kann nicht
festgelegt werden.
Hallo Reinhard,
danke für Dein Interesse.
Laüft der Code in der gleichen Datei in XL2000 und XL2003 oder
sind es verschiedene Dateien?
Dieselbe Datei
Blattschutz oder sowas?
nein
Ich erkenne nicht warum es die Vriable F gibt.
Die Variable F hat hier keine Funktion, ist also über.
Warum ist im Array Tabelle2 doppelt?
Mein Fehler, muss Tabelle3 heissen, heisst im Original eh anders.
Teste mal in XL2003 das folgende Makro´und berichte in welchem
Blatt und welcher zelle der Fehler auftritt.
Ähm - welches Makro?
Gruß
Rolf
Ähm - welches Makro?
Hallo Rolf,
sehr gute Frage, nimm halt das solange 
Private Sub CommandButton1\_Click()
' Makro blendet alle Zeilen mit 0 aus
Dim rngCell As Range, arrTab, T As Integer
On Error GoTo Fehler
arrTab = Array("Tabelle1", "Tabelle2", "Tabelle3")
For T = 0 To UBound(arrTab)
For Each rngCell In Sheets(arrTab(T)).Range("A1:A1115")
If rngCell.Value = 0 Then rngCell.EntireRow.Hidden = False
Next rngCell
Next T
Exit Sub
Fehler:
MsgBox arrTab(T)
MsgBox rngCell.Address
End Sub
Gruß
Reinhard
Hallo Reinhard,
sehr beruhigend, dass das nicht nur mir passiert 
danke, ich werd’s testen, kann aber paar Tage dauern,
habe gerade etwas Stress.
Gruß
Rolf