Hi Sam
o.k. in dem Fall natürlich eine Lösung anbei :-)
Folgendes Makro verbindet je ZEILE den selektierten Bereich und
verknüpft den enthaltenen Text (wird durch ein '-' voreinander
getrennt)
:
Sub merge_cells()
Dim ret_str
Dim rng As Range
Dim row_index as long
dim column_index as long
Set rng = Selection
for col_index = rng.column to rng.columns.count+rng.column-1
ret_str=""
for row_index=rng.row to rng.rows.count+rng.row-1
if cells(row_index,col_index).value<>"" then
If ret_str = "" Then
ret_str = cells(row_index,col_index).value
Else
ret_str = ret_str & " - " & _
cells(row_index,col_index).value
End If
End If
next row_index
Application.DisplayAlerts = False
With range(cells(row_index,rng.column),cells(col_index, _
rng.columns.count+rng.column-1))
.MergeCells = True
.Value = ret_str
End With
Application.DisplayAlerts = True
next col_index
End Sub
--
Regards
Frank Kabel
Frankfurt, Germany
Hallo Frank,
kann ich es auch gleich in Access machen? Was ist leichter? Können
Sie mir den Makro zur Verfügung stellen? Ich bedanke mich im Voraus.
Gruß
Sam
----- Frank Kabel schrieb: -----
Hi
Hausaufgabe?
wenn ja, dann nur als genereller Tip: Zeichne doch einfach
mal ein Makro auf, während du dieses manuell machst. Vor
dem Mergen musst du dann im Makro vorher noch die
Zellenwerte auslesen, in einer temporären Variablen
speichern und diesen Wert nach dem Verbinden der Zelle neu
zuweisen
Außerdem die Excel Meldungstexte ausschalten
(application.displayalerts)
Wenn es KEINE Hausaufgabe sein sollte, dann poste noch mal
und ich stelle dir ein entsprechendes Makro zur Verfügung
(bin bei Hausaufgaben aber der Meinung das es Sinn+Zweck
dieser Übungen ist, dass Du selber verstehst, was du
machen sollts) :-)
-----Originalnachricht-----
Ja und wie geht das mit dem Makro? Ich muss es machen mit
den Zellen verbinden, weil ich es als Aufgabe bekommen
habe :-).
.