ich brauche ein Makro, das mir den Text von markierten Zellen (A3:A6) in eine Zelle (A2) kopiert.
Vielen Dank vorab
gruß
marcus
Sub Makro
dim r as range, c as range
dim s as string
ser r = tabelle1.range("A3:A6")
s = ""
for each c in r
if not isempty(c) then
s = s & cstr(c.value)
end if
next c
tabelle1.range("A2").value = s
End Sub