Inhalt von D70:D80 in Textbox ausgeben geht nicht
15.09.2004 11:29:38
D70:D80
habe ein Problem und bitte um Eure Hilfe.
Den Inhalt von D70:D80 soll in Textbox 7 ausgegeben werden, das passiert mit einer
Schleife). Leider wird immer in die gleiche Zeile geschrieben und daher der Eintrag immer mit dem nächsten überschrieben. Kann man ein Return oder so senden ?
Hier mein Code (wichtig ist nur der Teil bei 'Übergabe an Zellwert an Textbox)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "D70" Then
Dim i As Integer
Dim L As Integer
Dim k As Integer
Range("E70:E80") = "" 'Ausgabebereich leeren
k = 1 'Zeile für Ausgabe
Do While Cells(k, 1) <> ""
k = k + 1
Loop
For i = 1 To k
If Cells(i, 1) = Range("D70") Then 'wenn Spalte A = Suchfeld
With ActiveSheet.Shapes("Text Box 7")
.TextFrame.Characters.Text = Cells(i, 2) & Chr$(64) 'Übergabe Zellwert an Textbox
End With
End If
Next i
End If
End Sub
Lieben Dank und Gruß
Stefan
Anzeige