range,cells
Toni
ich habe ein Problem mit der Verbindung von Range und Cells.
aus dem Worksheet "Antrag" rufe ich eine Prozedur auf:
Call WertEuro(7, AntragZeile)
Die Prozedur WertEuro steht in einem Modul:
Sub WertEuro(ByVal WertSpalte As Integer, _
ByVal AntragZeile As Integer)
With Worksheets("Antrag")
If .Range("V" & AntragZeile).Value <> "Nein" Then
.Range("Y" & AntragZeile).Value = _
.Range(.Cells(WertSpalte, AntragZeile)).Value / 1000 * _
.Range("V" & AntragZeile).Value
End If
End Sub
Es kommt zu Fehler 1004(Anwendungs oder Objektorientierter Fehler) in der Zeile mit:
.Range(.Cells(WertSpalte, AntragZeile)).Value
Ich habe auch schon andere Varianten ausprobiert, wie:
.Range(Cells(WertSpalte, AntragZeile)).Value
.Cells(WertSpalte, AntragZeile).Value
Range(.Cells(WertSpalte, AntragZeile)).Value
aber auch das klappt nicht.
Eigentlich habe ich Cells nur gewählt um zwei Variablen zu übergeben, da ich nicht weiss, ob das mit range auch geht.
Oder kann ich bei:
.range("A" & AntragZeile) auch das A varibel gestalten?
Wäre schön, wenn mir jemand auf die Sprünge helfen könnte.
Ciao
Toni
Anzeige