Excel VBA Run-time error '13' Type mismatch

Ich ein makro erstellt für eine Datei und zuerst war es wunderbar funktioniert, aber heute habe ich schon öffnen und starten Sie die Datei-und makro-Hunderte Male und ich bin immer die folgende Fehlermeldung: Excel VBA Run-time error '13' Type mismatch

Ich nichts verändert habe, in der makro und weiß nicht, warum bin ich immer die Fehler. Außerdem es dauert eine Ewigkeit, bis das makro aktualisieren jedes mal, wenn ich es laufen (das makro laufen etwa 9000 Zeilen).

Der Fehler ist in der zwischen ** **.

VBA:

Sub k()

Dim x As Integer, i As Integer, a As Integer
Dim name As String
name = InputBox("Please insert the name of the sheet")
i = 1
Sheets(name).Cells(4, 58) = Sheets(name).Cells(4, 57)
x = Sheets(name).Cells(4, 57).Value
Do While Not IsEmpty(Sheets(name).Cells(i + 4, 57))
    a = 0
    If Sheets(name).Cells(4 + i, 57) <> x Then
        If Sheets(name).Cells(4 + i, 57) <> 0 Then
            If Sheets(name).Cells(4 + i, 57) = 3 Then
                a = x
                Sheets(name).Cells(4 + i, 58) = Sheets(name).Cells(4 + i, 57) - x
                x = Cells(4 + i, 57) - x
            End If
            **Sheets(name).Cells(4 + i, 58) = Sheets(name).Cells(4 + i, 57) - a**
            x = Sheets(name).Cells(4 + i, 57) - a
        Else
        Cells(4 + i, 58) = ""
        End If
    Else
    Cells(4 + i, 58) = ""
    End If

i = i + 1
Loop

End Sub

Glauben Sie, können Sie mir helfen? Ich verwende excel 2010 auf windows 7.
Vielen Dank

Wahrscheinlich tun Sie eine if-Anweisung und vergleicht einen string mit doppelten Anführungszeichen. Verwenden ="3" nicht = 3

InformationsquelleAutor Diogo | 2012-01-16

9

Würden Sie einen "type mismatch", wenn Sheets(name).Cells(4 + i, 57) enthält einen nicht-numerischen Wert. Sie sollten überprüfen Sie die Felder aus, bevor Sie annehmen, dass Sie Sie zahlen, und versuchen Sie, subtrahieren Sie von Ihnen.

Auch die, die Sie aktivieren sollten Option Strict so sind Sie gezwungen, explizit konvertieren Sie Ihre Variablen, bevor Sie versuchen, führen Sie Typ-abhängige Operationen auf Ihnen wie Subtraktion. Das wird Ihnen helfen, erkennen und beseitigen Sie Probleme in der Zukunft, auch.
Leider Option Strict ist für VB.NET nur. Noch, Sie sollten look-up-best practices für die explizite Datentypkonvertierungen in VBA.

Update:

Wenn Sie versuchen, gehen für die schnelle Lösung von deinem code, jedoch wickeln Sie die ** Zeile und die folgende es in den folgenden Zustand:
```
If IsNumeric(Sheets(name).Cells(4 + i, 57))
    Sheets(name).Cells(4 + i, 58) = Sheets(name).Cells(4 + i, 57) - a
    x = Sheets(name).Cells(4 + i, 57) - a
End If
```
Beachten Sie, dass Ihre x Wert enthält möglicherweise nicht den erwarteten Wert in die nächste iteration, aber.
- Es ist immer numerische Werte zwischen 0 und 3.
- Ich habe den Fehler in der ersten Zeile des Codes, den Sie mir Gaben "Compile error: Syntax error"
- Es sollten keine syntax-Fehler. Stellen Sie sicher, dass Sie es direkt nach dem anderen If - Anweisung, und dass Sie alle den Klammern.
- Option Strict ist VB.NET, nicht VBA.
- Option Strict ist nicht verfügbar in VBA für Excel, allerdings kannst du dich entscheiden zwischen diesen 4: Base, Vergleichen, Explizite und Private.
InformationsquelleAutor Devin Burke

Danke Jungs für all Eure Hilfe! Schließlich war ich in der Lage, damit es funktioniert tadellos, Dank einer Freundin und auch Sie!
Hier ist der Letzte code, also können Sie auch sehen, wie wir es lösen.

Nochmals vielen Dank!

Option Explicit

Sub k()

Dim x As Integer, i As Integer, a As Integer
Dim name As String
'name = InputBox("Please insert the name of the sheet")
i = 1
name = "Reserva"
Sheets(name).Cells(4, 57) = Sheets(name).Cells(4, 56)

