Fehlermeldung

Bild

Betrifft: Fehlermeldung von: Demian
Geschrieben am: 05.04.2005 15:26:15

Sub Makro2()
    Cells.Select
    Selection.Clear 
    Workbooks.Open FileName:= _
        "C:\WINNT\Profiles\...\Erg_1_Daten.xls"
    ActiveSheet.UsedRange.Select
    Selection.Copy  
    Windows("Erg_1.xls").Activate
    Range("A1").Select
    ActiveSheet.Paste   
    Application.CutCopyMode = False
    Selection.AutoFilter
  
    Dim l As Long
    Dim Letzte As Long
    Letzte = Range("a65536").End(xlUp).Row
        For l = Letzte To 1 Step -1
        If Not IsEmpty(Cells(l, 1)) Then
        If Cells(l, 1).Value = 0 Then Rows(l).Delete
        End If
        Next
End Sub



Prozedur funktioniert zwar, alles wird kopiert und die Nullen werden gelöscht. Dennoch bekomme ich am Ende in der Zeile "If Cells(l, 1). etc." die Fehlermeldung "Laufzeitfehler '13': Typen unverträglich". Jemand eine Ahnung, wie man das abstellen kann?

Herzlichen Dank im Voraus. Demian
Bild


Betrifft: AW: Fehlermeldung von: Volker
Geschrieben am: 05.04.2005 15:43:00

Hallo Demian,

keine Ahnung, warum es bei Dir nicht geht. liegt ev. an den Daten in Spalte A.
Probier mal das hier, ist eh kürzer.

If Cells(l, 1) <> "" And Cells(l, 1) = 0 Then
Rows(l).Delete
End If

Gruß
Volker


Bild


Betrifft: AW: Fehlermeldung von: Demian
Geschrieben am: 05.04.2005 15:54:28

Formel funktioniert genauso gut bzw. schlecht. Bekomme an derselben Stelle die gleiche Fehlermeldung. In Spalte A stehen Zahlen.


Bild


Betrifft: sorry, steh auf dem Schlauch. FRAGE NOCH OFFEN von: Volker
Geschrieben am: 05.04.2005 16:10:19

.


Bild


Betrifft: AW: Fehlermeldung von: ransi
Geschrieben am: 05.04.2005 16:46:51

hallo demian

kannst du mal spalte A in eine beispieltabelle kopieren und hochladen ?


ransi


Bild


Betrifft: AW: Fehlermeldung von: Stefan Hillenbrand
Geschrieben am: 05.04.2005 17:13:27

Hallo Demian,

versuch mal das

Sub Makro2()
    Cells.Select
    Selection.Clear
    Workbooks.Open Filename:= _
        "C:\WINNT\Profiles\...\Erg_1_Daten.xls"
    ActiveSheet.UsedRange.Select
    Selection.Copy
    Windows("Erg_1.xls").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFilter
  
    Dim l As Long
    Dim Letzte As Long
    Letzte = Range("a65536").End(xlUp).Row
        For l = Letzte To 1 Step -1
        If Not IsEmpty(Cells(l, 1)) Then
        If Cells(l, 1).Value = 0 Then Cells(l, 1).EntireRow.Delete
        End If
        Next
End Sub


Gruß Stefan


Bild


Betrifft: AW: Fehlermeldung von: Demian
Geschrieben am: 06.04.2005 08:30:09

Hallo Stefan,

leider tritt auch bei dieser Formel das gleiche Problem auf:

"If Cells(l, 1).Value = 0 Then" ist gelb mit der o.g. Fehlermeldung. Habe Spalte A angehängt. Wäre für weitere Hilfe dankbar. Gruß Demian

https://www.herber.de/bbs/user/20733.xls


Bild


Betrifft: AW: Fehlermeldung von: Stefan Hillenbrand
Geschrieben am: 06.04.2005 09:57:58

Hallo Demian,

bei mir gings. Weiß jetzt auch nicht mehr weiter.

Gruß Stefan


Bild


Betrifft: AW: Fehlermeldung von: Demian
Geschrieben am: 06.04.2005 10:19:58

Komisch, bei der Vorführung eben auf dem Rechner des Chefs hat's auch funktioniert. Da steckst Du nicht drin... Danke Euch!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fehlermeldung"