PDA

Vollständige Version anzeigen : Makros


McNally
20.06.2001, 10:19
Ich habe eine Tabelle mit einem beschädigten Makro bekommen und ich bekomme die Fehlermeldung "Typen unverträglich (Fehler 2023"), ich konnte aber im Quellcode nichts entdecken. Vieleicht findet ja jemand von Euch den Fehler:Sub Transfer()
Dim I, Ziel, IEnd, Punkte, Status As Integer
Dim Zelle, ZelleZiel, ZeileStart, ZeileZiel, LeerBereich As String

Application.ScreenUpdating = False


Rows("5:500").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Punkte = Cells(4, 13)

For I = 5 To Punkte
Sheets("Aktuell").Select
--- Status = Cells(I, 14) --- Typen unverträglich
If Status = 1 Then
Range(Cells(I, 1), Cells(I, 15)).Select
Selection.Copy
Sheets("Archiv").Select
Ziel = Cells(4, 13) + 1
ZelleZiel = "A" & Ziel
Range(ZelleZiel).Select
ActiveSheet.Paste

Sheets("Aktuell").Select
End If
Next

For I = 5 To Punkte
Sheets("Aktuell").Select
--- Status = Cells(I, 14) --- Typen unverträglich
If Status = 1 Then
ZeileStart = I & ":" & I
Rows(ZeileStart).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
I = I - 1
Punkte = Punkte - 1
End If
Next

Sheets("Archiv").Select


IEnd = Cells(4, 13)
Rows("1:65536").Select
Selection.EntireRow.Hidden = False
Rows(IEnd + 2 & ":65536").Select
Selection.EntireRow.Hidden = True

ActiveSheet.PageSetup.PrintArea = "A1:K" & (IEnd + 2)

Sheets("Aktuell").Select
IEnd = Cells(4, 13) + 2
Rows(IEnd & ":65536").Select
Selection.EntireRow.Hidden = True
Range("A5").Select

End Sub

Stema
20.06.2001, 11:58
Hallo McNally,

die Variable Status ist als Integer deklariert. Wenn sich jetzt etwas anderes als eine ganze Zahl zwischen -32.768 bis 32.767 in der Zelle(I,5) befindet, dann kommt diese Fehlermeldung.
Andere Möglichkeit: Es befinden sich korrekte Zahlen in den Zellen, die Zellen sind aber als Text formatiert.
Versuch's mal mit:
Status = Val(Cells(I, 14))

Gruß Stema

McNally
20.06.2001, 12:55
Danke Stema,

das hat funtioniert.

McNally