With End with Schlaufe - Typen unverträglich
10.01.2006 20:13:41
Peter
Ich versuche in einer with Schlaufe eine Division auszuführen. Die Division kann jedoch nur durchgeführt werden, wenn der Divisor (in Spalte R) nicht NULL ist.
Welche Typen sind in dieser Zeile unverträglich? In der Spalte AA, beginnend ab Zeile 5 möchte ich den Wert aus der Division Z5 / R5, Z6 / R6
.Cells(zNr, 27) = Cells(zNr, 26) / Cells(zNr, 18)
Danke für Feedback
Peter
Sub Plausi()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim vSheet As Worksheet
Dim x As Variant
Dim zNr As Long
Dim nString As String
Dim dstring As Date
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveSheet
If aSheet.Index = 1 Then Exit Sub
Set vSheet = aBook.Sheets(aSheet.Index - 1)
dstring = Sheets("Parameter").Range("navdate")
nString = Format(Month(Date), "00") & Format(Day(Date), "00")
Set vSheet = Sheets(nString)
With aSheet
zNr = 5
Do While Cells(zNr, 3) <> ""
If Cells(zNr, 18) <> 0 Then
.Cells(zNr, 27) = Cells(zNr, 26) / Cells(zNr, 18)
Else
End If
zNr = zNr + 1
Loop
End With
End Sub