|
Hallo,
auch nach einigem Googlen finde ich nicht heraus, warum die vorletzte hier angehängte Zeile immer Probleme verursacht. Ich will, dass die dort verwendete Zelle von dem abhängt, was in Zelle (27, 1) steht.
Das hat auch ohne Convertierung von entry bzw. entryoriginal nicht geklappt - egal ob die Zelle (27, 1) als Number oder General formatiert wurde.
In Zelle (27, 1) steht also zum Beispiel die Zahl 47 und ich will, dass 130 Zeilen der 11. Spalte mit iVal gefüllt werden.
Wenn anstatt einer 47 eine 48 in der Zelle steht, sollen 130 Zeilen der 12. Spalte mit iVal gefüllt werden.
Dim iVal As Integer
Dim ws As Worksheet, sh As Worksheet
Dim i As Integer
Dim entry As Integer
Dim entryoriginal As Variant
entryoriginal = Cells(27, 1).Value
entry = CInt(entryoriginal)
Set ws = Sheets("Overview")
Set sh = Sheets("Tickets")
For i = 1 To 130
iVal = Application.WorksheetFunction.CountIfs(sh.Range("I:I"), Cells(i + 1, 1).Value, sh.Range("C:C"), entry)
Cells(i + 1, entry - 38).Value = iVal
Next i
Ich habe im Internet gelesen, dass man Zahlen als Datentyp Variant aus einer Zelle zieht und sie dann in einen Integer umwandeln kann, um weiterzurechnen.
Wenn ich nicht zu Integer konvertiere, gibt es keine Fehlermeldung, aber es passiert auch nichts.
Wenn ich den Wert versuche zu konvertieren, gibt es einen Type Mismatch (Run Time Error 13).
Was mache ich falsch?
|