Text vorne dran setzen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Text vorne dran setzen

Re: Text vorne dran setzen

von hylli » Fr, 12.04.2013 19:08

Mach's doch über eine weitere Tabelle?

z.B. Tabelle2.A2

Code: Alles auswählen

=verketten($Tabelle1.$A1$;": ";Tabelle1.A2)
Hylli

Re: Text vorne dran setzen

von F3K Total » Fr, 12.04.2013 19:07

Moin,
wenn Du die Tabelle siehst, kannst Du dieses Makro nehmen:

Code: Alles auswählen

Sub S_insertprefix

    osheet = thiscomponent.currentcontroller.activesheet
    ocursor = osheet.createcursor
    ocursor.gotostartofusedarea(false)
    orangeaddress = ocursor.rangeaddress
    nStartColumn = orangeaddress.StartColumn
    nStartRow = orangeaddress.StartRow
    ocursor.gotoEndofusedarea(false)
    orangeaddress = ocursor.rangeaddress    
    nEndColumn = orangeaddress.EndColumn
    nEndRow = orangeaddress.EndRow
    orange = osheet.getcellrangebyposition(nStartColumn,nStartRow,nEndColumn,nEndRow)
    aformulaarray = orange.formulaarray
    aheader = aformulaarray(0)
    for i = 1 to ubound(aformulaarray)
        arow = aformulaarray(i)
        for k = 0 to ubound(aheader)
            scell = aheader(k) & ": " & arow(k)
            arow(k) = scell
        next k
    next i
    orange.setformulaarray(aformulaarray)
    msgbox "fertig"
End Sub
Gruß R
EDIT: Dauert auf meinem Rechner bei 300 Spalten und 1000 Zeilen etwa 13 Sekunden.

Nach oben