Index außerhalb des gültigen Bereiches
11.08.2005 09:35:12
Josef
Obwohl das Arbeitsblatt "Binf neu (2)" aktiviert ist bekomme ich die Fehlermeldung "Index außerhalb des gültigen Bereiches" Laufzeitfehler 9.
Wo könnte hier bitte der Fehler im Code sein?
Private Sub cboListe_Click()
If blnInit = False Then
With Sheets("Binf neu (2)").Cells(Range("AE65536").End(xlUp).Row + 1, 31)
.Value = bhztxt6.Text
End With
End If
End Sub
Mit
Private Sub cboListe_Click()
If blnInit = False Then
Cells(Range("AE65536").End(xlUp).Row + 1, 31)
.Value = bhztxt6.Text
End With
End If
End Sub
funktioniert alles bestens, ich möchte jedoch das Arbeitsblatt direkt ansprechen.
Danke
Josef