Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro läuft nicht unter Excel 97 !!!!

Makro läuft nicht unter Excel 97 !!!!
ralle
Hallo Forum!
Habe ein Problem mit meinem Makro:

Sub selektieren()
Dim lz As Long, i As Long, c As Integer
Dim ws As Worksheet
Set ws = ActiveSheet
lz = Range("A65536").End(xlUp).Row
c = 0
Application.ScreenUpdating = False
Do
For i = 1 To lz
If Cells(i, 1) = 10000 Or i = lz Then
Rows("1:" & i).Cut
Sheets.Add After:=Sheets(Sheets.Count)
c = c + 1
ActiveSheet.Name = "Teil " & c
ActiveSheet.Paste
[A1].Select
ws.Select
Rows("1:" & i).Delete Shift:=xlUp
lz = Range("A65536").End(xlUp).Row
Exit For
End If
Next i
Loop While lz > 1
Application.ScreenUpdating = True
End Sub

Habe dieses Makro unter Excel 2000 geschrieben und da läuft es auch.
Wenn ich dieses nun unter Excel 97 laufen alssen will bekomme ich eine Fehlermeldung und die folgende Zeile wird gelb makiert:
If Cells(i, 1) = 10000 Or i = lz Then
Vermutlich liegt es daran, dass in der Spalte A auch Text vorhanden ist?
Wer kann mir helfen, damit es auch unter Excel 97 läuft ?
Gruß
ralle

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro läuft nicht unter Excel 97 !!!!
29.04.2004 19:17:59
Nepumuk
Hallo ralle,
versuch es mal so:
CStr(Cells(i, 1)) = "10000"
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige