Hallo zusammen,
ich als VBA-Neuling habe mir mit Hilfe diverser Foren einige Makros zusammengeschrieben und es funktioniert auch fast alles super. Bei einer Sache bin ich jetzt hängengeblieben, und zwar möchte ich aus verschiedenen Zellen eines Excel-Sheets (A12:A23) die Inhalte mit Zeilenumbruch in eine Zelle eines anderen Sheets kopieren. Funktioniert auch super, allerdings habe ich jetzt 12 mal die Kopieren-Zeile mit & Chr(10) & getrennt, was dazu führt, dass die Zelle immer 12 Zeilen hoch ist. Allerdings sind nicht immer alle 12 Zeilen des Urprungs-Sheets beschrieben, sodass ich bei z.B. 3 beschriebenen Zeilen trotzdem 11 Zeilenumbrüche produziere. Ich würde in diesem Fall gerne nur 2 Zeilenumbrüche erstellen, da ja sonst unnötige Leerfläche entsteht, die zu Unübersichtlichkeit führt. Ein kleiner Ausschnitt aus dem Code:
Range("E" & letzteZ).Value = _
ThisBook.Worksheets(1).Cells(12, 1).Value & Chr(10) & _
ThisBook.Worksheets(1).Cells(13, 1).Value & Chr(10) & _
ThisBook.Worksheets(1).Cells(14, 1).Value & Chr(10) & _ etc...
Für Antworten wäre ich dankbar.
Gruß |