Hallo zusammen
Ich füge den Inhalt eines generierten Formulars (E-Mail / Ctrl + A) in das Excel-Tabellenblatt "Input" in Zelle A1 ein. Dadurch werden alle Informationen wie Name, Adresse, Kommentar untereinander in verschiedenen Zellen eingefügt. Anschliessend werden diese Informationen mittels Makro in das Tabellenblatt "Output" überführt. Hierbei werden die neusten Einträge unter der letzten Eingabezeile (loLetzte) eingefügt.
Bsp in "Input":
Zelle A15: "Kommentar oder Nachricht"
Zelle A16: "Besten Dank für die Einladung"
Zelle A17: leer
Zelle A18: "E-Mail"
Zelle A19: "hans@muster.de"
Zelle A20: leer
Problem:
Falls die Eingabetaste (Return) im Kommentarfeld (Formular) verwendet wurde, werden mehrere Zellen untereinander ausgefüllt. Ich muss nun einerseits ermitteln, ob in mehreren Zellen ein Kommentar steht (solange untereinander die Zellen verwenden bis erstmalige leere Zelle) und den Text dieser Zellen zusammenführen, um den Kommentar in einer Zelle in "Output" zu überführen.
Bsp:
Zelle A15: "Kommentar oder Nachricht"
Zelle A16: "Besten Dank für die Einladung"
Zelle A17: "Gruss Hans"
Zelle A18: leer
Vorgehen (funktionert, falls Kommentar nur in einer Zelle):
Sheets("Input").Select
Cells(1, 1).Select
Cells.Find(What:="Kommentar oder Nachricht", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
Selection.Copy
Sheets("Output").Select
Cells(loLetzte, 9).Select
ActiveSheet.Paste
Wie kann ich den Befehl ausgestalten, dass er bei mehrzelliger Information diese Kommentare zusammenführt und ausgibt [Bsp. "Besten Dank für die Einladung Gruss Hans"].
Besten Dank - leider bin ich nicht so versiert in VBA.
Gruss
Patrick
|