Rückgabe eines Zellenwertes auf ein neues Tabellen
04.01.2005 14:37:28
Oliver
ich möchte in der unten gezeigten Formel noch folgendes einfügen. Und zwar soll aus dem angesprochenen aktiven Tabellenblatt das Feld K28 auf die Seite Preisübersicht zurück gegeben werden. Ich habe eine entsprechende Formel eingegeben aber diese zeigt mir nur den wert "Wahr" an.
.Cells(LetzteZeile + 1, 3) = Range("K28").Select
Wer kann mir die Formel so umschreiben das tatsächlich der wert der Zelle k28 angezeigt wird?
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
End With
Unload Me
End Sub