.offset

Hallo zusammen,
habe mit einem Makro ein Problem. Bekomme die Fehlermeldung 438. Objekt unterstützt diese Eigenschaft oder Methode nicht.
Falls zwei Spalten weiter links von Spalte H aus gesehen, nämlich die Spalte F leer ist, dann soll in Spalte H auch nichts eingetragen werden. Falls Spalte F befüllt ist, dann soll auch die Spalte H befüllt werden durch das , was ich in der Inputbox eingebe.
Spalte F Spalte H
Nr. ISIN NAME WP_Bestand Bezugspreis
1 ES0124244E34 ALLIANZ 5.641
2 ES0124244E34 ALLIANZ 35.387
Bezugspreis = Application.InputBox("Bezugspreis bitte eingeben:", "Dateneingabe:", , , , , , 1)
If Bezugspreis = False Then Exit Sub
If Worksheets(1).cell(0, -2).Offset "" Then Sheets(1).Cells(0, 1) = Bezugspreis (HIER LIEGT DER FEHLER)
Macht das fur euch Sinn? Sorry, falls nicht, aber das Makro ist ziemlich lang und das ist nur ein Bruchteil.
Vielen Dank für die Hilfe.
Dani.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Jens,
nein, es soll immer das Gleiche eingetragen werden, nämlich der Bezugspreis, den ich nur einmal am Anfang in die Inputbox eingebe. Die Inputbox rufe ich über ein Makrobutton auf.
Bezugspreis = Application.InputBox("Bezugspreis bitte eingeben:", "Dateneingabe:", , , , , , 1)
If Bezugspreis = False Then Exit Sub
Bsp. Über den Button rufe ich die Inputbox auf und gebe dort z.B 2,5 als Bezugspreis ein. Jetzt wird überprüft, ob in der Range(F8 : F18) irgendetwas eingetragen ist (evtl. steht dort eine Zahl, aber ohne Formel). Wenn in der F9 bspw. eine Zahl steht, dann soll in H8 diese 2,5 eingetragen werden. Wenn
in der F9 wieder eine Zahl steht, dann soll in H9 auch wieder die 2,5 eingetragen werden.
Die Datei hochzuladen macht glaube ich keinen Sinn, da ziemlich groß und das Makro auch sehr unübersichtlich und lang ist.
Vielen Dank
Dani.

Dim c As Range Dim Bezugspreis Bezugspreis = Application.InputBox("Bezugspreis bitte eingeben:", "Dateneingabe:", , , , , , 1) If Bezugspreis = False Then Exit Sub For Each c In Range("F8:F18") If c "" Then c.Offset(0, 2) = Bezugspreis Next

Sub tt() Dim Zelle As Range Dim Bezugspreis Bezugspreis = Application.InputBox("Bezugspreis bitte eingeben:", "Dateneingabe:", , , , , , 1) If Bezugspreis = False Then Exit Sub For Each Zelle In Range("F8:F18") If Zelle "" Then Zelle.Offset(0, 2) = Bezugspreis Next Zelle End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

.offset

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread