Leere Zelle überspringen
21.11.2015 21:46:46
Dmytro Renner
Hallo Liebe Gemeinde.
Habe mir eine Schleife zurecht gemacht die den Wert aus Zellen einer Variable nacheinander zuordnet.
Option Explicit
Public Anr As Double
Public ST1 As integer
Public LT As Date
For ART = 3 To 500
Worksheets("Forecast").Select
For s = 9 To 20
On Error GoTo ende
ST1 = Cells(ART, s).Value
Ende:
Next
Next
leider sind manche Zellen leer(Exportdatei). Dann bekomme ich ein Typenunverträglichkeitsproblem da sich der integer mit der leeren Zelle nicht verträgt.
Meine Idee ist zu überprüfen ob die Zelle Leer ist.
If Cells(ART, s).Value = Empty Then
GoTo ende
End If
leider klappt das mit der Erkennung nicht.
Habt Ihr eine Idee wie das Problemchen zu lösen ist???
Vielen Dank!!!