Problem
12.02.2004 16:02:39
Jonathan
Problem (das hat wohl fast jeder, der hier einen Beitrag schreibt, aber ich wusste nicht wie ich es nennen sollte)
Also, es geht um folgendes:
mit folgenden Code überprüfe ich die eingabe von werten in bestimmten zellen - ein auszug:
Dim i As Byte, j As Byte
For i = 10 To 33
If ThisWorkbook.Sheets("JAN").Range("H" & i) <> "" And _
ThisWorkbook.Sheets("JAN").Range("G" & i) = 0 _
Then MsgBox "Es wurde in dem Blatt " & Sheets(j).Name & " in Zeile " & i & vbCrLf & _
"vergessen den Versicherer auszuwählen!" & vbCrLf & _
"Dieses muss jetzt nachgeholt werden, da jeder fehlende" & vbCrLf & _
"Wert die Berechnungen der Pivot Tabellen verfälscht.", _
0 + 48, "!!WICHTIG!! Liebe(r) " & Application.UserName
Next
Nun folgendes:
wenn in einer zelle einer spalte welche hier überprüft wird (also hier G oder H) ein wert eingegeben wurde, kommt die fehlermeldung 9 (index außerhalb des gültigen bereichs)
Hat jemand eine ahnung woran das liegen könnte?
Danke Euch für Eure Hilfe
Jonathan