Rückgabe eines bestimmten Wertes
12.01.2005 09:19:28
Olli
ich habe eine Textbox angelegt. Die Daten aus dieser Textbox werden auf ein bestimmtes Tabellenblatt geschrieben und auf eine zweite Übersichtsseite. Nun möchte ich das das Feld "K28" einen ausgerechneten Wert auf die Übersichtsseite zurück schreibt. Ich füge meine Formel unten ein aber so wie diese jetzt ist gibt Sie mit nur den Wert "Wahr" zurück.
Private Sub CommandButton1_Click()
ActiveSheet.Range("A1") = Me.TextBox1
ActiveSheet.Name = Me.TextBox1
' hier mit kopiere ich die Namen aus der Textbox in die entsprechenden Felder des Tabellenblattes'
Dim LetzteZeie As Long
With Sheets("Preisübersicht")
LetzteZeile = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
.Cells(LetzteZeile + 1, 1) = Me.TextBox1
.Cells(LetzteZeile + 1, 2) = Me.TextBox2
.Cells(LetzteZeile + 1, 3) = Range("K28").Select 'diese Anweisung bringt mir nur den wert wahr'
End With
Unload Me
End Sub