Office: (Office 365) VBA:Laufzeitfehler beim Einlesen in Variable

Hallo Excel Freaks,

ich habe eine Frage, ein Problem wo ich nicht mehr weiter weis....
In eine Exceldatei kopiere ich mir über Makro auf ein Tabellenblatt von anderen Exceldateien das Tabellenblatt1
So... jetzt kommt es
aus manchen Tabellenblättern läuft es durch- bei manchen "Laufzeitfehler 13"

Dim intArt11 As Integer
intArt11 = wksQBlatt.Cells(i, 8).Value

der Inhalt ist aber immer eine ganze Zahl von 1-24

Dimensioniere ich die Variable auf Variant um...läuft es....

So, jetzt ist es aber so, dass ich wissen möchte, warum das so ist.
und es sind halt viele , viele Variablen, die ich umformatieren müsste.
Vielleicht kann ich ja da was ändern einbauen, damit der Fehler nicht auftritt?

Mit Dank vorab!
Michael

 

Hi,

überprüfe mal, ob die Zelle i,8 auch immer eine Zahl enthält oder aber einen Text.

 

Ja, da steht immer eine Zahl. In beiden Fällen als "Standard" formatiert

 

Hi,
hast Du das mit ISTZAHL geprüft?

Ansonsten zeige mal die Datei, die bisherigen Infos sind zu dürftig um was zu sagen.

 

Habe ich- WAHR
Die Datei habe ich mal angehängt

 

in Das QBlatt wird von der anderen Datei Daten einkopiert.
Der Laufzeitfehler kommt in diesem Beispiel bei:

Dim intArt11 As Integer
intArt11 = wksQBlatt.Cells(i, 8).Value

 

Hi,

1. fehlen alle Tabellen, die im Makro aufgeführt sind,
2. um welches der vielen Makros geht es überhaupt?

 

Moin Micha,
in Deiner Tabelle kann ich in Spalte 8 = H in Zeile 2 etwas finden, das definitiv keine Zahl ist: x.825.210.600. Ab Zeile 3 ist die Spalte leer... Da würde ich als VBA auch meckern. Welche Werte sollten denn da stehen?

Übrigens lassen sich Deine unzähligen Integer mit Strg+H Suchen & Ersetzen in wenigen Sekunden umbauen.
Ist zwar nicht wirklich EDV, aber wenn's hilft ...

Grüße

 

So, jetzt habe ich das Makro in die datei mit Button in der Datei verknüpft

 

Guten Morgen,
nach dem Drücken auf den CommandButton1 kommt der Laufzeitfehler.
Warum geht hier nicht die Formatierung auf Integer? Mit Variant Dimensioniert geht es.
Klar- d'Bastler hat schon recht ich könnte mit Suchen und Ersetzen die mit Integer und Double dimensionierten Variablen umschreiben bzw ersetzen durch Variant. Es muss doch einen Grund geben, warum es nicht geht? Vielleicht gibt es ja eine einfache Lösung?
LG Michael

 

Hallo Micha,

Inhalt der Cells(3,8) (=H8) ist "" , also ein Leerstring. Das Ist TEXT!!
Formatiere die betreffenden Zellen als Zahl, dann hast du keine Probleme.


Gruß Sigi

 

Verrückt...
ich habe aus den Tabellen die Ausschnitte auf ein Tabellenblatt kopiert. Entscheidend sind die gelben Zellen!
Beide sind Leer und beide mit Zahl formatiert.
Unterschied....
die Obere Tabelle wurde aus einer Tabelle kopiert in der in H3 die Formel steht.....
=WENN($A3="";"";WENN(SVERWEIS($D3;KonvertAdern;12;FALSCH)="";"";WENN(SVERWEIS($D3;KonvertAdern;12;FALSCH)="x";QElektro24!$AQ8;SVERWEIS($D3;KonvertAdern;12;FALSCH))))

Wie müsste ich dann schreiben wenn(a3=""; ?
es kann ja nur noch daran liegen?

 

Moin!

Du hast schon =WENN($A3="" und brauchst noch =WENN(A3="" ? Du bist Dir der Bedeutung des $ bewusst?

Grüße

 

Ja- die Formeln wurden nach rechts gezogen und das $A steht dann für absolut!?

 

Ich hab die Lösung.
Ich bereinige die leeren Zellen nochmal so:
Dim Z As Long, S As Long
For Z = 3 To 32
For S = 8 To 23
If Worksheets("QBlatt1").Cells(Z, S) = "" Then Worksheets("QBlatt1").Cells(Z, S).ClearContents
Next
If Worksheets("QBlatt1").Cells(Z, 1) = "" Then Worksheets("QBlatt1").Cells(Z, 1).ClearContents
If Worksheets("QBlatt1").Cells(Z, 27) = "" Then Worksheets("QBlatt1").Cells(Z, 27).ClearContents
Next


Vielen Dank euch für eure Hilfe- IHR habt mich auf die Lösung gebracht!