VBA - Range Problem
29.10.2004 10:19:42
Immortal
Die Methode Range für das Objekt _Worksheet ist fehlgeschlagen.
hat jemand eine idee woran das liegen könnte?
Private Sub CommandButton2_Click()
If Range("J4").Value = 10 Then
Do
bla
FEHLER -> Range(Spalte & "13").Value = Range(Spalte & "13").Value + Range(Spalte & "13").Value
Loop Until Spalte = "H"
End If
End Sub
Sub bla()
If Spalte = "C" Then
Spalte = "D"
ElseIf Spalte = "D" Then
Spalte = "E"
ElseIf Spalte = "E" Then
Spalte = "F"
ElseIf Spalte = "F" Then
Spalte = "G"
ElseIf Spalte = "G" Then
Spalte = "H"
Else
Spalte = "C"
End If
End Sub