OpenOffice.info

danke stephan; für deine mühe und tipps

Option Explicit

for i=dblSpAnf to dlbSpEnde Step -1

[quote]woran kann das liegen?[/quote]

daran das Du für die obere Grenze der Schleife dlbSpEnde verwendest.

d[b]lb[/b]SpEnde ist nicht d[b]bl[/b]SpEnde Und dlbSpEnde hat keinen Wert


Tip:
Die Vermutung wo der Fehler liegen muss liegt doch nahe(*), trotzdem unterlaufen mir solche Verschreiber auch. Mein Rat ist schlicht der das wenn man weiß wo der Fehler sein sollte, man ihn aber nicht sieht, die Ausdrücke stur mit Copy/Paste zu kopieren und nicht per Hand hinzuschreiben.

(*)
Falls nicht hätte Dich das ganz einfache
[code]Option Explicit[/code]
darauf aufmerksam gemacht.

Hinweis:
[quote]dass das makro beim ersten i-wert aus der for/next-schleife aussteigt[/quote]

das ist richtig, aber auch das wäre ein sehr [u]konkreter [/u]Hinweis auf den Fehler, weil:

das Makro steigt hier nicht aus weil die Variable für die obere Grenze falsch ist, und die obere Grenze somit 0, das Makro steigt aus weil die obere Grenze kleiner als die untere ist, denn For-Next wird unter normalen Umständen immer mindestens einmal durchlaufen

hingegen würde die Schleife [u]trotz falscher Variable [/u]funktionieren mit:

[code]for i=dblSpAnf to dlbSpEnde Step -1[/code]

[i](nicht in Deinem Sinne, aber formal funktionieren)[/i]

(Achtung lass hierbei zum Testen i=i+1 weg sonst hängst Du in der Schleife fest)

Gruß
Stephan

Sub ZweiteSpalteEinf
Dim aktBlatt as Object
Dim oSpalte as Object
Dim i as double,dblSpAnf as double, dblSpEnde as Double
Dim strSpAnf as string, strSpEnde
aktBlatt=thisComponent.CurrentController.getActiveSheet
oSpalte=aktBlatt.getColumns

'--Anfangs- und Endspalte festlegen
strSpAnf=Inputbox("Bitte Anfangsspalte eingeben:","Schritt 1: Zweite Spalte einfügen","C")
strSpEnde=Inputbox("Bitte Endspalte eingeben:","Schritt 2: Zweite Spalte einfügen","H")

'--Prüfung, ob die Inputboxen befüllt und mit okay abgeschlossen worden sind als Voraussetzung
'--für die Umwandlung in Index
if strSpAnf="" then
	Msgbox("Eingabe und Abschluss mit ""ok"" ist erforderlich!",0,"Info zum Makro")
	exit sub
elseif strSpEnde=""then
	Msgbox("Eingabe und Abschluss mit ""ok"" ist erforderlich!",0,"Info zum Makro")
	exit sub
end if
'--Spaltenbuchstabe in Index umwandeln
	dblSpAnf=ASC(UCASE(strSpAnf))-65
	dblSpEnde=ASC(UCASE(strSpEnde))-65
'with aktBlatt
	for i=dblSpAnf to dlbSpEnde
	oSpalte.insertByIndex(i,1)
	i=i+1
	next
end sub

hallo

mit unten stehenden code will ich z.b. von spalte c bis h jeweils eine spalte einfügen. beim debuggen stelle ich fest, dass das makro beim ersten i-wert aus der for/next-schleife aussteigt. woran kann das liegen?

danke klaus


[code]Sub ZweiteSpalteEinf
Dim aktBlatt as Object
Dim oSpalte as Object
Dim i as double,dblSpAnf as double, dblSpEnde as Double
Dim strSpAnf as string, strSpEnde
aktBlatt=thisComponent.CurrentController.getActiveSheet
oSpalte=aktBlatt.getColumns

'--Anfangs- und Endspalte festlegen
strSpAnf=Inputbox("Bitte Anfangsspalte eingeben:","Schritt 1: Zweite Spalte einfügen","C")
strSpEnde=Inputbox("Bitte Endspalte eingeben:","Schritt 2: Zweite Spalte einfügen","H")

'--Prüfung, ob die Inputboxen befüllt und mit okay abgeschlossen worden sind als Voraussetzung
'--für die Umwandlung in Index
if strSpAnf="" then
Msgbox("Eingabe und Abschluss mit ""ok"" ist erforderlich!",0,"Info zum Makro")
exit sub
elseif strSpEnde=""then
Msgbox("Eingabe und Abschluss mit ""ok"" ist erforderlich!",0,"Info zum Makro")
exit sub
end if
'--Spaltenbuchstabe in Index umwandeln
dblSpAnf=ASC(UCASE(strSpAnf))-65
dblSpEnde=ASC(UCASE(strSpEnde))-65
'with aktBlatt
for i=dblSpAnf to dlbSpEnde
oSpalte.insertByIndex(i,1)
i=i+1
next
end sub[/code]