On Error GoTo fim
x = Sheets(name).Cells(4, 56).Value
Application.Calculation = xlCalculationManual
Do While Not IsEmpty(Sheets(name).Cells(i + 4, 56))
    a = 0
    If Sheets(name).Cells(4 + i, 56) <> x Then
        If Sheets(name).Cells(4 + i, 56) <> 0 Then
            If Sheets(name).Cells(4 + i, 56) = 3 Then
                a = x
                Sheets(name).Cells(4 + i, 57) = Sheets(name).Cells(4 + i, 56) - x
                x = Cells(4 + i, 56) - x
            End If
            Sheets(name).Cells(4 + i, 57) = Sheets(name).Cells(4 + i, 56) - a
            x = Sheets(name).Cells(4 + i, 56) - a
        Else
        Cells(4 + i, 57) = ""
        End If
    Else
    Cells(4 + i, 57) = ""
    End If

i = i + 1
Loop
Application.Calculation = xlCalculationAutomatic
Exit Sub
fim:
MsgBox Err.Description
Application.Calculation = xlCalculationAutomatic
End Sub

InformationsquelleAutor Diogo

Diogo

Justin hat Ihnen sehr schöne Tipps 🙂

Erhalten Sie auch, dass Fehler, wenn die Zelle, wo Sie werden die Durchführung der Berechnung ist ein Fehler, resultierend aus einer Formel.

Zum Beispiel, wenn Zelle A1 #DIV/0! Fehler, dann erhalten Sie "Excel VBA Run-time error '13' Type mismatch" bei der Durchführung dieser code

Sheets("Sheet1").Range("A1").Value - 1

Ich gemacht habe, einige kleine änderungen an Ihrem code. Könnten Sie bitte testen für mich? Kopieren Sie den code mit Zeilennummern, wie ich bewusst haben Sie dort hingestellt.

Option Explicit

Sub Sample()
  Dim ws As Worksheet
  Dim x As Integer, i As Integer, a As Integer, y As Integer
  Dim name As String
  Dim lastRow As Long
10        On Error GoTo Whoa

20        Application.ScreenUpdating = False

30        name = InputBox("Please insert the name of the sheet")

40        If Len(Trim(name)) = 0 Then Exit Sub

50        Set ws = Sheets(name)

60        With ws
70            If Not IsError(.Range("BE4").Value) Then
80                x = Val(.Range("BE4").Value)
90            Else
100               MsgBox "Please check the value of cell BE4. It seems to have an error"
110               GoTo LetsContinue
120           End If

130           .Range("BF4").Value = x

140           lastRow = .Range("BE" & Rows.Count).End(xlUp).Row

150           For i = 5 To lastRow
160               If IsError(.Range("BE" & i)) Then
170                   MsgBox "Please check the value of cell BE" & i & ". It seems to have an error"
180                   GoTo LetsContinue
190               End If

200               a = 0: y = Val(.Range("BE" & i))
210               If y <> x Then
220                   If y <> 0 Then
230                       If y = 3 Then
240                           a = x
250                           .Range("BF" & i) = Val(.Range("BE" & i)) - x

260                           x = Val(.Range("BE" & i)) - x
270                       End If
280                       .Range("BF" & i) = Val(.Range("BE" & i)) - a
290                       x = Val(.Range("BE" & i)) - a
300                   Else
310                       .Range("BF" & i).ClearContents
320                   End If
330               Else
340                   .Range("BF" & i).ClearContents
350               End If
360           Next i
370       End With

LetsContinue:
380       Application.ScreenUpdating = True
390       Exit Sub
Whoa:
400       MsgBox "Error Description :" & Err.Description & vbNewLine & _
         "Error at line     : " & Erl
410       Resume LetsContinue
End Sub

Ich habe den Fehler "Kompilierungs-Fehler: Variable nicht definiert" in der Zeile 130 "lastrow="
Geändert 🙂 Bitte versuchen Sie jetzt.
Kein Fehler, aber mein excel-Blatt ist das einfrieren jedes mal wenn ich es versuche 🙁
Da gibt es 9000 Zeilen, geben Sie es irgendwann. Warten und sehen, was passiert. Alternativ, wenn Sie möchten, ändern Sie ZEILE 20 auf True statt False. - Anwendung.ScreenUpdating = True und dann überprüfen Sie es. Hat gezeigt, Anzeichen von Leben zu sein?

InformationsquelleAutor Siddharth Rout

Für zukünftige Leser:

Diese Funktion wurde abending in Run-time error '13': Type mismatch

