Text in Spalten mit Makro

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 in Spalten mit Makro

Re: Text in Spalten mit Makro

von ChristianAC » Do, 12.03.2015 10:52

meine Fresse,pfiffig pfiffig
man wundert sich immer wieder neu
über die Skillz mancher Leute hier

böhmisches Dorf, ich grüsse dich

Re: Text in Spalten mit Makro

von mikeleb » Mi, 11.03.2015 15:13

Hallo clag,
du hast völlig Recht. Vielleicht bekommst du ja eine Amtwort, meine wiederholte blieb bisher unbeantwortet.

Re: Text in Spalten mit Makro

von clag » Mi, 11.03.2015 08:19

Hallo ihr Beiden,

wenn man hier mitliest erscheint es schon etwas merkwürdig wie sich das Thema entwickelt und welche Ansprüche frischling hat,
im zweiten Beitrag steht
frischling hat geschrieben: ich habe das Ziel das ganze später mit einer batch zu Automatisieren und weil sich die csv Datei jeden tag ändert
warum dieser ganze Zauber mit Calc und CSV import ?

CSV's haben auch deshalb immer noch ihre Berechtigung weil man sie mit Komandozeilenbefehlen leicht bearbeiten kann,
also warum tut frischling nicht das was er ankündigt und vorgibt eigentlich tun zu wollen nämlich das Problem mit einer Batch lösen?

Manchmal scheint doch wirklich der Weg das ziel zu sein;)

Mit ein paar Zeilen in einer Batchdatei ist das für 50 CSV Dateien in 10 Sekunden erledigt, je nach Größe der CSV

ACHTUNG dies ist eine DOS batchdatei!

Code: Alles auswählen

