OpenOffice.info

Hi Leute hab mal wieder oder noch immer ein Problem
Ich hab zwei fast völlig identische codes und der ein funktioniert aber der andere net.

der funzt

sub rankingABIGK
Dim oSheets as Object
Dim oSheet as Object
Dim zelle as Object
Dim Entry(1, 3)
Dim Count As Double
Dim Count2 As Double
Dim Temp ...

Danke hoefri55 für den tipp mit den vertauschten variablen :oops:

Die umgeänderte version von dir läuft zwar jedoch erfüllt sie nicht ihre Aufgabe.

Da es mir beim sortieren fast nur nullen ausgibt obwohl andere werte eingelesen werden.

Ich bin auch weiterhin für alle tipp dankbar die mir helfen ...

Hallo Stephan

Mein problem ist nun leider nur das das entry_v bei egal welcher definition
[ Dim Entry_v(1, 1) , Dim Entry_v(1, 2) , Dim Entry_v(1, 3) , Dim Entry_v(1, 4) ]
einen fehler verursacht.

Naja und mich verwundert halt das es in diesem makro fehler verursacht da sich der code nicht ...

Ich habn den code jetz umgeschrieben aber ich bekomme immer einen fehler wenn i9ch das makro ausführe
kann mir jemand sagen woran das liegt???

http://lshdackel.ls.funpic.de/Demo/screenshot2.gif

die datei ist hier

http://lshdackel.ls.funpic.de/Demo/Kolegstufe.ods

MFG LSH_Dackel

Hallo Leute ich hab ein problem

Mein Makro sortier alle werte die mit 1 anfangen ( also 1,10,11,12,13,14,15)
so als wären sie kleiner als 2,3,4,5,6,7,8,9.

sub rankingABIGK

Dim Entry(1, 3)
Dim Entry_s(1, 1)
Dim Entry_v(1, 1)

oSheets = ThisComponent.Sheets
oSheet = oSheets.getByName ...

Hallo Stephan dein Makro funzt so weit aber das sortieren der zahlen werte haut net so hin.

http://lshdackel.ls.funpic.de/Demo/Screen3.gif

hier hast du auch noch mal die aktuelle version der tabelle

http://lshdackel.ls.funpic.de/Demo/Kolegstufe.ods

ich hoffe du kannst mir helfen

THX

MFG ...

Ok ich glaub wir ham unser problem mit de kommunikation noch immer net gelöst :?

Also wie muss ich dieses makro umschreiben

sub ranking22HJTemp2_BP

Dim Entry_s(1, 1)
Dim Entry_v(1, 1)
Dim Entry(1, 31)

oSheets = ThisComponent.Sheets
oSheet = oSheets.getByName("HJLübersicht")
j = 1
k = 1
For i ...

Hallo Stephan

Wir anscheinend wieder mal unsere altbekannten Kommunikationsprobleme

der code war vonmir und ich hätte gern das du ihn so umformst das die zahlen oben stehn
und erst dann die strings kommen.
so wiedu das schon oben gemacht hast.

schon ma THX

MFG LSH_Dackel

Hallo stephan dein makro fuzt doch , mein rechner hat rumgesponnen :oops:

Kannst du mir des makro auch umformen und vieleicht noch ein bisschen
auskommentieren denn ich blick da net so ganz durch wie du des gemacht hast

sub rankingABIGK
Dim oSheets as Object
Dim oSheet as Object
Dim zelle as ...

Ich habe es auch schon mit der verbesserten version probier aber da die auch zum absturz geführt hat habe ich das dokument verworfen.

Aber trotzen danke für deine bemühungen.

MFG LSH_Dackel

Nein du kannst das ruhig wörtlich nehmen.

Mein komplettes openoffice schmiert mir ab wenn ich dieses makro bzw. eins in der selben lib ausführe.

Da ich dachte das es an meinem PC liegt habe ich mein wondows innerhalb
der letzten 2 Tage 3 mal neu installiert . Was allerdings nichts geholfen hat ...

Hallo stephan ich hab deinen code ausprobiert
aber immer wenn ich ihn ausführe stürtz mein openoffice ab

aber schaus dir doch einfach mal selber an.

http://lshdackel.ls.funpic.de/Demo/Fehl ... gstufe.ods

Moin ich hab leider schon wieder ein Problem :cry:

Bei meinem makro sollen werden werte nach größe sortiert werden.
das funzt auch wenn die werte zahlen sind , aber wenn es sich um Text handelt
wird dieser immer höher sortiert als die zahlen.

http://lshdackel.ls.funpic.de/Demo/Problem.jpg ...

Tja in der kürze liegt die Würze. Oder das Problem. :wink:

Denn mit der msgbox funzt es aber in meinem makro net.

if oSheet.getCellByposition(45,2).value = 0 then
r = 255: g = 255: b = 255
else
select case oSheet.getCellByposition(1,26).value
case >= (13*oSheet.getCellByposition(45,2).value ...

Hi Leute ich bins scho wieder.

Addieren und Subtrahieren innerhalb eines makros funzt ja prima.

Aber wie steht es mit Multiplizieren geht das der net???

Bis jetzt weis ich nur das das hier net funzt! Schon mal danke im vorraus

MFG Dackel