Function fnIsNumber(Value) As Boolean
  fnIsNumber = Evaluate("ISNUMBER(0+""" & Value & """)")
End Function

In meinem Fall wurde die Funktion Versagen, wenn es lief in einer #DIV/0! oder N/A Wert.

Um es zu lösen, ich hatte, dies zu tun:

Function fnIsNumber(Value) As Boolean
   If CStr(Value) = "Error 2007" Then '<===== This is the important line
      fnIsNumber = False
   Else
      fnIsNumber = Evaluate("ISNUMBER(0+""" & Value & """)")
   End If
End Function

InformationsquelleAutor cssyphus

Sub HighlightSpecificValue()

'PURPOSE: Highlight all cells containing a specified values


Dim fnd As String, FirstFound As String
Dim FoundCell As Range, rng As Range
Dim myRange As Range, LastCell As Range

'What value do you want to find?
  fnd = InputBox("I want to hightlight cells containing...", "Highlight")

    'End Macro if Cancel Button is Clicked or no Text is Entered
      If fnd = vbNullString Then Exit Sub

Set myRange = ActiveSheet.UsedRange
Set LastCell = myRange.Cells(myRange.Cells.Count)

enter code here
Set FoundCell = myRange.Find(what:=fnd, after:=LastCell)

'Test to see if anything was found
  If Not FoundCell Is Nothing Then
    FirstFound = FoundCell.Address

  Else
    GoTo NothingFound
  End If

Set rng = FoundCell

'Loop until cycled through all unique finds
  Do Until FoundCell Is Nothing
    'Find next cell with fnd value
      Set FoundCell = myRange.FindNext(after:=FoundCell)







    'Add found cell to rng range variable
      Set rng = Union(rng, FoundCell)

    'Test to see if cycled through to first found cell
      If FoundCell.Address = FirstFound Then Exit Do


  Loop

'Highlight Found cells yellow

  rng.Interior.Color = RGB(255, 255, 0)

  Dim fnd1 As String
  fnd1 = "Rah"
  'Condition highlighting

  Set FoundCell = myRange.FindNext(after:=FoundCell)



  If FoundCell.Value("rah") Then
      rng.Interior.Color = RGB(255, 0, 0)

  ElseIf FoundCell.Value("Nav") Then

    rng.Interior.Color = RGB(0, 0, 255)



    End If





'Report Out Message
  MsgBox rng.Cells.Count & " cell(s) were found containing: " & fnd

Exit Sub

'Error Handler
NothingFound:
  MsgBox "No cells containing: " & fnd & " were found in this worksheet"

End Sub

InformationsquelleAutor chetan dubey

0

Ich hatte das gleiche problem wie du erwähnt hier oben, und mein code war Prima gestern den ganzen Tag.

Hielt ich auf die Programmierung an diesem morgen, und als ich öffnete meine Bewerbung (meine Datei mit einem Auto_Open-sub), habe ich den Run-time error '13' Type mismatch", ich ging auf dem web, um Antworten zu finden, habe ich versucht, eine Menge Dinge, änderungen und irgendwann erinnerte ich mich daran, irgendwo gelesen über "Ghost" - Daten, die Aufenthalte in einer Zelle, auch wenn wir es nicht sehen.

Mein code, geht nur die übertragung von Daten aus einer Datei, die ich bisher geöffnet zu einem anderen und Summe es. Mein code blieb an der Dritten SheetTab (So ging es Recht für die 2 vorherigen SheetTab, wo der selbe code ging ohne zu stoppen) mit "Type mismatch" - Meldung. Und es macht jedes mal an der gleichen SheetTab, wenn ich neu starten mein code.

Also wählte ich die Zelle, wo Sie beendet wurde, manuell eingetragen 0,00 (Da die "Type mismatch" kommt aus einer Summierung Variablen deklariert DIM as Double) und kopiert diese Zelle in alle weiteren Zellen, in denen das gleiche problem aufgetreten. Es löste das problem. Nie hatte Sie die Nachricht erneut. Nichts mit meinem code, aber der "Geist" oder Daten aus der Vergangenheit. Es ist wie, wenn Sie wollen, verwenden Sie die Strg+Ende-und Excel bringt Sie, wo Sie hatte die Daten einmal und es gelöscht. Hatte auf "Speichern" und schließen Sie die Datei, wenn Sie wollten, verwenden Sie Strg+Ende, um sicherzustellen, dass Excel wies Sie auf die Rechte Zelle.

InformationsquelleAutor Youbi
0

Dieser Fehler tritt auf, wenn die input-Variablen-Typ ist falsch. Vermutlich haben Sie geschrieben, eine Formel in Cells(4 + i, 57) dass anstelle der =0 die Formel = "" verwendet haben. Also, wenn Sie dies ausführen, erscheint eine Fehlermeldung. Weil leere Zeichenfolge ist nicht gleich null.

InformationsquelleAutor gadolf

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.