Problem: Typen unverträglich ???

Bild

Betrifft: Problem: Typen unverträglich ???
von: Daniel
Geschrieben am: 10.11.2003 11:46:36

Hallo Leute,
habe bei folgendem:


Sub zuordnen()
Dim i As Integer, x As Integer
i = 2
x = 1
While i < 20
Sheets("Übersicht").Select
If cells(i, 10) = "SF2" Then    'hier kommt der Fehler
Rows(i).Copy
Worksheets("SF2").Activate
Rows(x).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
x = x + 1
End If
i = i + 1
Wend
End Sub


das Problem, das er immer abbricht und sagt: "Typen unverträglich"

Woran kann dies liegen???

mfg Daniel
Bild


Betrifft: AW: Problem: Typen unverträglich ???
von: Hajo_Zi
Geschrieben am: 10.11.2003 11:53:20

Hallo Daniel

versuchs mal so


Sub zuordnen()
    Dim i As Integer, x As Integer
    i = 2
    x = 1
    While i < 20
        If Sheets("Übersicht").Cells(i, 10) = "SF2" Then
            Sheets("Übersicht").Rows(i).Copy
            With Worksheets("SF2")
                .Rows(x).PasteSpecial Paste:=xlPasteValues
                x = x + 1
            End With
        End If
        i = i + 1
    Wend
End Sub



Select, Activate usw. ist zu 99% in VBa nicht notwendig


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Problem: Typen unverträglich ??? immer noch
von: Daniel
Geschrieben am: 10.11.2003 11:57:08

Hi Hajo,
es besteht immer noch das gleiche Problem an der gleichen Stelle.

mfg Daniel


Bild


Betrifft: AW: Problem: Typen unverträglich ??? immer noch
von: Hajo_Zi
Geschrieben am: 10.11.2003 12:00:42

Hallo Daniel

was steht in der Zelle in der der Fehler ausgelöst wird?? Vielleicht eine Fehlermitteilung??


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Problem: Typen unverträglich ??? Ja
von: Daniel
Geschrieben am: 10.11.2003 12:03:45

Hi,
ja, er macht es solange, bis die Fehlermeldung #NV zu finden ist.

mfg Daniel


Bild


Betrifft: AW: Problem: Typen unverträglich ??? Ja
von: Hajo_Zi
Geschrieben am: 10.11.2003 12:31:59

Hallo Daniel


Sub zuordnen()
    Dim i As Integer, x As Integer
    i = 2
    x = 1
    While i < 20
        If Not IsError(Sheets("Übersicht").Cells(i, 10)) Then
            If Sheets("Übersicht").Cells(i, 10) = "SF2" Then
                Sheets("Übersicht").Rows(i).Copy
                With Worksheets("SF2")
                    .Rows(x).PasteSpecial Paste:=xlPasteValues
                    x = x + 1
                End With
            End If
        End If
        i = i + 1
    Wend
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Problem: Typen unverträglich ??? Ja
von: Hajo_Zi
Geschrieben am: 10.11.2003 13:42:13

Hallo Daniel

ich vermute mal das Problem ist gelöst.

Keine Rückmeldung ist auch eine Reaktion.


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild

Beiträge aus den Excel-Beispielen zum Thema " Fehler bei Konstanten"