Re: VBA: 3 Zellen kopieren und verbinden. Schleifendurchlauf
Verfasst: Di, 08.07.2014 06:41
Also in Starbasic vielleicht so:
Gruß R
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