Das Typkonfliktfehler In Excel VBA tritt auf, wenn Sie versuchen, einer Variablen einen Wert zuzuweisen, der nicht den richtigen Typ hat.
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
Dim-Zahl As Integer
Zahl = "Fahrrad"
Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:
Erläuterung: Sie können einer Variablen vom Typ Integer keinen Zeichenfolgenwert (Fahrrad) zuweisen.
Der Typkonfliktfehler (Laufzeitfehler 13) tritt häufig auf, wenn die InputBox-Funktion in Excel VBA verwendet wird.
1. Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
Dim-Zahl As Integer
Zahl = InputBox("Geben Sie eine Zahl ein", "Quadratwurzel")
MsgBox "Die Quadratwurzel von " & Zahl & " ist " & Sqr(Zahl)
2. Klicken Sie auf die Befehlsschaltfläche auf dem Blatt, geben Sie den Zeichenfolgenwert hundert ein, und klicken Sie auf OK.
Ergebnis:
3. Klicken Sie auf Ende.
4. Um eine freundliche Nachricht anstelle der anzuzeigen Typkonfliktfehler, aktualisieren Sie den Code wie folgt.
Dim-Nummer als Variante
Zahl = InputBox("Geben Sie eine Zahl ein", "Quadratwurzel")
Wenn IsNumeric(Zahl) Then
MsgBox "Die Quadratwurzel von " & Zahl & " ist " & Sqr(Zahl)
Anders
MsgBox "Bitte Nummer eingeben"
Ende Wenn
Erläuterung: Eine Variable vom Typ Variant kann einen beliebigen Werttyp enthalten (siehe erste Zeile). Die IsNumeric-Funktion in Excel VBA überprüft, ob ein Wert eine Zahl ist.
5. Wiederholen Sie Schritt 2.
Ergebnis:
6. Überprüfen Sie abschließend, ob dieser einfache Quadratwurzel-Rechner funktioniert.
Ergebnis:
Tipp: Laden Sie die Excel-Datei (rechte Seite dieser Seite) herunter und probieren Sie es aus.
