|
Hallo Zusammen
Ich habe in mit folendem Code eine Abfrage von Infos angefordert:
Eingabe2 = Application.InputBox("End-Monat eingeben(MM/JJ) :")
If Eingabe2 = "" Then Exit Sub
If Eingabe2 > 0 Then
Rows (5:5).Select
Selection.Find(What:=Eingabe2, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Datum2 = ActiveCell
Jetzt möchte ich im weiteren Verlauf diese Eingabe (also Datum2) wieder aufrufen um dann mit der Offset Funktion einen neuen Wert herauszufinden. Das habe ich so eingegeben:
WertZugang = Range("Datum2").Offset(rowOffset:=35, columnOffset:=0).Value
Range("C54") = WertZugang
WertAbgang = Range("Datum2").Offset(rowOffset:=36, columnOffset:=0).Value
Range("B54") = WertAbgang
Der neue Wert (also WertZugang, WertAbgang) soll in einer anderen Tabelle in Zelle B54 bzw. C54 erscheinen.
Allerdings kommt immer ein Fehler (Laufzeitfehler 1004) auf und ich sehe WertZugang und WertAbgang nicht in den gewünschten Zellen (C54 und B54). Sieht jemand was ich falsch mache?
Vielen Dank für jede Hilfe!
|