Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Jeder Wert in Textbox in neue Zeile, aber wie ?

Betrifft: Jeder Wert in Textbox in neue Zeile, aber wie ? von: Stefan
Geschrieben am: 15.09.2004 08:06:44

Guten Morgen zusammen,
habe schon eine Frage an Euch. Ich übergebe mehrere Werte an eine Tabellenblatt-Textbox. Jedoch werden die Werte alle in die erste Zeile geschrieben, d.h. jeder Wert wird mit dem nächsten überschrieben.
Kann man nach jedem Wert ein Enter für eine neue Zeile senden, sodaß die Werte untereinander stehen ?
Danke Euch für die Hilfe.
Gruß Stefan

  


Betrifft: AW: Jeder Wert in Textbox in neue Zeile, aber wie ? von: Josef
Geschrieben am: 15.09.2004 08:29:54

Guten Morgen,

versuch´s mal mit
ActiveCell.Offset(0, 1).Value = .TextBox2.Value
Gruß
Josef


  


Betrifft: AW: Jeder Wert in Textbox in neue Zeile, aber wie ? von: Stefan
Geschrieben am: 15.09.2004 08:52:04

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


 

Beiträge aus den Excel-Beispielen zum Thema "Jeder Wert in Textbox in neue Zeile, aber wie ?"