AW: Jeder Wert in Textbox in neue Zeile, aber wie ?
15.09.2004 08:52:04
Stefan
Hallo Josef,
danke für die Antwort. Funktioniert aber nicht, oder ich habe es nicht an der richtigen Stelle eingebaut. Nachfolgend mal mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "D70" Then
Dim i 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) 'Übergabe Zellwert an Textbox
End With
End If
Next i
End If
End Sub
An der Stelle 'Übergabe an Textbox müßte irgendwas hin, was ein Return oder so erzeugt.
Gruß Stefan