Office: Zelleninhalte per Button in Textfeld zurückgeben

Hallo Profis,

ich möchte per Button eine ganze Reihe Zelleninhalte in eine Textbox zurückgeben lassen.

Also in etwa so:

User gibt Daten in Formular ein, Formular verarbeitet diese Daten.

Danach klickt der User auf den Button und die Verarbeiteten Daten werden in einem Textfeld ausgegeben.

Das Formular existiert und funktioniert. Ich weiß nur nicht wie ich das mit dem Button umsetzen soll....

Danke für eure Hilfe!

MfG

 

Hi,

soll das ganze auf einem UserForm stattfinden? Es wäre übrigens hilfreich, wenn du deine Mappe hochladen würdest, dann könnte man zielgerichteter auf die Frage eingehen.

Bis später,
Karin

 

Hi Karin, ja soll per Userform gemacht werden.

Zellen G3 bis G80 auf dem ersten Sheet mit dem Namen "Eingabe" sollen per Button in die Textbox mit dem Namen "Rueckgabe" kopiert und angezeigt werden auf einem Userform. Das alles ist schon gebaut nur der Code fehlt noch.

 

Hi,

Code:

Private Sub CommandButton1_Click()
   Dim lngZeile As Long
   For lngZeile = 3 To 80
      Rueckgabe = Rueckgabe & Cells(lngZeile, 7)
   Next lngZeile
End Sub

Bis später,
Karin

 

Man das ging schnell!! und es funktioniert soweit - bis auf ein Problem ;)

Die Rückgabe ist jetzt in einer Zeile, das alles sollte aber pro Zelle eine Zeile bilden. Kannst du mir da noch mal helfen?

Trotzdem schon mal ein großes Danke!

 

Man kann eine Frage immer nur so genau beantworten wie sie gestellt wurde - du hattest nicht geschrieben, dass die Einträge durch einen Zeilenumbruch getrennt sein sollen.
Stelle unter den Eigenschaften der TextBox MultiLine auf True und ändere diese Codezeile:

Code:

Rueckgabe = Rueckgabe & vbLf & Cells(lngZeile, 7)

Bis später,
Karin

 

War ja keinerlei Kritik. Ich danke dir vielmals!

 

Habe es nicht als Kritik aufgefasst - meine Bemerkung sollte nur ein Hinweis für die Zukunft sein. :)

Bis später,
Karin

 

Ok :) .



Habe jetzt noch ein Problem.

Diese FOR Schleifen entwickeln nach einiger Zeit ein eigenleben und geben manchmal nichts oder nicht das aus, was vorgesehen ist.

Ich glaube das dort eine Bedingung rein muss, die denen sagt das sie sich reseten.

Wenn dem so ist, kannst du mir da nochmal behilflich sein?

MfG

 

Der von mir gepostete Code führt kein Eigenleben - er läuft von Zeile 3 bis Zeile 80 und fügt alles, was in diesen Zellen steht (oder auch nicht steht) hintereinander zusammen und zwar immer nur dann, wenn der CommandBtutton gedrückt wurde.

Bis später,
Karin

 

Hallo,

dann fügst Du eben noch folgende Zeile vor der FOR-Schleife ein:

Code:

Rueckgabe=""

insgesamt sieht dann der Code von Karin folgendermaßen aus:

Code:

Private Sub CommandButton1_Click()
   Dim lngZeile As Long
   Rueckgabe = ""
   For lngZeile = 3 To 80
      Rueckgabe = Rueckgabe & vbLf & Cells(lngZeile, 7)
   Next lngZeile
End Sub