@echo off &setlocal
set "search=Kategorie,E"
set "replace=Kategorie,,,,E"
set "search2= > "
set "replace2=,"
for /f %%x in ('dir /b *.csv') do (
(for /f "delims=" %%i in (%%x) do (
    set "line=%%i"
    setlocal enabledelayedexpansion
    set "line=!line:%search%=%replace%!"
    set "line=!line:%search2%=%replace2%!"
    echo(!line!
    endlocal
))>"%%~nx"
ren %%x ~%%~nx.bak
ren %%~nx %%~nx.csv
)
diese batch generiert aus allen *.csv Dateien im aktuellen Verzeichnis
eine nach frischlings Vorgaben geänderte Version, die original Dateien bleiben als *.bak erhalten.

CSV Dateien die nicht dieser Prozedur unterzogen werden sollen, sollten sich auch nicht in dem Verzeichnis befinden.

viel Erfolg

Re: Text in Spalten mit Makro

von mikeleb » Di, 10.03.2015 19:52

Hallo,

in Ergänzung: So richtig verstehe ich nach wie vor nicht, was dein Ziel ist.
Du hast eine csv-Datei, die du mit Calc öffnest. Anschließend willst du eine Spalte noch einmal in mehrere Spalten aufsplitten. Und dann? Als Calc -Datei weiterbenutzen, wieder als csv speichern, ...?
In einer csv-Datei kannst du aber keine Makros speichern.
Also wäre eine Variante, das Makro nicht in einer Datei sondern unter ->Makros->Basic -> Meine Makros-> Standard abzulegen. Dann ist es für alle Dokumente verfügbar.
Ich habe das Makro noch etwas erweitert:

Code: Alles auswählen

Sub text_in_spalten
	spalte=9	'Spaltennummer beginnend bei 0
	anzahl=4	'Zerlegung in ... Spalten
	odoc=thiscomponent
	oblatt=odoc.Sheets(0)
	oblatt.columns.insertbyindex(spalte+1,anzahl-1)
	ocurs = oblatt.createCursor()
	ocurs.gotoEndOfUsedArea(False)
	adress = ocurs.RangeAddress
	lastRow = ocurs.Rangeaddress.StartRow
	obereich=oblatt.getcellrangebyposition(spalte,1,spalte,lastRow)
	aText=oBereich.getdataarray
	for i=lbound(aText) to ubound(aText)
		alt=aText(i)(0)
		neu()=split(alt," > ",anzahl)
		Redim preserve neu(anzahl-1)
		for j=0 to anzahl-1
			if isempty(neu(j)) then neu(j)=""
		next 
		aText(i)=neu()
	next
	obereich=oblatt.getcellrangebyposition(spalte,1,spalte+anzahl-1,lastRow)
	oBereich.setdataarray(aText)
End Sub
In den ersten beiden Zeilen kannst du festlegen, welche Spalte (9=J) in wie viele zerlegt werden soll (hier: aus 1 mach 4).

Re: Text in Spalten mit Makro

von mikeleb » Di, 10.03.2015 16:06

Hallo,

du möchtest nicht im Ernst ein Openoffice-Makro auf eine Excel- bzw. CSV-Datei anwenden?

Re: Text in Spalten mit Makro

von frischling » Di, 10.03.2015 15:00

Entschuldigt nochmal ich meine die Spalte J mit den Katgorien und nicht M. Danke

Re: Text in Spalten mit Makro

von frischling » Di, 10.03.2015 14:57

Hallo,
als anhang habe ich die richtige datei eingefügt wo die spalte M gespaltet werden muss. Vielen Dank für die Hilfe
Dateianhänge
beispiel datei.zip
(372 Bytes) 81-mal heruntergeladen

Re: Text in Spalten mit Makro

von mikeleb » Di, 10.03.2015 13:52

Hallo,

nochmal meine Frage: Macht das Makro das, was es soll oder nicht?
nun will ich eine spalte ( bei die spalte M )
Im Makro wird die Spalte E aufgesplittet (so wie dein Beispiel es wünscht). Welche Spalte meinst du?

Re: Text in Spalten mit Makro

von frischling » Di, 10.03.2015 13:45

Hallo,
OK Vielen Dank bis dahin, nun will ich eine spalte ( bei die spalte M ) in drei weiteren spalten teilen, wie muss ich da nun vorgehen? Vielen Dank

Re: Text in Spalten mit Makro

von mikeleb » Mi, 04.03.2015 16:57

Hallo,

eigentlich ist da nichts mit installieren. Wenn du meine Datei öffnest und Makros zugelassen sind, sind diese einfach da.
Es gibt mehrere Varianten, in diesem Fall vielleicht am einfachsten:
1) Lege in deiner Datei ein neues Makromodul an: Extras->Makros->Makros verwalten->Basic. Dort, wenn deine Datei markiert ist: Neu... Ok.
2) Öffne meine Datei, gehe dort in das Modul1 (Extras->Makros->Makros verwalten->Basic, im linken Baum, das Modul auswählen und dann Bearbeiten anklicken).
3) Markiere den gesamten Code, kopieren und in das Modul1 deiner Datei einfügen.

Re: Text in Spalten mit Makro

von frischling » Mi, 04.03.2015 13:17

Hallo,
ich bin soweit gekommen, dass ich das Makro installiert habe und unter Makros sichtbar ist. Ich weiß jetzt nicht weiter. wie kann ich es z.b auf ein andere Datei übertragen? Vielen Dank

Re: Text in Spalten mit Makro

von mikeleb » Mi, 04.03.2015 13:00

Hallo,

erstens wäre meine Frage, ob das Makro das macht, was du dir wünschst.
Zweitens:
gibt es irgenwo eine Anleitung wie ich es genau machen muss
Was meinst du mit "es"?
Start der Makros?
Übertragung auf eine andere Datei?
...

Re: Text in Spalten mit Makro

von frischling » Mi, 04.03.2015 12:10

Hallo,
Entschuldigt die dumme Frage, gibt es irgenwo eine Anleitung wie ich es genau machen muss. ich kann so mit der angehängte datei nicht viel anfangen. Vielen Dank

Re: Text in Spalten mit Makro

von mikeleb » Fr, 27.02.2015 21:07

Hallo,

wenn es ein Makro sein soll, dann siehe Anhang.
Dateianhänge
text_in_spalten.ods
(11.47 KiB) 224-mal heruntergeladen

von frischling » Fr, 27.02.2015 20:58

Hallo,
So zeichne ich das Makro auch auf, nur wird es nicht durchgeführt.

Nach oben