VBA: 3 Zellen kopieren und verbinden. Schleifendurchlauf?

[F3K Total]

Also in Starbasic vielleicht so:

Code: Alles auswählen

Sub Main
osheet = Thiscomponent.Sheets.getbyname("Tabelle1")
oCursor = osheet.createCursor
oCursor.gotoendofusedarea(false)
oRange = oSheet.getcellrangebyPosition(8,1,11,ocursor.Rangeaddress.endrow)
adata = oRange.dataarray
for i = 0 to ubound(adata)
   ocell = osheet.getcellbyposition(12,i+1)
   ocell.string = adata(i)(3) & " " & adata(i)(2) & " " & adata(i)(0)
next i
End Sub

Gruß R