Sheets mit indexierte Benennung
12.08.2013 10:11:44
Marc
da ich ein wenig ängtlich bin, dass die Benutzer die Blattnamen ändern könnten, schreibe ich meine Programmierung um und benutze die indexierte Benennung.
Allerdings habe ich an einer Stelle eine Sache, die ich mir nicht erklären kann.
Dim Betrag as Single
If Sheets("Anzahlungen Kosten").Cells(Reihe, 5).Value = "" Then
Betrag = 0
Else
Betrag = Sheets("Anzahlungen Kosten").Cells(Reihe, 5).Value
End If
Die Zelle ist als "Währung" definiert und auch abgesichert.
Sie kann nur Space oder einen numerischen Wert beinhalten.
Der Code wie oben funktionert einwandfrei.
Benutze ich allerdings die indexierte Benennung der Blätter, sprich z.B. "Sheets(1)", dann gibt es einen Laufzeitfehler 13 bei der Übergabe in die Variable.
Selbst der Versuch, das Ganze mittels CSng(Sheets(1).Cells(Reihe, 5).Value) scheitert.
Hat jemand eine Idee zur Lösung dieser, für mich, unverständlichen Eigenart?
Vielen Dank