Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBScript Next For Schleife

Frage Entwicklung VB for Applications

Mitglied: waldgnarf

waldgnarf (Level 1) - Jetzt verbinden

28.08.2008, aktualisiert 17:01 Uhr, 5640 Aufrufe, 2 Kommentare

Hallo, ich habe in meimem Script versucht den Wert einer Zelle in einem odt Dokument abzufragem, was auch super funktioniert aber dann wollte ich im Dokument den Wert der nächsten Zelle abfragen wenn in der ersten etwas steht und so weiter, bis eine leehre Zelle kommt.
In die leehre Zelle soll dann ein Text rein, der Array funktioniert aber nicht weil Do While oder For Eatch In ... noch vor If Not rein muss, weiss leider nicht wie ichs genau Impletieren muss.
Kann mir da bitte wer Helfen?
01.
Set SSM=WScript.CreateObject("com.sun.star.ServiceManager") 
02.
Set DESKTOP=SSM.createInstance("com.sun.star.frame.Desktop") 
03.
Set CALC=DESKTOP.loadComponentFromURL("file:///C:/Documents and Settings/psi.HP-P-T3257/Desktop/ODS/TEST.ods", "_blank", 0, Array()) 
04.
Set SHEET=CALC.getSheets().getByName("A1") 
05.
POSY=0 
06.
POSX=0 
07.
 
08.
Set ZELLE=SHEET.getCellByPosition(POSY, POSX) 
09.
INHALT=ZELLE.getFormula() 
10.
 
11.
If Not INHALT="" Then 
12.
POSY=POSY+1 
13.
Set ZELLE=SHEET.getCellByPosition(POSY, POSX) 
14.
INHALT=ZELLE.getFormula() 
15.
Else 
16.
Call SHEET.getCellByPosition(POSY, POSX).setFormula("2") 
17.
End If
Gruß waldgnarf
Mitglied: bastla
28.08.2008 um 10:09 Uhr
Hallo waldgnarf!

Das sollte etwa so aussehen:
01.
Set SSM=WScript.CreateObject("com.sun.star.ServiceManager") 
02.
Set DESKTOP=SSM.createInstance("com.sun.star.frame.Desktop") 
03.
Set CALC=DESKTOP.loadComponentFromURL("file:///C:/Documents and Settings/psi.HP-P-T3257/Desktop/ODS/TEST.ods", "_blank", 0, Array()) 
04.
Set SHEET=CALC.getSheets().getByName("A1") 
05.
POSY=0 
06.
POSX=0 
07.
 
08.
Do 
09.
    Set ZELLE=SHEET.getCellByPosition(POSY, POSX) 
10.
    INHALT=ZELLE.getFormula() 
11.
    If INHALT="" Then Call SHEET.getCellByPosition(POSY, POSX).setFormula("2") 
12.
    POSY=POSY+1 
13.
Loop Until INHALT="" 
14.
POSY=POSY-1 'falls die Zeilennummer der (vormals) leeren Zeile noch benötigt wird
Grüße
bastla
Bitte warten ..
Mitglied: waldgnarf
28.08.2008 um 17:01 Uhr
Passt super, vielen Dank!

Gruß waldgnarf
Bitte warten ..
Ähnliche Inhalte
Basic
VBS: Erlaubnis verweigert in For-Next-Schleife
gelöst Frage von GurkenhobelBasic6 Kommentare

Hallo Gemeinde, wieder stehe ich vor einem Problemchen. Als VBS-Neuling habe ich ein vorhandenes Script modifiziert. Dieses soll alle ...

Firewall
Empfehlung Next Generation Firewall
Frage von Axel90Firewall3 Kommentare

Hallo! wir setzen an unserem Hauptstandort momentan eine Palo Alto Firewall ein. Wir bekommen nun einen weiteren Standort hinzu, ...

VB for Applications
If Then Next
gelöst Frage von AximandVB for Applications12 Kommentare

Hallo, gibt es eigentlich eine Möglichkeit den nächsten Durchlauf einer Schleife vorzeitig zu initiieren? Hier also, wenn Zelle i,3 ...

Batch & Shell
Batch Schleife als FOR-SCHLEIFE
gelöst Frage von mp2711Batch & Shell2 Kommentare

Mit den FOR-Schleifen habe ich mich leider bislang zu selten auseinander gesetzt, aber da ich sonst gerade nicht weiter ...

Neue Wissensbeiträge
Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 19 StundenBatch & Shell8 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Humor (lol)

"gimme gimme gimme": Automatischer Test stolpert über Easter Egg im man-Tool

Information von Penny.Cilin vor 21 StundenHumor (lol)6 Kommentare

Interessant, was man so alles als Easter Egg implementiert. Ist schon wieder Ostern? "gimme gimme gimme": Automatischer Test stolpert ...

MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 1 TagMikroTik RouterOS8 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 1 TagSicherheit1 Kommentar

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Heiß diskutierte Inhalte
Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server17 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows 10
Bitlocker nach Verschlüsselung nicht mehr aufrufbar!
gelöst Frage von alexlazaWindows 1013 Kommentare

Hallo, ich besitze ein HP ZBook 17 G4 mit einem Windows 10 Pro Betriebssystem. Bei diesem Problem handelt sich, ...

Off Topic
Fachkräftemangel in Deutschland? - Talentschmiede schreibt alle 2 Tage die gleichen Stellen aus
Frage von Penny.CilinOff Topic12 Kommentare

Hallo, haben wir in Deutschland Fachkräftemangel? Die Talentschmiede schreibt gefühlt alle zwei Tage dieselben Stellen aus. Und das schon ...

Windows Server
Sichere Remote Desktop Verbindung wie?
gelöst Frage von nuss33Windows Server11 Kommentare

Hallo zusammen, eins vorweg: Ich besitze einen privaten Windows Server 2008 R2 zu Hause im Netzwerk er wird nicht ...